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

最新推荐文章于 2020-03-13 18:49:02 发布

百炼成钢百忍成佛

最新推荐文章于 2020-03-13 18:49:02 发布

阅读量1.7k

点赞数

文章标签： delphi buffer button forms windows class

本文链接：https://blog.csdn.net/beyondqd/article/details/6722519

版权

本文介绍如何在 Delphi 中使用内存流（TMemoryStream）读取文件。在 FormCreate 事件中创建了一个文件并保存到 'c: emp est.txt'，然后在 Button1Click 事件中将文件内容加载到内存流，再显示到 Memo1 中。Button2Click 事件通过字符指针读取流中内容，Button3Click 事件则演示了如何将流内容读入缓冲区。文章详细解释了 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;
begin
strList := TStringList.Create;
strList.Add('