Zwei Stringlisten miteinander vergleichen. Wie am besten ?

[HolgerCW]

Hi.

So sieht es nun bei mir aus:

Delphi-Quellcode:

function ... 
begin
 
 Result := FALSE;

 TStringList(aktuelle_StringList).Sorted := true;
 TStringList(alte_StringList).Sorted := true;

 if alte_StringList.Count <> aktuelle_StringList.Count then
 begin

  //Result := CompareMem(PChar(alte_StringList.Text),PChar(aktuelle_StringList.Text),Length(alte_StringList.Text));

  for I := 0 to aktuelle_StringList.Count -1 do
   alte_StringList.Delete(alte_StringList.IndexOf(aktuelle_StringList[i]));

 end else
 begin

  Result := FALSE;

 end;

 alte_StringList.Assign(aktuelle_StringList);
 aktuelle_StringList.Free;

end;

Wie springe ich dort nun beim nicht finden raus oder breche ab ?