zswang(伴水)(需要充充电)帮我再看看好吗？http://www.csdn.net/Expert/topic/483/483240.shtm

Question

function StringToFile(mString: string; mFileName: TFileName): Boolean;
var
  vFile: file of Char;
  I: Integer;
begin
  {$I-}
  AssignFile(vFile, mFileName);
  Rewrite(vFile);
  for I := 1 to Length(mString) do Write(vFile, mString[I]);
  CloseFile(vFile);
  {$I+}
  Result := (IOResult = 0) and (mFileName <> '');
end; { StringToFile }function FileToString(mFileName: TFileName): string;
var
  vFile: file of Char;
  vChar: Char;
begin
  Result := '';
  {$I-}
  AssignFile(vFile, mFileName);
  Reset(vFile);
  while not Eof(vFile) do begin
    Read(vFile, vChar);
    Result := Result + vChar;
  end;
  CloseFile(vFile);
  {$I+}
end; { FileToString }