VAR s , Extend : STRING;
begin
Extend := Edit1.Text;
--> s := 'CREATE TABLE Extend '
Den Variablenname würde ich als erstes umbenennen, z.B. in sTabellenname.
Das ganze könnte z.B. so aussehen.
Delphi-Quellcode:
var s, sTabellenname : String;
begin
sTabellenname := Edit1.Text;
s := 'CREATE TABLE ' + sTabellname
+ '('
+....
Sofern der Inhalt von Edit1 nicht überprüft wird, kann auf die Variable sTabellename verzichtet werden.
Sprechende Namen sind immer hilfreich:
Edit1.Text -> edTabellenname
Dies könnte dann z.B. so aussehen:
Delphi-Quellcode:
var
sSQL :
String;
begin
sQL := '
CREATE TABLE ' + edTabellenname.Text
+ '
('
+....
Gruss