🚀 go-pugleaf

On Wed, 08 Dec 1999 22:08:03 GMT, _Avenger@NO(_)SPAM_flashmail.com
(Avenger) wrote:

oplossing gevonden in een andere Delphi ng :
x.create(self) vervangen door

	x := tTable.Create(nil);

en op het einde van de procedure het geheugen terug vrijgeven door :
	x.free;

hopelijk heeft iemand wat aan deze info



>Hi 
>
>Ik probeer in runtime een tabel te maken. Daarvoor roep ik een
>procedure aan die dat gaat doen ( zie hieronder)
>
>Deze procedure staat echter in een aparte module (unit), 
>Daar de tabel X niet verwijst naar een object van het type TTable op
>een form, moet ik dus eerst dat object cre�ren. en hier loopt dat fout
>    x.Create(Self);
>werkt niet, waarom weet ik niet.
>
>Moest ik een object van het type TTable meegeven als extra parameter,
>en dat TTable object is dan gemaakt in design time, dan werkt het wel.
>
>Dit wil ik echter niet, daar er dan een "dummy" table op mijn form
>staat. 
>
>
>Alvast bedankt voor de  reacties
>
>de procedure :
>
>procedure MaakTesTTabel(strLocation : string);       
>var x : TTable;
>begin
>    x.Create(Self);
>   with x do
>   begin
>        DatabaseName := strLocation;
>        TableName    := 'tblTest.dbf';
>        TableType    := ttDBase;
>        with FieldDefs do       // toevoegen velden
>        begin
>            clear;
>	add(....) 	
>	....
>        end;
>        CreateTable;
>        with IndexDefs do      // toevoegen indexen
>        begin
>            clear;
>	addindex(...)
>	....
>        end;
>   end;
>end;
>
>Avenger
>
>remove  the obvious from e-mail
>----------------------------------------------
>Windows9x Faq : www.crosswinds.net/~windows9x
>----------------------------------------------
>Till all are one!

Avenger

remove  the obvious from e-mail
----------------------------------------------
Windows9x Faq : www.crosswinds.net/~windows9x
----------------------------------------------
Till all are one!