var
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
try
BitMap.LoadFromFile('d:\1.bmp')'
Table1.Edit;
Table1.FieldByName('MyImageField').Assign(BitMap);
Table1.Post;
finally
BitMap.Free;
end;
end;
BitMap: TBitMap;
begin
BitMap := TBitMap.Create;
try
BitMap.LoadFromFile('d:\1.bmp')'
Table1.Edit;
Table1.FieldByName('MyImageField').Assign(BitMap);
Table1.Post;
finally
BitMap.Free;
end;
end;
解决方案 »
- csdn的积分是不是有问题?!!!!!!为什么我不得分呢?!!!
- ShellView系列控件错误太多,有没好推荐?
- 如何自定义一个string类型属性,可以下拉列表选择呢?
- 大家帮帮忙吧,我只想要一下源码!!!
- Delphi7中XPManifest如何使用?它的作用是什么??
- 关于ttable的问题,请大家帮帮忙啊!!~
- 求救!求救!!在线等待!如何将dbgird中的内容导入表格??
- 元旦还要出差!郁闷,散分顺便帮我看一下这个问题!
- 这样写的FileWrite(hand,caption,Length(caption));怎么读不出来
- 请教DLL的参数问题;
- Kingron(WinAPI) Will you help me?
- 一个关于数据循环的问题?
我试验过了的确不行。