Zitat von
KochFolie:
Delphi-Quellcode:
if open.execute then dateiname:=extractfilename(Open.Filename);
assignfile(datei, ChangeFileExt(open.filename,'.cue'));
Mit
if open.execute then überprüftst Du, ob im OpenDialog auf Öffnen geklickt wurde und nur das geschehen ist, wird Dateiname zugewiesen. Die nächste Zeile
assignfile wird aber immer ausgeführt, egal was im OpenDialog getan wurde.
Wenn Du hinter
if open.execute then ein
begin setzt (end; nicht vergessen) wird alles nur dann ausgeführt, wenn Du den Dialog mit Öffnen bestätigst.
Delphi-Quellcode:
begin
if open.execute then
begin
dateiname:=extractfilename(Open.Filename);
assignfile(datei, ChangeFileExt(open.filename,'.cue'));
...
end;
end;