Problem beim Erstellen einer Paradox Tabelle

[haentschman]

...und genau damit hat es was zu tun.

Delphi-Quellcode:

procedure TabWartungerzeugen;
var
  Tabelle: TTable;
begin
  Tabelle:= TTable.Create(nil); <---- Tabelle dynamisch erzeugen
  with Tabelle do
    begin
      SessionName:= 'Session1_1';
      TableType := ttParadox;
      TableName := WartungPName;
      with FieldDefs do
        begin
          Clear;
          with AddFieldDef do
            begin
              Name := 'Nummer';
              DataType := ftString;
              Size := 30;
            end;
          with AddFieldDef do
            begin
              Name := 'Gruppe';
              DataType := ftString;
              Size := 30;
            end;
          with AddFieldDef do
            begin
              Name := 'Tatigkeit';
              DataType := ftString;
              Size := 100;
            end;
          with AddFieldDef do
            begin
              Name := 'IO';
              DataType := ftBoolean;
            end;
          with AddFieldDef do
            begin
              Name := 'Mangel';
              DataType := ftBoolean;
            end;
          with AddFieldDef do
            begin
              Name := 'Erledigt';
              DataType := ftBoolean;
            end;
        end;
      with IndexDefs do
        begin
          with AddIndexDef do
            begin
              Name := '';
              Fields := 'Nummer;Gruppe;Tatigkeit';
              Options := [ixPrimary];
            end;
        end;
      CreateTable;
    end;
  Tabelle.Free;  <---- Speicher freigeben 
end;

...jetzt macht er was ich will !!!


PS: ...Selbstgespräche mag ich gar nicht so. Trotzdem danke an alle die sich Gedanken gemacht haben.