unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo; {需要添加两个 Memo 用于显示}
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//先制造一个测试文件
procedure TForm1.FormCreate(Sender: TObject);
var
strList: TStringList;
begin
strList := TStringList.Create;
strList.Add('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
strList.SaveToFile('c:\temp\test.txt');
strList.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
c: Char;
s1,s2: string;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile('c:\temp\test.txt'); {读入内存流}
s1 := '';
s2 := '';
ms.Position := 0; {指针到开始}
while ms.Position < ms.Size do {循环读出}
begin
ms.Read(c,1); {每读出一个字节, 指针会自动移到新的位置}
s1 := s1 + c + ' '; {用文本记录}
s2 := s2 + IntToHex(Byte(c),2) + ' '; {用两位数的十六进制记录}
end;
Memo1.Lines.Text := s1;
Memo2.Lines.Text := s2;
{Memo1 会显示: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z }
{Memo2 会显示: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 0D 0A}
ms.Free;
end;
end.
分享到:
相关推荐
delphi读取文件流delphi读取文件流 tfilestream利用字节数组复制文件
delphi遍历窗体句柄 准备区域截图用 类似qq截图
使用Delphi对需要的Excel进行遍历,遍历完成之后,支持导出Txt文件。
Delphi 在记录集中遍历大量数据时如何提高遍历速度,本实例 通过插入数据、ADO常规方式、ADO断开关联方式和删除数据的方式、Recordse方式综合演示如何在记录集中遍历大量数据时提高遍历速度,例子较实用,参考性比较...
遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件
关于 Delphi 中压缩流和解压流的应用关于 Delphi 中压缩流和解压流的应用关于 Delphi 中压缩流和解压流的应用关于 Delphi 中压缩流和解压流的应用关于 Delphi 中压缩流和解压流的应用关于 Delphi 中压缩流和解压流的...
使用Delphi递归法遍历磁盘目录..rar`
TMemoryStream(内存流) 入门 TFileStream(文件流) 读写 TMemoryStream(内存流)读取文件 遍历读取流中的所有数据
while SRI = 0 do begin if (SR.Name = '.') or (SR.Name = '..') then begin //不用做 end else if SR.Attr = faDirectory then begin if CheckBox1.Checked then begin Start(APath + '\' + sr.Name, SR...
通过Delphi去读取地磅或磅秤的数据 1.通过电脑的COM口读取数据 2.我的磅秤读取的原数据附件里有,大家看着自己读出来的数据是什么,在程序里改一下截取的位数就可以了
程序员面试题目:点击每个字节点显示其子节点级数
在win10系统中,使用delphi2010+TXLSReadWritell 5,读取excel(包括日期单元格)的读取,显示在TStringGrid中。如果读取的时候报Zlib decompress error错误,说明excel格式有问题。是在执行Read方法的时候,就已经...
遍历一个文件夹中的所有文件,有时候非常的有用,比如结合excel操作,就可以完成对报表的数据的合成和整理。
delphi中读取Excel数据delphi中读取Excel数据
DELPHI 读取&修改内存数据源代码,可读取或修改指定内存地址中的数据
关于Delphi7读取保存XML 读取XML,修改节点,保存XML的一个完整实例。
遍历 修改另外目标程序控件 添加修改属性 等等等遍历 修改另外目标程序控件 添加修改属性 等等等
Delphi_listbox两种遍历项目和搜索字符的方法 Delphi中listbox1,如何搜索Edit1.Text中对应数值的两种方法;大家各取所需吧。
通过Delphi去读取地磅或磅秤的数据 1.通过电脑的COM口读取数据 2.我的磅秤读取的原数据附件里有,大家看着自己读出来的数据是什么,在程序里改一下截取的位数就可以了
这是一个Delphi_用流来读取TXT文件的方法以及代码