动态创建表,表名由用户在edit里输入。怎么将edit里的变量表名赋给SQL呢?
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910
创建10个表 str_SQL:='create table %s (aaa varchar(20) ,bbb int)'; for i:=1 to 10 do begin .. s:=format(str_SQL,['table'+inttostr(i)]) qury1.sql.add(s); .... end;