Nur bestimmte Dateien eines Ftp Ordners anzeigen

[marabu]

Oder so:

Delphi-Quellcode:

function Intersect(sl1, sl2: TStringList): TStringList;
var
  i: integer;
begin
  Result := TStringList.Create;
  Result.Sorted := true;
  Result.Duplicates := dupIgnore;
  Result.AddStrings(sl1);
  Result.AddStrings(sl2);
  for i := Result.Count - 1 downto 0 do
    if (sl1.IndexOf(Result[i]) < 0)
    or (sl2.IndexOf(Result[i]) < 0) then
      Result.Delete(i);
end;

Grüße vom marabu