Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.076 Beiträge
 
Delphi 7 Professional
 
#4

AW: TStringList.CustomSort wird nicht angesprochen?

  Alt 28. Jul 2021, 20:21
Delphi-Quellcode:
procedure TfrmMain.LogClick(Sender: TObject);
var strlResult: TStringList;

begin
    strlResult := TStringList.Create;
try
    strlResult.Sorted := false;
    // Erst die Datei laden
    strlResult.LoadFromFile('data.txt');
    // dann sortieren.
    strlResult.CustomSort(ResultCustomCompare);
    ShowMessa(strlResult.Text);
finally
    strlResult.Free;
end;
end;
  Mit Zitat antworten Zitat