home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / db02.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-31  |  2.2 KB  |  52 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {             TDB DEMOPROGRAMM 2 - ÖFFNEN UND SCHLIESSEN           }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Öffnet die Datenbank "DB02.DBF" (muß sich im gleichen Ver-       }
  5. { zeichnis befinden !) und schließt sie - nach einem Tastendruck   }
  6. { des Benutzers - wieder.                                          }
  7. { Diese Datenbank enthält Memo-Felder, das heißt, die zugehörige   }
  8. { Memo-Datei ("DB02.DBT") wird automatisch ebenfalls geöffnet.     }
  9. { Durch die Ausgabe des verfügbaren Heaps mittels "MEMAVAIL" kann  }
  10. { überprüft werden, wieviel Speicher die Objekte benötigen und ob  }
  11. { sie auch wieder ordnungsgemäß aus dem Speicher entfernt werden.  }
  12. { ──────────────────────────────────────────────────────────────── }
  13. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  14. { ──────────────────────────────────────────────────────────────── }
  15. {      History:                                                    }
  16. { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
  17. { ──────────────────────────────────────────────────────────────── }
  18.  
  19. PROGRAM DbDemo02;
  20.  
  21.   USES
  22.     DbTypes,                { Enthält die Typdefinitionen für alle }
  23.                             { Module des Datenbanksystems TDB.     }
  24.     TDB;                    { Die eigentlichen Datenbank-Objekte.  }
  25.  
  26.  
  27.   VAR
  28.     DB             : PDataBase;                  { Datenbankobjekt }
  29.  
  30.  
  31.   BEGIN                                            { Hauptprogramm }
  32.     WRITELN;
  33.     WRITELN ('Freier Speicher vor Initialisierung:  ', MEMAVAIL);
  34.  
  35.     DB := NEW (PDataBase,                { Speicherallozierung und }
  36.           Use ('DB02.DBF'));        { Initialisierung des Objektes }
  37.  
  38.     WRITELN;
  39.     WRITELN ('Freier Speicher nach Initialisierung: ', MEMAVAIL);
  40.  
  41.     IF DB <> Nil THEN                 { Wenn die Datenbank nicht   }
  42.       DISPOSE (DB, Close);            { geöffnet werden kann, wird }
  43.                                  { das Objekt nicht initialisiert. }
  44.  
  45.     WRITELN;
  46.     WRITELN ('Freier Speicher nach Freigabe:        ', MEMAVAIL);
  47.     WRITELN;
  48.     WRITE ('Weiter mit Return-Taste ...');
  49.     READLN;
  50.     WRITELN;
  51.   END. { PROGRAM Db02 }
  52.