ich versuche seid gut 3 Tagen eine Datenbank per record zu erstellen, leider ohne grossen erfolg. Zwar habe ich in diesem forum schon eine tolle source gefunden, leider ist die aber für delphi 7.0, was ich leider nicht besitze. Meine delphi kenntnisse sind sehr gering, darum ist es mir peinlich meine bisherige source in dieses forum zu posten, ich tue es aber trotzdem, vielleicht hilft mir ja jemand.
Delphi-Quellcode:
type
TForm1 = class(TForm)
ename: TEdit;
evorname: TEdit;
estrasse: TEdit;
enr: TEdit;
etelefonnummer: TEdit;
ewohnort: TEdit;
eplz: TEdit;
ehandy: TEdit;
eemail: TEdit;
eschule: TEdit;
egeburtsdatum: TEdit;
ehomepage: TEdit;
estand: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
...
...
Type
tperson = record
name : String [30];
vorname : string [30];
strasse : String [30];
{usw}
end;
var
Form1: TForm1;
person : tperson;
adresse: array[1..100] of tperson;
Datei : file of tperson;
procedure TForm1.Button1Click(Sender: TObject); // übertragung von edit in array
var i : Integer;
begin
assignfile(datei, 'Datenbank.dat');
rewrite(datei);
for i := 1 to 100 do begin
adresse[i].name := ename.text;
adresse[i].vorname := evorname.text;
adresse[i].strasse := estrasse.text;
{usw}
Write(datei, adresse[i]); // speichern der array daten in datei
end;
end;
das ist er einmal die wichtige prozedur, mit der ich Probleme habe. Es soll den array in eine externe datei speichern, was er aber glaube ich nicht richtig tut, denn wenn ich es wieder lade, sind alle textfelder leer. Vielleicht speichert er auch nur den letzten array.... ich weiss es nicht so recht.
Bitte versucht mit zu helfen, egal wie......
[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]