请问网上看到这段,可以执行,但为什么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;请高人支援.....