Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/GSDB21.ZIP/DB_XPL10.PAS

Pascal/Delphi Source File | 1991-01-01 | 220 b | 16 lines

program DB_Xpl10;
uses
   GS_dBFld;

var
   f : GS_dBFld_Objt;

begin
   if f.Create('testfile') then
   begin
      f.Open;
      while f.FieldAppendScreen(true) do f.Append;
      f.Close;
   end;
end.