Stringlisten vergleichen

[creehawk]

Moin Moin.

Ich möchte muss 2 Listen vergleichen um herauszufinden was in der einen Liste fehlt

Delphi-Quellcode:

var
I,II:Integer;
Str : String;
CurrentList : TStringlist;
DDSList     : TStringList;
CopyList    : TstringList;
begin
  Currentlist := TStringlist.Create;
  DDSList     := TStringlist.Create;
  CopyList := TStringlist.Create;
  CurrentList.LoadFromFile(TMPPath + 'CurrentDivFiles.txt'); // 3049 Zeilen ex. G:\Files\dds\....Dateiname
  DDSList.LoadFromFile(TMPPath + 'DDSList.txt');             // 3293 Zeilen ex. icon_crops_diversity_2_dark_0.dds
  for i := 0 to CurrentList.Count -1 do
   begin
    STR := CurrentList.Strings[I];
    for II := 0 to DDSList.count -1 do
      begin
       if AnsiPos(STR,DDSList.Strings[II]) = 0 then CopyList.add(DDSList.Strings[II]);
      end;
   end;
   CopyList.SavetoFile(TMPPath + 'CopyList.txt');
end;

Alles läuft bis zu dem Moment wo ich CopyList speichern will : Zuwenig Arbeitsspeicher. Was??

Kann mir jemand auf die Sprünge helfen?

creehawk