Waarom werkt dit niet???
NewTable := TTable.Create;Code:var NewTable: TTable; Table, FieldDef : String; Size: Integer; Begin NewTable := TTable.Create; FieldDef := 'New'; Table := 'Test.dbf'; Size := 10; With NewTable do Begin Active := False; TableName := Table; TableType := ttDBase; TableLevel := 3; FieldDefs.Clear; FieldDefs.Add(FieldDef,ftString,Size,false); IndexDefs.Clear; End; End;
Dat is de fout!??? Maar waarom???
Bookmarks