Problem mit nem OpenDialog ^^

[KochFolie]

hehe irgendwie hab ichs hingekriegt
hab das try rausgenommen und alles mit if eingeklammert irgendwie läufts jetzt danke

Zitat:

bei Abbruch die Prozedure gar nicht erst auszuführen. Die Execute Methode prüfst Du ja sowieso auf Abbruch oder nicht ab. Ansonsten müsste sichergestellt werden, dass beim ersten Aufruf der Prozedur nicht abgebrochen werden kann, oder dass Dateiname initialisiert ist.

dafür

oh und danke an marco unter mir, dadurch ist es noch kürzer geworden... da hatte ich das begin echt vergessen ich nuss :S danke

Code:

procedure TForm1.ffnen1Click(Sender: TObject);
var dateiname,dateiname2,dateiname3,dateinamemitpfad,dateinamemitpfad3:string;
    datei:textfile;
begin
if open.execute then begin
dateiname:=extractfilename(Open.Filename);
assignfile(datei, ChangeFileExt(open.filename,'.cue'));
rewrite(datei);
write(datei, 'FILE "');
write(datei, dateiname);
writeln(datei, '" BINARY');
writeln(datei, '  TRACK 01 MODE1/2352');
write(datei,   '    INDEX 01 00:00:00');
flush(datei);
closefile(datei);
if deutsch1.checked
  then label3.caption:='Datei erfolgreich gespeichert als:'
  else label3.caption:='File successfully saved as';
dateiname2:=ChangeFileExt(Open.Filename,'.cue');
label4.caption:=dateiname2;
if label3.width<label4.width
  then form1.Width:=label4.width+10
  else form1.Width:=label3.width+10;
form1.height:=130;
dateiname3:=dateiname;
dateinamemitpfad3:=dateinamemitpfad;
end;
end;