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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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;

Answer 9

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

Answer 10

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