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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.058243036270142 seconds