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;