100大分相送，在线等待－－求读取内存流问题。

Question

1、把一个TXT文件读入内存流以后，如何去读取每一个字符啊？？
2、把EXE读入内存流以后，如何执行啊？
想到了别的再问
回答一个就给分

Answer 1

VAR
  MS:TMemoryStream;
  bb:byte;
begin
  MS:=TMemoryStream.create;
  try
    MS.LoadFromFile('aaa.txt');
    ms.position:=0;
    MS.read(byte,sizeof(byte));  //读取第一个字符
  finally
    MS.destroy;
  end;
end;

Answer 2

VAR
  MS:TMemoryStream;
  bb:byte;
begin
  MS:=TMemoryStream.create;
  try
    MS.LoadFromFile('aaa.txt');
    ms.position:=0;
    if not Eof(aaa.txt) then
    begin
       MS.read(byte,sizeof(byte));  //读取第一个字符
       inc(ms.position);
    end;
  finally
    MS.destroy;
  end;
end;

Answer 3

就是我的帖子也老是不让提！
说实话在这里我也学到了如何都去单个的字符
谢谢楼主
谢谢 stephenhu21centry() ( )

Answer 4

VAR
  MS:TMemoryStream;
  bb:byte;
  i:integer;
  Mystring: array of char;
begin
  MS:=TMemoryStream.create;
  try
    MS.LoadFromFile('aaa.txt');
    ms.position:=0;
    i:=0;
    while not Eof(aaa.txt) do
    begin
       i:=i+1;
       MS.read(bb,sizeof(bb));  //读取第一个字符
       setlength(Mystring,i);
       MySting[i]:=bb;
    end;
  finally
    MS.destroy;
  end;
end;不需要inc(ms.position);

Answer 5

MySting[i]:=bb;改为
MySting[i-1]:=bb