textdatei aus edtifeld auslesen udn wieder einlesen

[tspanni]

Hallo
ihc habe mal ne frage und zwar möchte ich eine datei mit Assignfile erstellen wo dann mit nem button der text aus verschiedenen editfeldern in jeweils eine zeile geschrieben wird (also edit1 in zeile1, edit2 in zeile2...) und danach wieder in das jeweilige editfeld geladen wird

Delphi-Quellcode:

var x:textfile;

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(x,'C:stupla.stp');
  rewrite(x);
  writeln(x,Edit1.Text);
  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    assignfile(x,'stupla.stp');
    reset(x);
    Readln(x,);

end;

so siehts bisher aus. die datei wird zwar erstellt aber es steht nichts drin... kann mir bitte jemand sagen wie ich den obigen code anpassen muss (sowohl writln als auch readln)

Vielen Dank im Voraus
Tim

[taaktaak]

Es fehlt in beiden Procs das closefile()
und besser wäre auch eine Fehlerbehandlung mit {$I-}, IOresult usw.

[mr_emre_d]

heißt es nicht "C:\stupla.stp" ?

[tspanni]

oh stimmt danke. aber wie mache ich dass den ejtz mit dem abspeicher bzw. dem einlesen der edits in die jeweiligen zeilen und andersrum wiel iwei klappts so ned

[taaktaak]

Delphi-Quellcode:

  // ..
  assignfile(x,'C:\stupla.stp'); // im Wurzelverzeichnis von C ??????????????
  {$I-} rewrite(x); {$I+}
  if IOresult<>0 then ShowMessage('Fehler')
                else begin
    writeln(x,Edit1.Text); 
    writeln(x,Edit2.Text);
    //..
    closefile(x)
    end;
//..

Delphi-Quellcode:

  // ..
  assignfile(x,'C:\stupla.stp'); // im Wurzelverzeichnis von C ??????????????
  {$I-} reset(x); {$I+}
  if IOresult<>0 then ShowMessage('Fehler')
                else begin
    readln(x,Edit1.Text); 
    readln(x,Edit2.Text);
    //..
    closefile(x)
    end;
 //..

Vielleicht so?
(Und benutze bitte eine etwas verständlichere Sprache)


/edit: die Null fehlte bei IOresult

[Apollonius]

Ist es wirklich besser, mit dem Schalter I- zu arbeiten? Die Exception beeinhaltet wenigstens den Begriff IO und eine Fehlernummer. Für absolute DAUs würde ich lieber global im Application.OnException alle IO-Fehler abfangen und eine entsprechende Nachricht anzeigen.

[taaktaak]

Tja, BESSER <> SCHLECHTER ?
Kenne die technischen Hintergründe nicht, es ist aber m. E. "traditionell üblich" bei Verwendung dieser uralt-Funktionen, diese Schalter zu verwenden

[tspanni]

@taaktaak hmm naja also das abspeichern funktioniert jetzt. Nur wenn ich

Delphi-Quellcode:

ReadLn(x, Edit1.Text);

kommt die Fehlermeldung "[Fehler] Unit1.pas(148): Der linken Seite kann nichts zugewiesen werden"

[taaktaak]

ahhh, schon fast vermutet. Dann zunächst in eine StringVariable einlesen, dann an .Text übergeben

[Apollonius]

Wenn I+ aktiv ist, wird nach jeder Datei-Funktion automatisch IOResult geprüft und im Fehlerfall eine Exception ausgelöst. Im Prinzip ist eine eigene Fehlerbehandlung also nicht nötig.