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;