Datei öffnen und Inhalt ändern ...

[Christopher1991]

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...

 

[vop]

Vermutlich ist die Datei geöffnet oder schreibgeschützt.

vop

 

[Christopher1991]

Nein ... weder noch!

 

[vop]

Wenn ich das richtig sehe, hast du ein Leerzeichen im Dateinamen,
Vielleicht solltest Du dann Anführungszeichen um den Dateinamen setzen.

vop

 

[Ze Mighty]

Probier mal dies zum speichern:

procedure Twindow.Button5Click(Sender: TObject);
var sl: TStringList;
begin
sl:=TStringList.Create; //Objekt erzeugen
try //try-finally hilft, das Objekt auch dann freizugeben, wenn ein Fehler auftritt
sl.add('dein text für die erste Zeile'); //Text hinzufügen
sl.add(variable);
sl.add('und 3 zeile wieder text');
sl.SaveToFile('info.txt'); //Datei speichern
finally
sl.free; //Objekt wieder freigeben
end;
end;


...und dies zum Laden:

procedure Twindow.Button4Click(Sender: TObject);
var sl: TStringList;
begin
sl:=TStringList.Create; //Objekt erzeugen
if FileExists('info.txt')
then begin
try
sl.LoadFromFile('info.txt'); //Datei in Stringliste laden
edit1.text := sl[0]; //dies ist die erste zeile der Datei
edit2.text := sl[1];
edit3.text := sl[2];
finally
sl.free; //Objekt wieder freigeben
end;
end;


hoffe dies hilft dir, mfg Ze-Mighty

 

[WieGehts]

Hallo,
vermutlich ist das Problem längst gelöst und Christopher1991 hatte nur bis heute keine Zeit auf Thema abgeschlossen zu klicken. Für den Fall, dass es noch keine Lösung gibt mal eine Frage: was steht in edit2 und edit3? Sind das Pfad und Filename?