Hi,
Ik zit met een beginners probleempje
Ik heb een database gemaakt waar ik voor iedere persoon een record heb die allerlei gegevens bevat over die persoon (zoals adres, naam,...) Ik kan dit alles opslaan in een bestand maar ik weet niet hoe ik de gegevens terug uit het bestand kan halen en terug schikken in een array (de array die alle records bevat). Kan iemand ook misschien eens kijken of mijn manier van opslaan wel juist is ????
Dit is mijn procedure om de array op te slaan :
procedure TForm1.SaveClick(Sender: TObject);
var
i : integer;
Bestand : file of Data;
begin
AssignFile(Bestand, 'DatabaseFile.dat');
Rewrite (Bestand);
for i := 1 to Arraylength do
begin
write(Bestand, Database[i]);
end;
closefile(Bestand);
end;
Thanks !
Bert.
Bookmarks