Hallo an alle User!
Ich habe ein problem beim bearbeiten einer
html datei! Mein Delphi gibt mir bei "rewrite" den E/A-Fehler 32 zurück. kategorie und rezeptname sind edit-felder, pfad ist ein einfacher string. Bitte um schnell Hilfe!
Mfg Mr.unbekannt
Delphi-Quellcode:
procedure TForm1.ErstellenClick(Sender: TObject);
var f:textfile;
begin
if listbox1.Items.IndexOf(kategorie.Text)=-1
then begin
listbox1.Items.Add(kategorie.Text);
createdir(pfad+kategorie.Text);
end
else showmessage('
Diese Kategorie bestand schon!');
filecreate(pfad+kategorie.Text+'
\'+rezeptname.Text+'
.html');
assignfile(f,pfad+kategorie.Text+'
\'+rezeptname.Text+'
.html');
rewrite(f);
writeln(f,'
<HTML>');
writeln(f,'
<HEAD>');
writeln(f,'
</HEAD>');
writeln(f,'
<BODY bgcolor="#AFAFAF">');
writeln(f,'
<h1>'+rezeptname.text+'
</h1>');
writeln(f,beschreibung.text);
writeln(f,'
</BODY>');
writeln(f,'
</HTML>');
closefile(f);
end;