home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TFF120.ZIP / FETCH1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  1.3 KB  |  56 lines
  1. Program FETCH1;
  2.  
  3. Uses MAXVAR, MAXDBF;
  4.  
  5.       { CREATE FETCH.DBF }
  6.  
  7. Var
  8.    dName       :   str255;
  9.    Flds        :   Fields;
  10.    i           :   integer;
  11.    FName       :   array[1..5] of Str10;
  12.    FType       :   array[1..5] of Char;
  13.    W           :   array[1..5] of FldWidth;
  14.    D           :   array[1..5] of FldDec;
  15.    Error       :   str255;
  16.  
  17. {$I DPERR.INC}
  18.  
  19. begin
  20.    FName [1] := 'FILENAME';
  21.    FName [2] := 'KEY_1';
  22.    FName [3] := 'KEY_2';
  23.    FName [4] := 'KEY_3';
  24.    FName [5] := 'KEY_4';
  25.    FType [1] := 'C';
  26.    FType [2] := 'C';
  27.    FType [3] := 'C';
  28.    FType [4] := 'C';
  29.    FType [5] := 'C';
  30.    W     [1] :=  12;
  31.    W     [2] :=  12;
  32.    W     [3] :=  12;
  33.    W     [4] :=  12;
  34.    W     [5] :=  12;
  35.    D     [1] :=   0;
  36.    D     [2] :=   0;
  37.    D     [3] :=   0;
  38.    D     [4] :=   0;
  39.    D     [5] :=   0;
  40.    WriteLn(' CREATING FETCH.DBF ');
  41.    dName := 'FETCH.DBF';
  42.    Result := Success;
  43.    for i := 1 to 5 do if Result = Success then
  44.    begin
  45.       Result := dp_BuildField(FName[i],FType[i],W[i],D[i],Flds[i]);
  46.       Error  := dpError(Result);
  47.    end;
  48.    if Result = Success then
  49.    begin
  50.       Result := dp_CreateDBF ( dName,5,Flds);
  51.       Error  := dpError(Result);
  52.       if Result = Success then WriteLn (' ',dName,' Successfully Created.')
  53.       Else WriteLn (' Can`t Create Database. ');
  54.    end;
  55. end.
  56.