bilder einlesen und unter neuem namen speichern

[DeddyH]

Z.B. so:

Delphi-Quellcode:

var sList: TStringList;
    i: integer;
begin
  if OpenDialog1.Execute then
    begin
      sList := TStringList.Create;
      try
        for I := 0 to OpenDialog1.Files.Count - 1 do
          sList.Add(ExtractFileName(OpenDialog1.Files[i]));
        sList.SaveToFile('C:\Test.txt');
      finally
        sList.Free;
      end;
    end;  
end;