散分了，顺便问个简单问题，下面是我的几句程序！

Question

var
  ms1:TMemoryStream;
  buff1:pchar;
begin
  ms1:=TMemoryStream.Create;
  ms1.LoadFromFile('F:\sadsa.txt');
  buff1:=stralloc(2);
  buff1:=PChar('31');
  ms1.Position:=0;
  ms1.Size:=0;
  ms1.write(buff1,length(buff1));
  ms1.SaveToFile('F:\sdfa.txt');
  mmo1.Lines.LoadFromFile('F:\sdfa.txt');
怎么得到  buff1:=PChar('31');呢?

Answer 1

怎么得到  buff1:=PChar('31');呢?这句话什么意思呀？你的这段程序好像有问题

Answer 2

我是说怎样从'F:\sdfa.txt'可以看到31呢？有什么问题，希望能够提出，谢谢！

Answer 3

把文本文件改成记录型的文件
type
  mestr=record 
     s:array[0..255] of char;
  end;再用操作记录型态的类型文件的方法操作之。瞎想的，不知道对不对，见谅！

Answer 4

把buff1:=PChar('31');保存到TMemoryStream里面啊，怎么不明白呢？