[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
UNITS02.PAS
{ ---------------------------------------------------------------- }
{ DEMOPROGRAMM FEHLERBEHANDLUNG DURCH DEFINITION ERROR-HANDLER }
{ ---------------------------------------------------------------- }
{ Versucht, f.r das Feld "Name" der Datenbank "DBDEMO06.DBF" einen }
{ Index zu erzeugen - was nat.rlich nicht klappt, da ich ja den }
{ Error-Handler ausprobieren will ... }
{ ---------------------------------------------------------------- }
{ (c) 1992 by Aurora featuring M.J. Schwaiger }
{ ---------------------------------------------------------------- }
{ History: }
{ 1992-04-28 MS Interfacefestlegung und Implementierung. }
{ ---------------------------------------------------------------- }
PROGRAM Units02;
{$UNDEF Windows}
{$UNDEF Vision}
USES
{$IFDEF Windows}
WINCRT,
{$ENDIF}
DbTypes, { Enth.lt die Typdefinitionen f.r alle }
{ Module des Datenbanksystems TDB. }
Error, { Fehlerbehandlungsroutinen, -handler }
Units02a, { Fehlerhandler }
TDB; { Die eigentlichen Datenbank-Objekte. }
VAR
DB : PDataBase; { Datenbankobjekt }
Index1 : PIndex; { Indexobjekte }
CI : TIdxCreateInfo;
{ Wird zum Initialisieren Index ben.tigt }
BEGIN { Hauptprogramm }
InstallHandlers;
SetUser ('Aurora / Markus Schwaiger');
SetLogMode (LmSafe);
WRITELN (MEMAVAIL);
{ Speicherallozierung und Initialisierung des Datenbankobjektes }
DB := NEW (PDataBase,
Use ('C:\xyz$$@@.DBF')); { Wenn's die Datenbank gibt ... }
IF (GetErr = 0) AND (DB^.Count > 0) THEN { Keine Fehler ? }
BEGIN { Wird nie ausgef.hrt ! }
CI.AField := 'STRASSE'; { Auf Feld "Name" }
CI.Typ := NTX; { Typ Clipper-Index }
CI.IndexLen := 40; { Schl.ssell.nge 20 Zeichen }
CI.KeyBuild := 'STRASSE'; { dBase-"Bauanleitung" }
{ Initialisierung / Erstellung Indexfile }
Index1 := NEW (PIndex, Create ('UNITS02', CI, DB));
DB^.IndexOn ('STRASSE', Index1);
DISPOSE (DB, CLOSE); { Index wird automatisch mit gel.scht ! }
END; { IF (GetErr = 0) AND ... }
WRITELN (MEMAVAIL);
WRITELN;
WRITE ('Weiter mit Taste ...');
READLN;
END. { PROGRAM Units02 }
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson