文章目录
二进制文件如何读取和保存呢
提示:直接打开是乱码,如下图1.dat文件
例如:
演示如下
提示:这里可以添加技术整体架构
源代码如下
`procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyList := TList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
MyList.Free;
end;
pr