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:=ttdBase; // Tabelle erhält das dBase-Format
with FieldDefs do begin
clear;
Add('NAME', ftString, 25, false);
Add('BEZ', ftString, 50, false);
end;
CreateTable;
end;
Also hier hab ich schnell nomal ne Prozedur rausgekrammt bei der das erstellen von dbf dateien auf jeden fall läuft.