Paradox7 Tabelle Dynamisch erstellen

[MrSpock]

Hallo Christian18,

da hilft dir die Methode CreateTable.
Aus der OH zu CreateTable:

Delphi-Quellcode:

with Table1 do

begin
  Active := False;  { Die Table-Komponente darf nicht aktiv sein }

  { Zuerst den Tabellentyp beschreiben und die Tabelle benennen }
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';

  { Dann die Felder in der Tabelle beschreiben }
  with FieldDefs do
  begin
    Clear;
    Add('Field1', ftInteger, 0, True);
    Add('Field2', ftString, 30, False);
  end;

  { Dann alle Indizes beschreiben }

  with IndexDefs do
  begin
    Clear;
    { Der erste Index hat keinen Namen, denn er ist ein primärer Paradox-Schlüssel }
    Add('', 'Field1', [ixPrimary, ixUnique]);
    Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
end;

  { Nun ist alles definiert. Die Tabelle kann erzeugt werden. }
  CreateTable;
end;