Zitat von
himitsu:
Delphi-Quellcode:
StringList_MN.Sorted := True;
StringList_MN.Duplicates := dupIgnore;
// alles hinzufügen
StringList_MN.AddObject(S, TObject(StringList_MN.Count));
...
// und zum Schluß nach Index wieder zurücksortieren
StringList_MN.CustomSort(
function(List: TStringList; Index1, Index2: Integer): Integer
begin
Result := Integer(List.Objects[Index1]) - Integer(List.Objects[Index2]);
end);
Hallo himitsu,
Dein Gebilde schaut recht interessant aus - aber momentan steig ich nicht durch, wie mir das hilft
Kannst mir das kurz erklären?
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<