Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

abajo

Cómo ordenar la lista en un ComboBox de tipo Integer, es decir, 10 después de 9 y no al revés Encontrar ramas similares


SL   (2001-12-23 07:30) [0]

Cómo ordenar la lista en un ComboBox de tipo Integer, es decir, 10 después de 9 y no al revés. En realidad, necesito que el usuario escriba el texto en la ventana de edición y complete automáticamente los valores de la lista (no funciona sin la clasificación). Por supuesto, puede manejar el evento OnChange, pero quizás haya una forma más sencilla.



MBo   (2001-12-23 09:38) [1]

Como no hay una ordenación personalizada en Combo, puede
función SortByVal (L: TStringList; I1, I2: Integer): Integer;
comenzar
resultado: = 0;
tratar de
si strtoint (l [i1])> strtoint (l [i2]) entonces resultado: = 1
de lo contrario si strtoint (l [i2])> strtoint (l [i1]) entonces resultado: = - 1;
excepto
si l [i1]> l [i2] entonces el resultado: = 1
de lo contrario, si l [i2]> l [i1] entonces el resultado: = - 1;
fin;
fin;

procedimiento TForm1.Button1Click (Sender: TObject);
var s: tstringlist;
comenzar
s: = tstringlist.create;
s.assign (cb1.items);
s.CustomSort (SortByVal);
cb1.items.assign (s);
libre;
fin;



SL   (2001-12-23 10:23) [2]

Esto solo funciona si cb1 tiene la propiedad SORTED = FALSE (en este caso, al ingresar el valor desde el teclado, el valor se sustituye automáticamente cuyo primer carácter corresponde a la tecla presionada, es decir, si presiono 1, luego 7, aparece el valor 7 ... y Necesito 17 ..)



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.10;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.011 c
1-28471
XPatriot
2001-12-21 14:50
2002.01.10
Trabajar con archivos.


1-28472
Delphig
2001-12-22 03:16
2002.01.10
Esa es la cosa. Es necesario que al seleccionar líneas en el cuadro de lista ....


14-28536
tovSuhov
2001-11-16 15:39
2002.01.10
Contestador de correo electrónico


3-28421
NLO
2001-12-07 12:29
2002.01.10
Ejecute la confirmación de transacción de inicio en el procedimiento InterBase 6


1-28464
vencedor
2001-12-20 03:35
2002.01.10
¿Cómo saber la fecha de creación del catálogo?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español