Einzelnen Beitrag anzeigen

Schucki

Registriert seit: 17. Jul 2004
152 Beiträge
 
Delphi 2010 Architect
 
#1

TStringList.CustomSort wird nicht angesprochen?

  Alt 28. Jul 2021, 19:32
Delphi-Version: 2010
Hallo,

ich versuche eine TStringList mit einer eigenen Sortierung zu verarbeiten, leider wird die Function nicht angesprungen. Was hab ich vergessen?
Auf...
Delphi-Quellcode:
   ...
   ShowMessage('Sortiere...');
   ---
...ist ein Breakepoint, der nicht auslöst.

Gruß Frank

Delphi-Quellcode:
function ResultCustomCompare(List: TStringList; Index1, Index2: Integer): Integer;
var
  s1, s2: string;

begin
  ShowMessage('Sortiere...');
  s1 := GetStrFromColumn(3, List[index1]) + GetStrFromColumn(4, List[index1]);
  s2 := GetStrFromColumn(3, List[index2]) + GetStrFromColumn(4, List[index2]);
  if s1 < s2 then
    Result := -1
  else
  if s1 > s2 then Result := 1
  else
    Result := 0;
end;


procedure TfrmMain.LogClick(Sender: TObject);
var strlResult: TStringList;

begin
    strlResult := TStringList.Create;
try
    strlResult.CustomSort(ResultCustomCompare);
    strlResult.Sorted := True;
    strlResult.LoadFromFile('data.txt');
    ShowMessa(strlResult.Text);
finally
    strlResult.Free;
end;
end;
Frank
  Mit Zitat antworten Zitat