在paradox表中建立Graphic字段类型。
程序嘛: FieldbyName('Picture').Assign(pictureName)
Table1.open;
Table1.Append;
Table1.FieldByName('Picture').Assign(Image1.Picture);
Table1.Post;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.open;
Table1.Last;
Image2.Picture.Assign(Table1.FieldbyName('Picture'));
程序嘛: FieldbyName('Picture').Assign(pictureName)
Table1.open;
Table1.Append;
Table1.FieldByName('Picture').Assign(Image1.Picture);
Table1.Post;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Table1.open;
Table1.Last;
Image2.Picture.Assign(Table1.FieldbyName('Picture'));
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货