送分帖，新人小问题求解！

caima123 2015-01-30 07:53:09

TImage类中有这个属性：
property Picture: TPicture read FPicture write SetPicture;

现在搞不明白的是：
Image1.Picture.LoadFromFile('filename.bmp');

这究竟是用的Picture属性的read方法还是write方法？？？？

...全文

179 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

qkhhxkj102 2015-02-04

打赏
举报

我也没有搞明白楼主到底想问什么

踏雪无痕 2015-02-02

打赏
举报

读写都可以啊

kevin_li125 2015-02-02

打赏
举报

LoadFromFile是TImage类中的一个过程，而property Picture是定义的属性。不能简单地理解为读写。

「已注销」 2015-02-02

打赏
举报



 TPicture = class(TInterfacedPersistent, IStreamPersist)

  private

    FGraphic: TGraphic;



property Graphic: TGraphic read FGraphic write SetGraphic;



procedure TPicture.LoadFromFile(const Filename: string);

var

  Ext: string;

  NewGraphic: TGraphic;

  GraphicClass: TGraphicClass;

begin

  Ext := ExtractFileExt(Filename);

  Delete(Ext, 1, 1);

  GraphicClass := FileFormats.FindExt(Ext);

  if GraphicClass = nil then

    raise EInvalidGraphic.CreateFmt(SUnknownExtension, [Ext]);



  NewGraphic := GraphicClass.Create;

  try

    NewGraphic.OnProgress := Progress;

    NewGraphic.LoadFromFile(Filename);

  except

    NewGraphic.Free;

    raise;

  end;

  FGraphic.Free;

  FGraphic := NewGraphic;

  FGraphic.OnChange := Changed;

  Changed(Self);

end;