FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
Ordenar TStringList
Hola, tengo un txt con los siguientes datos:
A02 A00 A01 . . . Quisiera ordenar la primer linea y que me quede A00 A01 A02 Gracias.
__________________
▶ https://www.facebook.com/riverplateoficial ◀ Última edición por dec fecha: 28-06-2014 a las 21:30:26. Razón: Quitar negritas |
#2
|
||||
|
||||
Hola eennzzoo.
Código:
String SortString(String Str) { TStringList *TS = new TStringList; TS->DelimitedText = Str; TS->Sort(); Str = ""; for(int i=0;i<TS->Count;i++) Str += TS->Strings[i] + ' '; delete TS; Str.SetLength(Str.Length()-1); return Str; } Código:
void __fastcall TForm1::Button1Click(TObject *Sender) { TStrings *TS = new TStringList; TS->LoadFromFile("tu_archivo.txt"); ListBox1->Items->Add(TS->Strings[0]); // A02 A00 A01 TS->Strings[0] = SortString(TS->Strings[0]); // ordenar ListBox1->Items->Add(TS->Strings[0]); // A00 A01 A02 ... delete TS; }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Cita:
__________________
▶ https://www.facebook.com/riverplateoficial ◀ |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ordenar descendente TStringList Sort | ingabraham | Varios | 3 | 28-03-2014 15:25:31 |
Ayuda con Tstringlist | ronimaxh | Varios | 2 | 12-10-2004 21:40:02 |
TObjectList y TStringList | esquerda21 | Varios | 6 | 21-01-2004 15:16:58 |
TStringList en TObjectList | esquerda21 | Varios | 1 | 20-01-2004 09:38:41 |
TStringList | esquerda21 | Varios | 10 | 19-01-2004 11:15:21 |
|