Records

[The Lord]

Delphi-Quellcode:

type TDatensatz = record
       vorname: string[25];
       nachname: string[25];
       initialen: string[5];
       tag: integer;
       monat: integer;
       jahr: integer;
       position: string[5];
       amt: string[5];
       verein: string[50];
       status: string[10];
       bild: string[100];
     end;


var
  Form1: TForm1;
  datei: file of TDatensatz;
  tabelle: array of TDatensatz;
  f: file of integer;

Hier deklariere ich meine Variablen und Typen!

Delphi-Quellcode:

{Speicher- und Ladefunktionen}

procedure SaveToFile(Dest: string);
var f: file of TDatensatz;
    I: Cardinal;
begin
  try
    assignFile(f, Dest);
    reWrite(f);  //oder reset(f)
    for I := low(Tabelle) to high(Tabelle) do
      write(f, Tabelle[i]);
  finally
    closeFile(f);
  end;
end;


procedure LoadFromFile(Source: string);
var f: file of TDatensatz;
    I: Cardinal;
begin
  I := 0;
  try
    assignFile(f, Source);
    reset(f);
    SetLength(Tabelle, FileSize(f));
    while not eof(f) do
      begin
        read(f, Tabelle[I]);
        Inc(I);
      end;   
  finally
    closeFile(f);
  end; 
end;

Hier die beiden Prozeduren!

Delphi-Quellcode:

{Daten in Record speichern}

  LoadFromFile('C:\test.dat');
  if high(Tabelle) > 0 then
    begin
      Tabelle[0].Vorname := Edit1.Text;
      //Edit2.Text := Tabelle[0].Nachname;
    end;
  SaveToFile('C:\test.dat');

Hier will ich mit einem Button Daten speichern!


Ich habe alles aus diesem Thread. Aber ich verstehe das immer noch nicht so ganz