Paradox7 Tabelle zur Laufzeit erzeugen.

[Christian18]

Guten Abend,

Wie kann ich eine Tabelle zur Laufzeit erzeugen. OK, diese Frage ist vieleicht ein bisschen komisch. Wie man das tut weiß ich auch, aber ich brauche ein paar sekundär indizies. Die Tabelle soll zur laufzeit erzeugt werden und so aussehen wie diese die ich hier am anhang mitsende.

Viel Spaß beim knobeln

PS: Schon einmal vielen Dank im vorraus.

[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

[Kuddel1999]

Vielen Dank für die Hilfe! Ich konnte mit der Hilfe leider nichts anfangen. Ein lob nocheinmal an das Forum!

[grayfox]

hallo ex_knuddel!

wie meinst du das?

Zitat:

Vielen Dank für die Hilfe! Ich konnte mit der Hilfe leider nichts anfangen

mfg, stefan