[<<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