bilder einlesen und unter neuem namen speichern

[shirocko]

hi danke an euch alle ihr ward mir eine super Hilfe. Dank euch funktioniert es nun. Herzlichen dank

Wenns euch interessiert, so siehts jetzt aus.

Delphi-Quellcode:

procedure TForm1.B_renameClick(Sender: TObject);
var i:integer;// Zählvariable
    dateiname:string;
begin
if opendialog1.Execute then
  begin
    for i := 0 to opendialog1.Files.Count - 1 do// alle Dateien durchgehen
     begin
        dateiname:='';
        dateiname:=ExtractFileName(OpenDialog1.Files[i]);
        Insert('_',dateiname,8);
        Insert('-',dateiname,11);
        renamefile(OpenDialog1.Files[i],dateiname);
     end;
  end;
end;