ERLEDIGT
NEIN
NEIN
ANTWORTEN
5
5
ZUGRIFFE
1304
1304
EMPFEHLEN
-
01.08.05 10:41 #1
- Registriert seit
- Jul 2005
- Beiträge
- 5
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...
-
Vermutlich ist die Datei geöffnet oder schreibgeschützt.
vop
-
01.08.05 13:50 #3
- Registriert seit
- Jul 2005
- Beiträge
- 5
Nein ... weder noch!
-
Wenn ich das richtig sehe, hast du ein Leerzeichen im Dateinamen,
Vielleicht solltest Du dann Anführungszeichen um den Dateinamen setzen.
vop
-
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
-
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?
Ähnliche Themen
-
URL öffnen und Inhalt (CSV Datei) auslesen
Von fanboy im Forum Javascript & AjaxAntworten: 1Letzter Beitrag: 19.06.09, 23:29 -
Inhalt einer Datei ändern
Von celloman im Forum JavaAntworten: 1Letzter Beitrag: 24.09.07, 16:51 -
Inhalt WinRar Datei ohne diese zu öffnen
Von Beginnerin im Forum C/C++Antworten: 3Letzter Beitrag: 21.07.06, 10:35 -
Excel datei in Visual basic öffnen und inhalt anzeigen
Von DerRiese im Forum Visual Basic 6.0Antworten: 1Letzter Beitrag: 05.08.05, 10:43 -
Inhalt Datei auf Server geht nicht zu ändern !
Von PhoenixDH im Forum Hosting & WebserverAntworten: 1Letzter Beitrag: 28.09.04, 14:10





Zitieren
Login





