Paradox7 Tabelle zur Laufzeit erzeugen.

[grayfox]

hallo christian!

du könntest das zb so lösen:

Delphi-Quellcode:

{$UNTESTED}
procedure TForm1.TabAnlegenClick(Sender: TObject);
var
  tmpTable: TTable;
begin
  tmpTable:= TTable.Create(self);
  with tmpTable do begin
    DatabaseName:= 'LW:\Pfad';
    Tablename   := 'Tabellenname';
    TableType   := ttParadox;
  end;

  with tmpTable do begin
    Close;
    With FieldDefs do begin
      Clear;
      Add('ID',ftAutoInc,0,true);
      Add('Nr',ftInteger,0,false);
      Add('Werte',ftFloat,0,false);
    end;
    with IndexDefs do begin
      Clear;
      Add('','ID',[ixPrimary,ixUnique]);
      Add('IRIdx','Nr',[]);
    end;
    CreateTable;
  end;

  tmpTable.Free
end;

Zitat:

Viel Spaß beim knobeln

was gibts denn daran zu knobeln? einfach einen TTable auf die Form ziehen & F1 drücken...

mfg, stefan