Einzelnen Beitrag anzeigen

Benutzerbild von Net7
Net7

Registriert seit: 22. Jun 2004
Ort: Lauenburg
161 Beiträge
 
Delphi 7 Professional
 
#1

So speichert man Records in eine Datei...

  Alt 23. Jun 2004, 01:46
So speichert man Records in eine Datei und ließt sie wieder aus:

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TFelddaten = record
    Editfeld1: string[50];
    Editfeld2: string[50];
    Editfeld3: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  datei: file of TFelddaten; // Dateityp bestimmen
  datensatz: TFelddaten; // unseren Record an variable datensatz übergeben
begin
  AssignFile(datei, 'daten.dat'); //Datei erstellen
  if FileExists('daten.dat') then
    ReSet(datei)
  else
    ReWrite(datei);

  datensatz.editfeld1 := EDIT1.Text;
  datensatz.editfeld2 := EDIT2.Text;
  datensatz.editfeld3 := strtoIntdef(EDIT3.Text, -1);
  //wenn Feld leer schreib die -1 rein
  seek(datei, 0); //fang am anfang der daten.dat an den schreibkopf zu setzen
  write(datei, datensatz);
    //schreibe datensatzinhalt in datei, also unseren record
  closeFile(datei);
  EDIT1.Clear;
  EDIT2.Clear;
  EDIT3.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  datei: file of TFelddaten;
  datensatz: TFelddaten;
begin
  AssignFile(datei, 'daten.dat');
  reset(datei);
  seek(datei, 0);
  read(datei, datensatz);
  EDIT1.Text := datensatz.editfeld1;
  EDIT2.Text := datensatz.editfeld2;
  EDIT3.Text := inttostr(datensatz.editfeld3);
  closeFile(datei);
end;

end.
Ich habe ein PDF beigelegt dort habe ich alles ausführlich dokumentiert.
Natürlich ist der Quellcode auch dabei.

Mfg Net7

[edit=Luckie]Code formatiert. Mfg, Luckie[/edit]
[edit=Chakotay1308]Code nochmal formatiert und unsinnige Dinge rausgenommen. Mfg, Chakotay1308[/edit]
Angehängte Dateien
Dateityp: rar wie_man_records_in_dateien_speichert_und_wieder_auslie_t.rar (62,9 KB, 150x aufgerufen)
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.
  Mit Zitat antworten Zitat