指针如何与Stream交换数据，来者有分!!!!!!!

[lance09]

问题如上，请高手指教一二，已经困挠多时了
QQ:6903836

[netlib]

var
a: Pointer;
b: TStringStream;
begin
B:=TStringStream.Create('11111');
GetMem(A,5);
B.Read(PChar(A^),5);
Showmessage(PChar(a));
FreeMem(A);
end;

[netlib]

var
a: Pointer;
b: TStringStream;
begin
B:=TStringStream.Create('11111');
GetMem(A,5);
B.Read(PChar(A^),5);
Showmessage(PChar(a));
FreeMem(A);
end;

[huamin]

up

[netlib]

var
a: Pointer;
b: TStringStream;
begin
B:=TStringStream.Create('11111');
GetMem(A,5);
B.Read(PChar(A^),5);
Showmessage(PChar(a));
FreeMem(A);
end;

[netlib]

var
a: Pointer;
b: TStringStream;
begin
B:=TStringStream.Create('11111');
GetMem(A,5);
B.Read(PChar(A^),5);
Showmessage(PChar(a));
FreeMem(A);
end;

[netlib]

var
a: Pointer;
b: TStringStream;
begin
B:=TStringStream.Create('11111');
GetMem(A,5);
B.Read(PChar(A^),5);
Showmessage(PChar(a));
FreeMem(A);
end;

[Tiga]

同意两位星级人物。


来迟了。


55555555555555555555555555555555555

[lance09]

hehe,好象不行!
提示abstract error错误

[chechy]

var
a: Pointer;
b: TStream;
...
b.Read(a^, 1000);

[lance09]

可惜不行呀

[yang6130]

var
buf: PChar;
ms: TStringStream;
begin
ms:=TStringStream.Create('11111');
GetMem(buf,6);
ms.Read(buf,5);
Showmessage(strpas(buf));
ms.free;
FreeMem(bif);
end;

[johnsonrao]

没话好说，不知道你怎样不行的，可以贴点原码出来看看

[stiwin]

高手都来了

[stanely]

delphi里面的对象就是指针!
var
Stream:TStream;

stream就是指针!

[silvermoon]

学习

[delphi_xizhousheng]

对象是指针!

[smhpnuaa]

这种题目总能吸引好多平时不露脸的人！

[santwy]

pascal
指针不好用

[santwy]

pascal
指针不好用

[lance09]

hehe,我试，有没有指针方面的delphi书籍。
最近，接触的全是指针，stream什么的，人都傻了，请高手指教