wo muss ich noch ein end; hinsetzen damit alle files[i] geöffnet werden und nicht nur das 1. n-mal?
Delphi-Quellcode:
for i:=0 to opendiag.files.count -1 do
begin
// if length(ExtractFileName(opendiag.FileName[i])) >35 then
if length(ExtractFileName(opendiag.Files[i])) >33 then
begin
//Endung
FilesExtension := ExtractFileExt(opendiag.Files[i]);
//Dateiname ohne Endung
AlterDateiname:= ExtractFileName(ohne_erweiterung(opendiag.Files[i]));
//Name ab Position 28 kürzen
Delete(AlterDateiname,28,length(AlterDateiname));
//Neuer Dateiname
NeuerDateiname:= AlterDateiname + '..' + FilesExtension;
showmessage(NeuerDateiname);