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 ==^================================================================