procedure TForm1.FormCreate(Sender: TObject);
var
ig : TImage;
begin
......ig:=TImage.Create(Form1);
with ig do
begin
Parent := Form1;
Left := 8;
Top := 8 ;
Width := 273 ;
Height := 313;
Stretch := true;
Picture.LoadFromFile('F:\work\'+ExcelApp.Cells[1,1].Value+'.jpg');
end;
end;怎么在运行的时候说Could not convert variant of type(String) into type(Double)
var
ig : TImage;
begin
......ig:=TImage.Create(Form1);
with ig do
begin
Parent := Form1;
Left := 8;
Top := 8 ;
Width := 273 ;
Height := 313;
Stretch := true;
Picture.LoadFromFile('F:\work\'+ExcelApp.Cells[1,1].Value+'.jpg');
end;
end;怎么在运行的时候说Could not convert variant of type(String) into type(Double)
解决方案 »
- 求一个Delphi的SaveDialog例子,谢谢了!
- 如何解决Excel文件中的复制图像,粘贴到Delphi的Image控件中
- BREAK or CONTINUE outside of loop 这种错误怎么解决
- Excel导入问题,请大家帮忙,急,解决就结贴!
- 怎么写按人名第一个字的笔画排序的程序
- 分不是问题,望高手详解
- 如何把ADODataset的某一行的狀態由rsmodified改為rsunmodified
- 非常简单的一个sql 语句问题,
- 让我们都来关心自己的身体-----程序员健康状态小调查
- 究竟是应该建立一个普通程序去实现还是应该建立一个服务程序去实现呢?高手请进.
- edit和sql问题
- 新手提问,请多指点!
试试
Picture.LoadFromFile('F:\work\'+String(ExcelApp.Cells[1,1].Value)+'.jpg');