请问网上看到这段,可以执行,但为什么cxgrid不会显示图片呢...
也设置为image了~执行后cxgrid还是空白的procedure TForm1.Button1Click(Sender: TObject);
var
AFileName: String;
AValue: AnsiString;
APicture: TPicture;
begin
ADODataSet1.Open;
while not ADODataSet1.eof do
begin
if not ADODataSet1.Fieldbyname('picture').IsNull then
begin
AFileName := ADODataSet1.Fieldbyname('picture').AsString;
if FileExists(AFileName) then
begin
APicture := TPicture.Create;
try
APicture.LoadFromFile(AFileName);
SavePicture(APicture, AValue);
finally
FreeAndNil(APicture);
end;
end
else
AValue := '';
self.cxGrid1DBTableView1.DataController.Values[ADODataSet1.RecNo-1, cxGrid1DBTableView1picture.Index] := AValue;
end;
ADODataSet1.Next;
end;
end;请高人支援.....
也设置为image了~执行后cxgrid还是空白的procedure TForm1.Button1Click(Sender: TObject);
var
AFileName: String;
AValue: AnsiString;
APicture: TPicture;
begin
ADODataSet1.Open;
while not ADODataSet1.eof do
begin
if not ADODataSet1.Fieldbyname('picture').IsNull then
begin
AFileName := ADODataSet1.Fieldbyname('picture').AsString;
if FileExists(AFileName) then
begin
APicture := TPicture.Create;
try
APicture.LoadFromFile(AFileName);
SavePicture(APicture, AValue);
finally
FreeAndNil(APicture);
end;
end
else
AValue := '';
self.cxGrid1DBTableView1.DataController.Values[ADODataSet1.RecNo-1, cxGrid1DBTableView1picture.Index] := AValue;
end;
ADODataSet1.Next;
end;
end;请高人支援.....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货