tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
5
ZUGRIFFE
1304
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. #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...
     

  2. #2
    vop vop ist offline Mitglied Platin
    Registriert seit
    Mar 2004
    Beiträge
    676
    Vermutlich ist die Datei geöffnet oder schreibgeschützt.

    vop
     

  3. #3
    Registriert seit
    Jul 2005
    Beiträge
    5
    Nein ... weder noch!
     

  4. #4
    vop vop ist offline Mitglied Platin
    Registriert seit
    Mar 2004
    Beiträge
    676
    Wenn ich das richtig sehe, hast du ein Leerzeichen im Dateinamen,
    Vielleicht solltest Du dann Anführungszeichen um den Dateinamen setzen.

    vop
     

  5. #5
    Ze Mighty Ze Mighty ist offline Grünschnabel
    Registriert seit
    Apr 2005
    Beiträge
    3
    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
     

  6. #6
    WieGehts WieGehts ist offline Mitglied Gold
    Registriert seit
    Oct 2003
    Beiträge
    130
    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

  1. URL öffnen und Inhalt (CSV Datei) auslesen
    Von fanboy im Forum Javascript & Ajax
    Antworten: 1
    Letzter Beitrag: 19.06.09, 23:29
  2. Inhalt einer Datei ändern
    Von celloman im Forum Java
    Antworten: 1
    Letzter Beitrag: 24.09.07, 16:51
  3. Inhalt WinRar Datei ohne diese zu öffnen
    Von Beginnerin im Forum C/C++
    Antworten: 3
    Letzter Beitrag: 21.07.06, 10:35
  4. Excel datei in Visual basic öffnen und inhalt anzeigen
    Von DerRiese im Forum Visual Basic 6.0
    Antworten: 1
    Letzter Beitrag: 05.08.05, 10:43
  5. Inhalt Datei auf Server geht nicht zu ändern !
    Von PhoenixDH im Forum Hosting & Webserver
    Antworten: 1
    Letzter Beitrag: 28.09.04, 14:10