Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.641 Beiträge
 
#19

Re: Zwei Stringlisten miteinander vergleichen. Wie am besten

  Alt 21. Nov 2008, 11:55
In etwa so:
Delphi-Quellcode:
var
  foundIndex: integer;
begin
// ...
result := false;

if alte_StringList.Count <> aktuelle_StringList.Count then
begin

  for I := 0 to aktuelle_StringList.Count -1 do
  begin
    foundIndex := alte_StringList.IndexOf(aktuelle_StringList[i]);
    if foundIndex < 0 then
      exit;
    alte_StringList.Delete(foundIndex);
  end;
  
  // alles gefunden?
  result := alte_StringList.Count = 0;

end;
//...
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat