Neue Tabelle aus dem Programm heraus anlegen

[Flo]

Danke für deine Antwort.
Gesucht und gefunden
Aber als ich das ausprobieren wollte, hat sich nichts getan. Er hat mir keine neue Tabelle erzeugt. Ich hab folgenden Code benutzt.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
{ Evtl. vorhandene Tabelle nicht überschreiben }

if not Table1.Exists then begin

  with Table1 do begin

  { Die Table-Komponente darf nicht aktiv sein }
  Active := False;
  { Zuerst den Tabellentyp beschreiben und die Tabelle benennen }
  DatabaseName := '';
  TableType := ttParadox;
  TableName := edit1.text;

  { Dann die Felder in der Tabelle beschreiben }
  with FieldDefs do begin
    Clear;
      with AddFieldDef do begin
        Name := 'Name';
        DataType := ftInteger;
        Required := True;
        size := 20;
      end;

      with AddFieldDef do begin
        Name := 'Vorname';
        DataType := ftString;
        Size := 20;
        required := true;
      end;

      with AddFieldDef do begin
        Name := 'Note1';
        DataType := ftString;
        Size := 3;
        required := false;
    end;

    with AddFieldDef do begin
        Name := 'Note2';
        DataType := ftString;
        Size := 3;
        required := false;
    end;

    with AddFieldDef do begin
        Name := 'Note3';
        DataType := ftString;
        Size := 3;
        required := false;
    end;

    with AddFieldDef do begin
        Name := 'Note4';
        DataType := ftString;
        Size := 3;
        required := false;
    end;

    with AddFieldDef do begin
        Name := 'Note5';
        DataType := ftString;
        Size := 3;
        required := false;
    end;

    with AddFieldDef do begin
        Name := 'Bemerkungen';
        DataType := ftString;
        Size := 150;
        required := false;
    end;
    end;
  { Dann alle Indizes beschreiben }
  with IndexDefs do begin
    Clear;
    { Der erste Index hat keinen Namen, denn er ist ein }
    { primärer Paradox-Schlüssel }
      with AddIndexDef do begin
        Name := 'Name';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin
        Name := 'Vorname';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
        end;

       with AddIndexDef do begin
        Name := 'Note1';
        Fields := 'Field3';
        Options := [ixCaseInsensitive];
      end;

       with AddIndexDef do begin
        Name := 'Note2';
        Fields := 'Field4';
        Options := [ixCaseInsensitive];
      end;

       with AddIndexDef do begin
        Name := 'Note3';
        Fields := 'Field5';
        Options := [ixCaseInsensitive];
      end;

       with AddIndexDef do begin
        Name := 'Note4';
        Fields := 'Field6';
        Options := [ixCaseInsensitive];
      end;

       with AddIndexDef do begin
        Name := 'Note5';
        Fields := 'Field7';
        Options := [ixCaseInsensitive];
      end;

       with AddIndexDef do begin
        Name := 'Bemerkungen';
        Fields := 'Field8';
        Options := [ixCaseInsensitive];
      end;
    end;
  { CreateTable-Methode zu Erzeugen der Tabelle aufrufen }
  CreateTable;
  end;

end;
 end;

Ich möchte eine Tabelle mit Name, Vorname´, Note1,2,3,4,5 und Bemerkungen erzeugen. Das hab ich probiert.
Aber wo liegt der Fehler