保存:
var
strText,strFileName: string;
f : TFileStream;
begin
//把要保存的内容赋值给strText
//...
strFileName:= "c:/txt1.txt"; // 保存的文件名
f:= TFileStream.Create(strFileName,fmCreate); // 新创建这个文件
try
f.WriteBuffer(strText[1], Length(strText);
finally
f.Free;
end;
end;
读取:
var
strText,strFileName: string;
f : TFileStream;
begin
strFileName:= "c:/txt1.txt"; // 读取的文件名
f:= TFileStream.Create(strFileName,fmOpenRead); // 独占、只读打开这个文件
try
SetLength(strText, f.Size);
f.ReadBuffer(strText[1], f.Size);
finally
f.Free;
end;
// 现在已经把内容读进strText
// ...
end;