Delphi 如何快速读写文件中的字符串

本文整理自网络，侵删。

 
const
  szChar = SizeOf(Char);
/// 

///   saves a string to a file
/// 
procedure StringToFile(const s: string; const FileName: string);
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    FileStream.WriteBuffer(Pointer(s)^, (Length(s) * szChar));
  finally
    FreeAndNil(FileStream);
  end; // try
end;

/// 

///   returns the content of the file as a string
/// 
function StringFromFile(const FileName: string): string;
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(Result, (FileStream.Size div szChar));
    FileStream.ReadBuffer(Pointer(Result)^, FileStream.Size);
  finally
    FreeAndNil(FileStream);
  end; // try
end;
 

相关阅读 >>

Delphi 使电脑睡眠代码

Delphi 对比两个文件是否相同的函数

Delphi fmx手机app，如何下载网站图片而不卡界面

Delphi 系统服务和普通forms程序共存一体的实现

Delphi动态创建30个按钮，每行6个共5行，顺序排列

Delphi 怎样判断windows的dpi大小？

Delphi gethomepath - 获取用户程序数据目录

Delphi启动/停止windows服务,启动类型修改为"自动"

Delphi 去字符串长度函数 strlen,length

Delphi xe10 文件目录/路径操作 （andorid、ios、windows）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何快速读写文件中的字符串