Re: TZF - Opening DBF at runtime

"b.evers" <[email protected]> Fri, 11 Jul 2003 21:41:15 +0200
Newsgroups gmane.comp.lang.delphi.topaz
Message-ID <[email protected]>
Look at the Wbrowse demo that comes with Topaz. That does it.

Benno

----- Original Message -----
From: <[email protected]>
To: <[email protected]>
Sent: Friday, July 11, 2003 9:32 PM
Subject: RE: TZF - Opening DBF at runtime


> I don't want to create a file at runtime, I want to open any ole DBF I
> want to without having to know it's pre-defined structure...
>
>
> Eitan Gilboa wrote:
> >
> > Marie,
> >
> > >> I believe you always have to have a structure pre-defined, either
using
> > a dummy file or in code.
> >
> > Not really... You can create, open and use a DBF at run time like so:
> >
> > Here's essentially what you need to do in order to create a DBF at run
> > time:
> >
> >   {type- must be a valid dBASE type, like:  'C')   }
> >
> >    procedure TForm1.Button1Click(Sender: TObject);
> >    VAR dbf: TTzDbf;
> >    begin
> >      dbf := TTzDbf.Create(Application); { create an instance of TTzDbf }
> >      try
> >        dbf.DbfFields.Clear;
> >        dbf.DbfFields.Add('FirstN,C,30,0');    { add the fields }
> >        dbf.DbfFields.Add('LasttN,C,30,0');
> >        dbf.DbfFields.Add('Phone,C,12,0');
> >        dbf.DbfFields.Add('amount,N,10,2');
> >        dbf.DbfFilename := 'c:\MyDbf.dbf';
> >        dbf.Active := TRUE;
> >        dbf.Active := FALSE;  { That's it! }
> >      finally
> >        dbf.Free;
> >      end;
> >    end;
> >
> >
> > Best wishes,
> >
> > Eitan.
> > URL: http://perso.wanadoo.fr/eitang
> >
> >
>
>

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================