delphi中替换图片问题。

[kyle_huang]

我已经做好了保存图片到数据库，也能显示在Image中。现在我想双击Image（当然还有OpenPictureDialog1），选择其他的图片，然后修改按钮。这样，我就把原来的图片给换了。求怎么解决？

[Robin95314852]

这是我制作的屏保保存图片的代码;
var
Strm: TMemoryStream;
vDir:String;
begin
if frmMain.ImgView.Picture.Graphic <> nil then
begin
vDir:=ExtractFileExt(OpenDialog1.FileName);
Strm:=TMemoryStream.Create;
try
frmMain.ImgView.Picture.Graphic.SaveToStream(Strm);
with DM.qryImage do
begin
Close;
SQL.Text:='Select * from Image where Num = '???';
Open;
if not IsEmpty then
begin
Edit;
Strm.Position:=0;
TBlobField(FieldByName('Image_List')).LoadFromStream(Strm);
Post;
end;
end;
finally
Strm.Free;
end;
end;
end;

[kyle_huang]

我已搞定。刚发完帖子，我就想起来了。亏了。

[kyle_huang]

再问个问题。

我的Sex在SQL中是nchar类型
别人说叫我改成bit类型

我在ComboBox中显示的是男、女，存进去是1、0

读取的1、0，显示的是男、女
该怎么解决呢？