Eine Paradoxtabelle erstellen

[Cuchulainn]

So kann eine Paradoxtabelle während der Laufzeit erstellt werden.

Delphi-Quellcode:

with TblErgebnis do
begin
  active := false;
  DatabaseName := 'DBDEMOS';
  tabletype := TTParadox;
  tablename := StrPfad;
  Name := 'Ergebnis';

  // Erstellen des ersten Feldes
  with FieldDefs do
  begin
    clear;
    with AddFieldDef do
    begin
      name := 'Feld1';        // Feldname
      DataType := ftString;   // Feldtyp
      Size := 70;             // Feldgröße
    end;
  end;

  // Erstellen des zweiten Feldes
  with FieldDefs do
  begin
    clear;
    with AddFieldDef do
    begin
      name := 'Feld2';        // Feldname
      DataType := ftString;   // Feldtyp
      Size := 70;             // Feldgröße
    end;
  end;
  
  // Weitere Felder nach demselben Muster erstellen

  // Erstellen der Tabelle mit oben festgelegten Attributen
  CreateTable;
end;

[edit=r_kerber]In Delphi-Code-Tags geändert. Mfg, r_kerber[/edit]
[edit=Chakotay1308]Delphi-Tags korrigiert. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[CalganX]

davar weißt noch auf eine einfacherere Variante hin, die er im DSDT gefunden hat:

Delphi-Quellcode:

with Table1 do begin
  active:=false;  // Table-Zugriff muss auf jeden Fall geschlossen sein
  DatabaseName:=verzeichnis;  // Verzeichnis, in dem die Tabelle erzeugt werden soll
  TableName:='Artikel';  // Name der Datei, die erzeugt werden soll
  TableType:=ttParadox;  // Tabelle erhält das Paradox-Format
                         // und somit die Endung .db
  with FieldDefs do begin
    clear;
    Add('ID', ftAutoInc, 0, false);
    Add('Bezeichnung', ftString, 50, false);
    // weitere Felder
  end;
  CreateTable;
end;