home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / unitdb / test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-27  |  1.4 KB  |  37 lines
  1. PROGRAM Test;
  2.  
  3. USES dB_BOX60;
  4.  
  5. VAR db1: ^dB;
  6.  
  7. BEGIN
  8.   New(dB1);     (* Heapspeicher anfordern     *)
  9.   WITH db1^ DO
  10.     BEGIN
  11.       Create('C:\DATEI1.DBF');           (* und schon angelegt, aber   *)
  12.                                          (* noch ohne Datenfelder      *)
  13.  
  14.       AddField('VORNAME',  'C', 15, 0);
  15.       AddField('NACHNAME', 'C', 20, 0);
  16.       AddField('TEL_NR',   'C', 10, 0);
  17.                                          (* und schon ist die Telefon- *)
  18.                                          (* datei fertig               *)
  19.  
  20.       AppendBlank;                       (* einen leeren Datensatz     *)
  21.                                          (* hinzufügen                 *)
  22.  
  23.  
  24.       Replace('VORNAME',  'Renate');
  25.       Replace('Nachname', 'Mustermann');
  26.       Replace('TEL_NR',   '089-9999999');
  27.                                          (* jetzt ist der Datensatz    *)
  28.                                          (* fertig und weitere Daten-  *)
  29.                                          (* sätze könnten hinzugefügt  *)
  30.                                          (* werden                     *)
  31.  
  32.       CloseDbf;                          (* und das Schließen nicht    *)
  33.                                          (* vergessen                  *)
  34.     END;
  35.   Dispose(db1);                          (* Heapspeicher freigeben     *)
  36. END.
  37.