Eine Paradox-Tabelle erstellen

[davar]

Erweiterung zum Eintrag "Eine Paradoxtabelle erstellen" von Cuchulainn..

Einfacher finde ich die Möglichkeit von Martin Strohal, gefunden bei www.delphi-source.de:

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;

[edit=Chakotay1308]Absofort hier in der Code-Library zu finden. Mfg, Chakotay1308[/edit]