2 Stringlisten vergleichen, geht es besser?

[marabu]

Hallo Lucius,

der von dir gezeigte Code könnte auch so aussehen:

Delphi-Quellcode:

var
  i, iNew: integer;
  s, ss: TStrings;

begin

  // chronological list 
  s := TStringList.Create;
  s.LoadFromFile(fileName);

  // alpha list
  ss := TStringList.Create;
  ss.Assign(s);
  TStringList(ss).Sorted := true; // edit: missing cast 

  // count new items
  iNew := 0;
  for i := 0 to Pred(SimpleRSS.Items.Count) do
    // binary search
    if ss.IndexOf(SimpleRSS.Items[i].Title) = -1 then
    begin
      // add new item preserving order
      s.Insert(iNew, SimpleRSS.Items[i].Title);
      Inc(iNew);
    end;

  // ...
  s.SaveToFile(fileName);
  s.Free;
  ss.Free;
end;

Grüße vom marabu