Ordenar TStringList

[eennzzoo]

Hola, tengo un txt con los siguientes datos:

A02 A00 A01
.
.
.
Quisiera ordenar la primer linea y que me quede A00 A01 A02

Gracias.

[ecfisa]

Hola eennzzoo.

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:

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

[eennzzoo]

Empezado por ecfisa

Hola eennzzoo.

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:

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.