给cAkk , soul 和 smartkid 发分, 三位请进(150分)

大家一人50分,呵呵,绝对公平
非常感谢大家!

您真够信用，您的问题还没解决，我很难受，请先不要给我分，您把您的问题
抽象成一个例子，简单点，实用点，我帮您做个看看，或许大家都有用。

首先明确一点.
integer,double ,..等等属于数据类型.要用一个变量表示只有用Variant
第二 所有的对象其实只是一个指针,包括string也是，所以TPicture,string,
可以转换为一个points。
然后可以想一些办法使之融合起来。
.....
待续

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
a:Variant;
img:TImage;
pointer;
begin
a:=Longint(Image1);
//保存在变量里
img:=pointer(Longint(a));
img.Canvas.LineTo(40,40);
//用被间接赋值的Image画根线，线在form上会显示。
end;

end.

哪个问题? 我都忘了.

呵呵，受之有愧，真是惭愧啊惭愧)

soul的方法挺有意思的,给我很大的启发
也许这次不用,下次也会用到,呵呵,真没想到强制型转化也能这么用
真是不看不知道,一看吓一跳,不是做不到,只有想不到
cAkk是贵人多忘事呀,呵呵,既然说不记得了,偶就不给你多了,偶是以小人之心
妒KK之怀呀,不要生气呀,我多给soul点大家不介意吧
大家这么客气干吗,分数就是用来给人的,难道说大富翁银行会每月加发10%
的利息?那我申请特别融资好了 //joke

多人接受答案了。