Einzelnen Beitrag anzeigen

ErdNussLocke

Registriert seit: 30. Jan 2006
104 Beiträge
 
#1

Speichern/Laden mit "assignfile, readln, writeln,...&qu

  Alt 8. Sep 2008, 19:36
Hi,

hab jetzt eine Weile im Forum gesucht und versucht mir die Befehle selbst zu erklären.
Ich möchte einfach nur den Inhalt eines records in eine Datei speichern und wieder laden.
Speichern klappt:

Delphi-Quellcode:
type
  tDatenbank = record
              name: string [40];
             end;

//...

var
  Form1: TForm1;
  datensatz: tDatenbank;
  Datei: file of tDatenbank;

//...

procedure TForm1.Button1Click(Sender: TObject);
begin
 assignfile(Datei, 'D:\Datenbank');
  rewrite(Datei);
  datensatz.vorname:= edit1.text;
  write(Datei, datensatz);
 closefile(Datei);
end;
Aber wie kann ich diesen Inhalt nun wieder laden?
Wollte es natürlich mit readln() machen, aber finde nicht was da genau rein soll
Soweit hab ich es versucht:

Delphi-Quellcode:
  assignfile(Datei,'D:\Datenbank');
   reset(Datei);
   readln(Datei, ???);
  closefile(Datei);
Wie bekomme ich jetzt den vorher gespeicherten Namen sagen wir in edit1.text zurück?

Vielen Dank schonmal fürs Lesen!

MfG
ErdNussLocke
  Mit Zitat antworten Zitat