十万火急。。。急急急...

Question

var
  YourStream:TStream;
  MyStrings:TStrings;
begin
  MyStrings:=TStrings.Create;
  MyStrings.Add('OK');
  TStrings.SaveToStream(YourStream);
  MyStrings.Free;
end;

Answer 1

笔误!
var
  YourStream:TStream;
  MyStrings:TStrings;
begin
  MyStrings:=TStrings.Create;
  MyStrings.Add('OK');
  MyStrings.SaveToStream(YourStream);
  MyStrings.Free;
end;

Answer 2

var
   caTmp  :array[0..100] of char;
   streamTest :Tstream;
begin
        streamTest.ReadBuffer(caTmp,sizeof(caTmp));
end;