Stringliste - Inhalt nach ersten Zeichen sortieren

[Susanne]

Hallo,

Ich habe eine Stringliste und deren inhalt sind immer zahlen und die sind alle 9 Zeichen lang. Diese Liste möchte ich nun sortieren und zwar nur nach den ersten 8 Zeichen. Geht das und wenn ja wie?

Gruss
Susanne

[sakura]

Das geht recht einfach. Du musst eine Funktion schreiben, welche die Signature von TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer hat und diese an StringList.CustomSort() übergeben.

Ein Beispiel:

Delphi-Quellcode:

function CompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
var
  Val1, Val2: String;
begin
   Val1 := Copy(List[Index1], 1, 8);
   Val2 := Copy(List[Index2], 1, 8);
   Result := CompareStr(Val1, Val2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    // füllen...

    // sortieren
    SL.CustomSort(CompareStrings);

    //  blabla
  finally
    SL.Free;
  end;
end;

...:cat:...