如何读写文本文件?

Question

如何读写文本文件?在线等待

Answer 1

procedure TForm1.Button1Click(Sender: TObject);//写
var
  str:string;
  Fs:TFileStream;
  vLen:Integer;
begin
    str:='爱你没商量';//
    try
      Fs:=TFileStream.Create('c:\aaa.txt',fmCreate);
     Fs.WriteBuffer(str[1],Length(str));//
      vLen := Length(str);
      Fs.WRiteBuffer(vLen, SizeOF(vLen));
      if vLen > 0 then
        Fs.WriteBuffer(str[1], vLen);
    finally
      Fs.free;
    end;
end;procedure TForm1.Button2Click(Sender: TObject);//读
var
  str:string;
  fs:TFileStream;
  vLen:Integer;
begin
    try
      fs:=TFileStream.Create('c:\aaa.txt',fmOpenRead);
      fs.ReadBuffer(vLen, SizeOf(vLen));
     if vLen > 0 then
     begin
        SetLength(str,vLen);//长度
        fs.ReadBuffer(str[1],vLen );
     end;
      RichEdit2.Text :=str;//如何在这里正确读出"爱你没商量"
    finally
      fs.free;
    end;
end;