Foros Club Delphi - Ordenar TStringList

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Ordenar TStringList (https://www.clubdelphi.com/foros/showthread.php?t=86190)

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.

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;

}

Ejemplo de uso:

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;

}

Saludos :)

Cita:

Empezado por ecfisa (Mensaje 478442)

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;

}

Ejemplo de uso:

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;

}

Saludos :)

Gracias como siempre capo.