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