Delphi中的“流”类[4]-遍历读取流中的所有数据
2010-11-16 15:32
369 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); //先创建一个测试文件 var list:TStringList; begin list:=TStringList.Create; list.Add('ABCDEFGHIJKLMNOPQRSTUVWXYZ'); list.SaveToFile('f:\temp\test.txt'); list.Free; Memo1.Lines.LoadFromFile('f:\temp\test.txt'); end; procedure TForm1.Button1Click(Sender: TObject); var ms:TMemoryStream; c:Char; s1,s2:string; begin ms:=TMemoryStream.Create; ms.LoadFromFile('f:\temp\test.txt'); {读入内存流} s1:=''; s2:=''; ms.Position:=0; {指针到开始} while ms.Position < ms.Size do {循环读出} begin ms.Read(c,1); {每读出一个字节, 指针会自动移到新的位置} s1:=s1 + c + ' '; {读出来的字符加上空格后追加到s1变量里} s2:=s2 + IntToHex(Byte(c),2) + ' '; {用两位数的十六进制记录} end; Memo1.Lines.Text:=s1; Memo2.Lines.Text:=s2; ms.Free; {释放内存流对象 } end; end.
相关文章推荐
- 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
- 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
- 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
- 动画演示 Delphi 2007 IDE 功能[6] - 快速查看 Delphi 所有的核心数据类型
- sql server truncate用法--清空表中所有数据
- SQL查找数据库中所有没有主键的数据表脚本
- servlet处理数据库表中所有数据,在jsp页面表格中用jst forEach输出解决办法
- 对数据库里所有表的自增字段初始化
- Oracle 导出、导入某用户所有数据(包括表、视图、存储过程...)
- redis使用redis-cli查看所有的keys及清空所有的数据
- jquery获得表单所有数据,提交数组时,特别有用
- 最简单删除SQL Server中所有数据的方法
- oracel 批量删除当前用户下所有的表的数据及所有的表
- 删除数据中所有被挂马的数据
- 子类将继承父类所有的数据域和方法
- 100万个电话号码在文件里,找出重复的;内存不足以放下所有数据。
- 质疑:“中断向量表中所有数据32位累加和为0”,lpc芯片真的做校验了吗?
- 大数据技术专家王家林老师所有视频合集
- 清空初始化所有数据
- 在使用 ADO.NET 导出 Excel 文件时,设置 IMEX=1 仍不能导出所有数据的解决办法