🚀 go-pugleaf

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!