关于 Delphi 中流的使用(3) 通过内存流读取文件

最新推荐文章于 2017-06-30 15:24:41 发布

shark_soft

最新推荐文章于 2017-06-30 15:24:41 发布

阅读量608

点赞数

文章标签： delphi buffer button forms windows class

本文链接：https://blog.csdn.net/shark_soft/article/details/2676911

版权

本文介绍了如何在 Delphi 中使用内存流（TMemoryStream）读取文件。通过创建一个内存流对象，加载文件内容，然后将内存流的数据加载到 Memo 控件显示，或者使用字符指针读取流中的特定内容，以及从流中读入到缓冲区进行展示。文章详细展示了使用 Seek 函数进行流定位的方法。

摘要由CSDN通过智能技术生成

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

var
mStream: TMemoryStream;

procedure TForm1 .FormCreate(Sender: TObject); //程序开始先创建一个准备要测试的文件
var
strList: TStringList;