Im Verzeichnis C:\Programme\Gemeinsame Dateien\CodeGear Shared\Database Desktop \dbd32.exe
(bei mir hjedenfalls)ist der Database Desktop oder
so :
Table auf Form stellen
dann
Delphi-Quellcode:
with table1
do
begin
Active := False;
DatabaseName := '
';
TableType := ttParadox;
TableName := '
test.db';
// Vorhandene Tabelle nicht überschreiben
if not table1.Exists
then
begin
{ Die Tabellenkomponente darf nicht aktiv sein. }
{ Zuerst Typ der Tabelle beschreiben und }
{ ihr einen Namen zuweisen. }
{ Danach die Felder der Tabelle definieren. }
with FieldDefs
do
begin
Clear;
with AddFieldDef
do
begin
Name := '
ZTXT_COUNTER';
DataType := ftAutoInc;
end;
with AddFieldDef
do
begin
Name := '
ZTXT_SIZE';
DataType := ftInteger;
end;
with AddFieldDef
do
begin
Name := '
ZTXT_TYPE';
DataType := ftString;
Size := 12;
end;
with AddFieldDef
do
begin
Name := '
ZTXT_TEXT';
DataType := ftMemo;
end;
end;
// With Fielddefs do Begin
// Nun die Indizes definieren
with IndexDefs
do begin
Clear;
{ Der erste Index hat keinen Namen,
{ da er ein Paradox-Primärschlüssel ist }
with AddIndexDef
do begin
Name := '
';
Fields := '
ZTXT_COUNTER';
Options := [ixPrimary];
end;
with AddIndexDef
do begin
Name := '
TXTTYP';
Fields := '
ZTXT_TYPE';
Options := [ixCaseInsensitive];
end;
end;
// With Index Defs
{ Tabelle mit Methode CreateTable erstellen }
CreateTable;
end;
// If Not EmptyTable;
// tabelle nicht öffnen
// Open;
end;
// with table1
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]