文档章节

关于 Delphi 中流的使用(4) 遍历读取流中的所有数据

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 259
阅读 4
收藏 0
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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/01/1022239.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Okhttp解析(二)网络请求的执行

上节我们讲解了Okhttp的简单介绍,请求任务的分发,以及请求响应的拦截。现在我们分析数据的请求是如何进行的。 在阅读http请求数据之前,你可能需要了解http和tcp相关的知识。 http原理 ht...

Ihesong
2017/11/04
0
0
关于文件操作集锦 delphi

关于文件操作集锦 取得该快捷方式的指向EXE 关键词:快捷方式 LNK unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt......

vga
2014/04/23
0
0
storm starter学习(二) - 流聚合

SingleJoinExample示例说明了storm中流聚合的应用,将具有相同tuple属性的数据流整合成一个新的数据流。来看一下Topology。先定义两个数据源genderSpout和ageSpout,Fields分别为("id", "gen...

GoldenRoc
2014/08/11
0
0
谈谈 C++ 中流的缓冲区

谈谈 C++ 中流的缓冲区 始终2017-12-311 阅读 BufferStreamC++ 众所周知,C++ 语言本身并不提供 I/O 功能。C++ 的 I/O 是通过标准库中输入输出流来实现的。标准库在 头文件当中,预定义了六个...

始终
2017/12/31
0
0
Node.js流,这样的打开方式对不对!

Node.js流,这样的打开方式对不对! 俗话说的好:“人往高处走,水往低处流”;古语有云:“落花有意,流水无情”。()哎呀🤣,各位大佬,这点小事用不着惊动二营长的意大利炮了吧,进错频...

亦曾执着过不后悔
08/20
0
0

没有更多内容

加载失败,请刷新页面

加载更多

颜色模型与颜色应用---RGB颜色模型

中国龙-扬科
15分钟前
3
0
网络优化-tcp和udp的协作

TODO

梦想游戏人
18分钟前
4
0
list和数组转化

Java中List转换为数组,数组转List List转换为Array可以这样处理: ArrayList<String> list=new ArrayList<String>(); String[] strings = new String[list.size()]; list.toArray(strings);......

west_coast
18分钟前
2
0
LSP 商户端API

Your domain:                  lsp-api-merchant.hhs2717.cnVirtualhost conf:             /usr/local/nginx/conf/vhost/lsp-api-merchant.hhs2717.cn.confDirectory of:......

BeanHo
27分钟前
2
0
设计模式 之 访问者模式

设计模式 之 访问者模式 概念 核心理念:将数据结构与算法分离。 使用场景:数据结构不变动,算法经常变动。 1、一个Visitor类存放被访问的对象,访问者主要处理具体算法与行为。 // 访问者...

GMarshal
32分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部