【控件功能】我来做练习-第7课-二进制文件如何读取和保存呢

二进制文件如何读取和保存呢

提示：直接打开是乱码，如下图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;