Datenbank ohne BDE für delphi 5.0

[dazon]

Delphi-Quellcode:

TYPE
TAdressRecord = RECORD
Name          : STRING[40];
Strasse       : STRING[40];
PLZ           : STRING[5];
Geb           : STRING[10];
END;

var         //Global
  Form1: TForm1;

implementation

{$R *.DFM}




FUNCTION ReadMyDataset(n: LongInt): BOOLEAN;          // Lesen von Datensätzen
VAR
MyDatabase : File OF TAdressRecord;
DBError : BOOLEAN;
 BEGIN
  Assign(MyDatabase, '.\..\MYDATABASE.DAT');
  Reset(MyDatabase);
  {$I-}            //nen richtigen durchblick hab ich von seek noch ned....
   Seek(MyDatabase, n);
   IF IOResult = 0 THEN
   DBError := FALSE
   ELSE
       DBError := TRUE;
       {$I+}
       IF NOT DBError THEN BEGIN
{ der Datensatz kann nun gelesen und verarbeitet werden}
       ...
       END;
  Close(MyDatabase);
  ReadMyDataset := DBerror;
END;
{Die Funktion UpdateMyDataset geht zum Datensatz n und bearbeitet
diesen.}

FUNCTION UpdateMyDataset(n : LongInt): BOOLEAN;    // Aktualisierung von Datensätzen
VAR
  MyDatabase: File OF TAdressRecord;
  DBError : BOOLEAN;
  BEGIN
    Assign(MyDatabase, '.\..\MYDATABASE.DAT');
    Reset(MyDatabase);
    {$I-}
    Seek(MyDatabase,n);
    IF IOResult = 0 THEN
    DBError := FALSE
    ELSE
    DBError := TRUE;
    {$I+}
    IF NOT DBError THEN BEGIN
{ der Datensatz kann nun überschrieben werden }
    ...
 END;
Close(MyDatabase);
ReadMyDataset := DBError;
END;


FUNCTION InsertNewDataset: BOOLEAN;     // Hinzufügen von neuen Datensätzen
VAR
MyDatabase : File OF TAdressRecord;
DBError : BOOLEAN;
BEGIN
   Assign(MyDatabase, '.\..\MYDATABASE.DAT');
   Reset(MyDatabase);
   {$I-}
   Seek(MyDatabase, FileSize(MyDatabase));
   IF IOResult = 0 THEN DBError := FALSE ELSE DBError := TRUE;
   {$I+}
   IF NOT DBError THEN BEGIN
{der Datensatz kann nun angefügt werden}
   ...
END;
Close(MyDatabase);
ReadMyDataset := DBError;
END;


end. //Ende des Programms

klappt das mit dem .\..\Pfad?
was muss ich jetzt bei den gekenntzeichneten ... Lücken einfüllen (ich mein wie mach ich des mit editfeldern ohne ....., ach einfach ma helfen

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]