Christopher1991
Gesperrt
procedure TForm4.BitBtn7Click(Sender: TObject);
var
datei: textfile;
begin
if fileexists(edit2.text+' '+edit3.text+'.txt') then
begin
assignfile(Datei,edit2.text+' '+edit3.text+'.txt');
rewrite(Datei); //hier zeigt er die Fehlermeldung an ...
writeln(datei,combobox1.text);
writeln(datei,edit2.text);
writeln(datei,edit3.text);
writeln(datei,edit4.text);
writeln(datei,edit5.text);
writeln(datei,edit6.text);
writeln(datei,edit7.text);
writeln(datei,edit8.text);
writeln(datei,edit9.text);
writeln(datei,edit10.text);
writeln(datei,edit11.text);
writeln(datei,memo1.Text);
closefile(datei);
end;
end;
Project Project1.exe raised exception class ElnOutError with message 'I/O error 32'. Process stopped. Use Step or Run to continue.
MfG und Danke im Vorraus
Christopher
P.S. Bitte schnell antworten, denn das Programm muss bald fertig sein...
var
datei: textfile;
begin
if fileexists(edit2.text+' '+edit3.text+'.txt') then
begin
assignfile(Datei,edit2.text+' '+edit3.text+'.txt');
rewrite(Datei); //hier zeigt er die Fehlermeldung an ...
writeln(datei,combobox1.text);
writeln(datei,edit2.text);
writeln(datei,edit3.text);
writeln(datei,edit4.text);
writeln(datei,edit5.text);
writeln(datei,edit6.text);
writeln(datei,edit7.text);
writeln(datei,edit8.text);
writeln(datei,edit9.text);
writeln(datei,edit10.text);
writeln(datei,edit11.text);
writeln(datei,memo1.Text);
closefile(datei);
end;
end;
Project Project1.exe raised exception class ElnOutError with message 'I/O error 32'. Process stopped. Use Step or Run to continue.
MfG und Danke im Vorraus
Christopher
P.S. Bitte schnell antworten, denn das Programm muss bald fertig sein...