应该用buff: array[1..64*1024] of Char吧?StrPas( buff )即可,或者直接赋值也行: Memo1.Text := buff;

解决方案 »

  1.   

    写错了,应该是:Memo1.Lines.Text := buff;Memo1.Lines就是一个TStrings  
      

  2.   

    改一下定义:
    buff: array[0..64*1024-1] of PChar
    就可以啦
      

  3.   

    改一下定义:
    buff: array[0..64*1024-1] of Char
    就可以啦 
      

  4.   

    不行,
    buff: array[0..64*1024-1] of Char
    读到的是固定内容
    我要读的内容每分钟都在变化:
    buff: array[1..64*1024] of PChar for a := 1 to 64 do
        begin
          for b := 1 to 1024 do
          begin
            messageshow.Lines.add(string(buff[a,b]));
          end;
        end;
    这样读的时候老4机