[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
ADDON02.PAS

 { ---------------------------------------------------------------- }
 {            TEST "TDB-ERWEITERTER TDATABASE-PROTOTYP"             }
 { ---------------------------------------------------------------- }
 { Es mu. zuerst "AddOn02a" aufgerufen werden, das den Quelltext    }
 { "AddOn02b" (erweiterter TDataBase-Prototyp) erzeugt, der dann    }
 { hier eingebunden wird.                                           }
 { ---------------------------------------------------------------- }
 {      (c)  1992  by  Aurora  featuring  M.J. Schwaiger            }
 { ---------------------------------------------------------------- }

 PROGRAM ProtTst1;

   USES
     Error,
     TDB,
     AStrings,
 {$IFDEF Windows}
     Strings,
 {$ENDIF}
     AddOn02b;              { Mu. nach (!) TDB stehen, da sonst das }
                      { falsche "TDataBase"-Objekt verwendet wird ! }

   VAR
     Rec            : TDataRec;
     Db             : PDataBase;

   BEGIN
     SetErrHandler (ErrPrint);

     Db := NEW (PDataBase,  Use ('AddOn02b'));

     WITH Rec DO
     BEGIN
       Deleted := False;
       Key := 'The first one ...';
       Inhalt := stRPasNew ('Dies ist der Memoinhalt - diesmal in der Kurzfor
 m als Pascal-like String');
       Select := True;
     END;

     Db^.apPendRec (Rec);

     WITH Rec DO
     BEGIN
       Deleted := False;
       Key := 'And another one ...';
       Inhalt := stRPasNew ('Ein weiterer Memoinhalt ...');
       Select := False;
     END;

     Db^.apPendRec (Rec);

     DISPOSE (Db,  CLOSE);
   END.

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson