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

本文介绍了如何在 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;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值