Stringlisten vergleichen

[DeddyH]

Verstehe ich das richtig: Du willst die Zeilen der einen Datei ermitteln, die in der anderen nicht vorkommen?

[edit] @zeras: IndexOf gibt einen Integer zurück, keinen Boolean [/edit]

[edit2] Falls ich das richtig verstanden habe, könnte man das ja auch ohne 3. Liste umsetzen (ungetestet):

Delphi-Quellcode:

var
  Gross: TStringList;
  Klein: TStringList;
  i: integer;
begin
  Klein := nil;
  Gross := TStringList.Create;
  try
    Klein := TStringList.Create;
    Klein.LoadFromFile(...);
    Gross.LoadFromFile(...);
    for i := Gross.Count - 1 downto 0 do
      if Klein.IndexOf(Gross[i]) >= 0 then
        Gross.Delete(i);
    Gross.SaveToFile(...);
  finally
    Klein.Free;
    Gross.Free;
  end;
end;

[/edit2]