delphi组件的数据如何转为数据库里的数据类型
我是初学者，请问如何将Edit1.caption的数据转换成access数据库里的数值型数据。
首先caption内的得是数字
strtoint(edit1.caption)//转为整型
转到SQL里,是语句,那就是字符串,是不用转的
StrTointDef(Edit1.caption, -1);
如果caption是数据则结果是caption代表的数据，否则返回-1
Edit1有caption属性吗?
除非你的Edit1不是从TEdit继承下来的
Var
k:Integer;
Try
k:=StrToInt(Trim(Edit1.Text))
Except
Showmessage('请输入数字');
Exit;
End;
...
下面保存到数据库中就直接使用k
呵呵~~姑且认为是edit.text
with ADOQuery1 do
begin
close;
sql.text := 'select * from tablename';
open;
end;
…… ……
ADOQUery1.FieldByName('fieldname').asstring := Trim(edit1.text);
最后别忘了post
with ADOQuery1 do
begin
close;
sql.text := 'update tablename set fieldname='+trim(edit1.text)+' where 1=1';
execute;
end;
…… ……
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
