关于 Delphi 中流的使用(6) 用流读写结构化文件
来源:互联网 发布:淘宝头条报名入口 编辑:程序博客网 时间:2024/05/20 22:13
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo; {添加 Memo 显示内容}
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TRec = record {定义一个记录}
name: string[8];
age: Word;
end;
//写入
procedure TForm1.Button1Click(Sender: TObject);
var
rec: TRec;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
rec.name := '张三'; rec.age := 8;
ms.Write(rec, SizeOf(rec));
rec.name := '李四'; rec.age := 81;
ms.Write(rec, SizeOf(rec));
rec.name := '王二麻子'; rec.age := 18;
ms.Write(rec, SizeOf(rec));
ms.SaveToFile('c:\temp\rec.dat');
ms.Free;
end;
//读取
procedure TForm1.Button2Click(Sender: TObject);
var
rec: TRec;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile('c:\temp\rec.dat');
Memo1.Clear;
ms.Position := 0;
while ms.Position < ms.Size do
begin
ms.Read(rec, SizeOf(rec));
Memo1.Lines.Add(rec.name + ' ' + IntToStr(rec.age));
end;
{Memo1 的显示结果会是:
张三 8
李四 81
王二麻子 18
}
ms.Free;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo; {添加 Memo 显示内容}
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TRec = record {定义一个记录}
name: string[8];
age: Word;
end;
//写入
procedure TForm1.Button1Click(Sender: TObject);
var
rec: TRec;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
rec.name := '张三'; rec.age := 8;
ms.Write(rec, SizeOf(rec));
rec.name := '李四'; rec.age := 81;
ms.Write(rec, SizeOf(rec));
rec.name := '王二麻子'; rec.age := 18;
ms.Write(rec, SizeOf(rec));
ms.SaveToFile('c:\temp\rec.dat');
ms.Free;
end;
//读取
procedure TForm1.Button2Click(Sender: TObject);
var
rec: TRec;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile('c:\temp\rec.dat');
Memo1.Clear;
ms.Position := 0;
while ms.Position < ms.Size do
begin
ms.Read(rec, SizeOf(rec));
Memo1.Lines.Add(rec.name + ' ' + IntToStr(rec.age));
end;
{Memo1 的显示结果会是:
张三 8
李四 81
王二麻子 18
}
ms.Free;
end;
end.
- 关于 Delphi 中流的使用(6) 用流读写结构化文件
- 关于 Delphi 中流的使用(6) 用流读写结构化文件
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- 关于 Delphi 中流的使用(3) 通过内存流读取文件
- 关于 Delphi 中流的使用(5) 组件序列化
- 关于 Delphi 中流的使用(5) 组件序列化
- Delphi 中流的使用
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
- 关于 Delphi 中流的使用:分割与合并文件的函数
- 关于 Delphi 中流的使用(9) 分割与合并文件的函数
- JAVA Proxy
- 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
- 随机函数学习笔记
- 各种进程名称
- 关于 Delphi 中流的使用(5) 组件序列化
- 关于 Delphi 中流的使用(6) 用流读写结构化文件
- 插入排序
- 关于 Delphi 中流的使用(7) 压缩与解压缩(TCompressionStream、TDecompressionStream)
- 关于 Delphi 中流的使用(8) 压缩与解压缩的函数
- ECSHOP源码分析
- APC的内部实现
- android的手机任务管理器,关键功能实现方法总结
- 关于 Delphi 中流的使用(9) 分割与合并文件的函数
- 两个常用的DIV弹出层效果代码