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
