如何将一段中英文混合的字符串内容保存到二进制文件中,又如何从该二进制文件中读出该段字符串内容并还原为文本内容(字符串的格式及长度不定)(100分)

  • 主题发起人 主题发起人 liaozy
  • 开始时间 开始时间
L

liaozy

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将一段中英文混合的字符串内容保存到二进制文件中,又如何从该二进制文件中读出该段字符串内容并还原为文本内容(字符串的格式及长度不定),请附实现的源码,谢谢!
 
保存:
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;
 

Similar threads

回复
0
查看
1K
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
923
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部