home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / addon02.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-31  |  1.5 KB  |  54 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {            TEST "TDB-ERWEITERTER TDATABASE-PROTOTYP"             }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Es muß zuerst "AddOn02a" aufgerufen werden, das den Quelltext    }
  5. { "AddOn02b" (erweiterter TDataBase-Prototyp) erzeugt, der dann    }
  6. { hier eingebunden wird.                                           }
  7. { ──────────────────────────────────────────────────────────────── }
  8. {      (c)  1992  by  Aurora  featuring  M.J. Schwaiger            }
  9. { ──────────────────────────────────────────────────────────────── }
  10.  
  11. PROGRAM ProtTst1;
  12.  
  13.   USES
  14.     Error,
  15.     TDB,
  16.     AStrings,
  17. {$IFDEF Windows}
  18.     STRINGS,
  19. {$ENDIF}
  20.     AddOn02b;              { Muß nach (!) TDB stehen, da sonst das }
  21.                      { falsche "TDataBase"-Objekt verwendet wird ! }
  22.  
  23.   VAR
  24.     Rec            : TDataRec;
  25.     db             : PDataBase;
  26.  
  27.   BEGIN
  28.     SetErrHandler (ErrPrint);
  29.  
  30.     db := NEW (PDataBase, Use ('AddOn02b'));
  31.  
  32.     WITH Rec DO
  33.     BEGIN
  34.       Deleted := False;
  35.       Key := 'The first one ...';
  36.       Inhalt := StrPasNew ('Dies ist der Memoinhalt - diesmal in der Kurzform als Pascal-like String');
  37.       Select := True;
  38.     END;
  39.  
  40.     db^.AppendRec (Rec);
  41.  
  42.     WITH Rec DO
  43.     BEGIN
  44.       Deleted := False;
  45.       Key := 'And another one ...';
  46.       Inhalt := StrPasNew ('Ein weiterer Memoinhalt ...');
  47.       Select := False;
  48.     END;
  49.  
  50.     db^.AppendRec (Rec);
  51.  
  52.     DISPOSE (db, Close);
  53.   END.
  54.