procedure TForm1.Button1Click(Sender: TObject);
var
n : String;
begin
n:=trim(edit1.Text);
try
strtofloat(n);
except
showmessage('请输入正确的数值!');
exit;
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into temp (列一) values (' + n + ') ');
execsql;
end;
end;
sql.Add('insert into temp (列一) values (n);
试一下。
数值类型的一般不要加引号了。