SQL -Befehl 'CreateTables' at runtime

[wendelin]

Hallo,
zunächst möchte ich Herrn Jaenicke für seine Antwort auf meine Frage zum Thema 'Create Tables' vom 11.09.23 danken.
Ich habe mein Problem vollständig gelöst, wenn auch mit Schwierigkeiten.
Nun habe ich aber ein neues Problem. Siehe Pfeil auf die Zeile s := 'CREATE TABLE Extend '
Ich möchte den TableName (hier z.B. Extend ) nicht statisch innerhalb des kompletten Strings schreiben ,sondern als z.B.als Übergabe von Edit.Text.
Dies geht aber nicht, denn wenn ich die procedure aufrufe wird mir zwar RunTime eine neue Tabelle erzeugt,allerdings dann mit dem Namen Extend.
Geht das überhaupt mit SQL und wenn ja wie ?

Delphi-Quellcode:

(*        Create Tables on RunTime           *)
(*       TEIL3 --- TEIL3 --- TEIL3           *)
(* ----------------------------------------- *)
procedure TForm3.BitBtn2Click(Sender: TObject);
(* ----------------------------------------- *)
VAR s , Extend : STRING;
begin
   Extend := Edit1.Text;
-->   s :=  'CREATE TABLE  Extend '
       + '('
       + ' ID1 INTEGER NOT NULL PRIMARY KEY, '
       + ' Stock CHAR(35), '
       + ' AktDatum DATE, '
       + ' StockOPEN NUMERIC(15,2), '
       + ' StockHigh NUMERIC(15,2), '
       + ' StockLOW  NUMERIC(15,2), '
       + ' StockCLOSE NUMERIC(15,2) '
       + ');';

  with Datamodule2 do
  begin
    If IBD.Connected = True Then IBD.Close;
    IBD.Params.Clear;
    IBD.Params.Values['user_name'] := 'SYSDBA';
    IBD.Params.Values['password']  := 'masterkey';
    IBD.DatabaseName  := g_DBPfad;
    IBD.Open;
    //neue Transaktion starten
    if not IBT.InTransaction then IBT.StartTransaction;
    //SQL-String setzen
    IBSQL.SQL.Clear;
    IBSQL.SQL.Add(s);
    //SQL Anweisung ausführen
    IBSQL.ExecQuery;
    IBT.Commit;
    IBD.Connected := false;
  end;
end;

Danke , Wolfgang