SQL里的数据库名为netbar,表名为list,表为:
______________________________
ID 游戏名称 游戏路径 |
1 最终幻想 c:\ff8\ff8.exe |
2 超级玛丽 c:\supper\1.exe|
3 . . |
. . . |
. . . |
------------------------------procedure TForm1.Image1DblClick(Sender: TObject);
var
imagename,wenjianname:string;
t:integer;
begin
imagename := Timage(Sender).Name;
t:=strtoint(imagename[length(imagename)]);
//t即编号,根据t找文件名
showmessage(inttostr(t));//显示编号T
wenjianname:= ADOQuery1.FieldByName('本地路径').AsString;//这段赋值是错的,但我不知道该怎么写
OpenYouxi(wenjianname);//OpenYouxi是一个自定义的过程
end;另外将上面的过程自定义为一个过程
如:
procedure imagedblc(Sender: TObject);
.......
end;而在image1的DblClick过程中写
procedure TForm1.Image1DblClick(Sender: TObject);
begin
imagedblc;
end;
就会报错:not enough actual parameters
不知道是怎么回事?
______________________________
ID 游戏名称 游戏路径 |
1 最终幻想 c:\ff8\ff8.exe |
2 超级玛丽 c:\supper\1.exe|
3 . . |
. . . |
. . . |
------------------------------procedure TForm1.Image1DblClick(Sender: TObject);
var
imagename,wenjianname:string;
t:integer;
begin
imagename := Timage(Sender).Name;
t:=strtoint(imagename[length(imagename)]);
//t即编号,根据t找文件名
showmessage(inttostr(t));//显示编号T
wenjianname:= ADOQuery1.FieldByName('本地路径').AsString;//这段赋值是错的,但我不知道该怎么写
OpenYouxi(wenjianname);//OpenYouxi是一个自定义的过程
end;另外将上面的过程自定义为一个过程
如:
procedure imagedblc(Sender: TObject);
.......
end;而在image1的DblClick过程中写
procedure TForm1.Image1DblClick(Sender: TObject);
begin
imagedblc;
end;
就会报错:not enough actual parameters
不知道是怎么回事?
解决方案 »
- 高手请进,TTcpServer/TTcpClient的使用?
- 关于tsrversocket传输的问题
- 请教高手:我的数据库中存放着照片的位置,怎样可以在窗体上一一浏览这些图片?
- 下载D7
- 怎样在D7上安装在D5下编译的控件?我只有.dcu和.bpl文件(一个非常好的FormPrint组件)
- pro*c和delphi
- DirectSound 播放音频,退出窗体 报错
- 怎么在delphi中使flash的控件的右键菜单无效,且加上自已的popup菜单啊?
- 连接数据库(sql server 6.5)出现错误??
- 老生长谈(怎样把图片改成黑白,jpg格式的)。
- 谁有playicq的白金会员帐号,能否帮我下载一个程序或借我一用!
- Delphi中,ADODataSet与ADOQuery有什么区别啊?
procedure TForm1.Image1DblClick(Sender: TObject);
begin
imagedblc(iamge);
end;这样就可以了
呵呵,imagedblc(sender);就行了问题是wenjianname:= ADOQuery1.FieldByName('本地路径').AsString;//这段赋值是错的,但我不知道该怎么写
wenjianname:=后面的赋值应该怎么写,大家帮个忙好吗?