Neue Tabelle aus dem Programm heraus anlegen

[Mario]

Ich habe Deinen Code mal überarbeitet:

Code:

{ 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 := ExtractFilePath(edit1.text);
  TableType := ttParadox;
  TableName := ExtractFileName(edit1.text);

  { Dann die Felder in der Tabelle beschreiben }
  with FieldDefs do begin
    Clear;
      with AddFieldDef do begin
        Name := 'Name';
        DataType := ftString;
        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 } 
  end; 
  { CreateTable-Methode zu Erzeugen der Tabelle aufrufen } 
  CreateTable; 
  end; 

end;

Erst mal hast Du Database frei gelassen. Sofern du keinen Alias gesetzt hast, sollte dort der Pfad stehen.
Dann sollte Table nie mit Pfad sein, habe ich geändert.
Dann kann ein Feld Name vom Typ Integer nie 20 groß sein, ich habe es auf String geändert.
Dann habe ich noch alle Inidizes gelöscht. Was hattest Du denn damit vor? Du wolltest Felder im Index benennen, die Du gar nicht angelegt hast.