Problem mit nem OpenDialog ^^

[Marco Haffner]

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;