Mega Code Archive

 

Categories / Delphi / ADO Database

 

Paradox-tablo yaratılması

Codec By GeNiUS ! genius@turkiye.com Kod içerisinden bir Paradox tablosu şu şekilde yaratılır. with TTable.create(self) do begin DatabaseName := 'C:\temp'; TableName := 'FOO'; TableType := ttParadox; with FieldDefs do Begin Add('Age', ftInteger, 0, True); Add('Name', ftString, 25, False); Add('Weight', ftFloat, 0, False); End; IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]); CreateTable; End;