没语法错误. 可当打开图片是就报错. *.jpg图片. 救我啊.
procedure TForm1.OpenFile(const Filename: string);
begin
try
Image1.Picture.LoadFromFile(FileName);
except
on EInvalidGraphic do
Image1.Picture.Graphic := nil;
end;end;procedure TForm1.FileListBox1Click(Sender: TObject);
begin
openfile(filelistbox1.FileName);
end;end.
procedure TForm1.OpenFile(const Filename: string);
begin
try
Image1.Picture.LoadFromFile(FileName);
except
on EInvalidGraphic do
Image1.Picture.Graphic := nil;
end;end;procedure TForm1.FileListBox1Click(Sender: TObject);
begin
openfile(filelistbox1.FileName);
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货