Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by stahli,
14. Okt 2010
Ich verstehe das noch nicht ganz. Wie sehen denn Deine Strings aus?
Zerlegst Du die zum Vergleichen nochmal in Path, Filename, Spez.?
Vielleicht wärst Du mit Objekten wirklich gut bedient?
TMyObject = class
Path: String;
FileName: String;
Spez: String;
Date: TDate;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by stahli,
14. Okt 2010
Oder gleich richtige Objekte mit entsprechenden Propertys nehmen und in einer TObjectList speichern.
Die lässt sich ja dann gut sortieren.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by stahli,
14. Okt 2010
Vergleiche doch im Gleichheitsfall nachträglich noch den Text.
function DoCompareByDate(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := 0;
if Assigned(List) then
begin
if (Integer(List.Objects) < Integer(List.Objects)) then
Result := 1
else