zoukankan      html  css  js  c++  java
  • 关于 Delphi 中流的使用(3) 通过内存流读取文件

    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('aaaaaaaa');
      strList.Add('bbbbbbbb');
      strList.Add('cccccccc');
      strList.Add('dddddddd');
      strList.SaveToFile('c:\temp\test.txt');
      strList.Free;

      {同时建立内存流}
      mStream := TMemoryStream.Create;
    end;


    procedure TForm1.Button1Click(Sender: TObject);
    //通过流读文件到 Memo
    begin
      mStream.LoadFromFile('c:\temp\test.txt'); {把文件读入内存流}
      Memo1.Lines.LoadFromStream(mStream);      {把内存流载入 Memo1}
    end;


    procedure TForm1.Button2Click(Sender: TObject);
    //用字符指针读取流中的内容
    var
      pc: PChar;
    begin
      pc := mStream.Memory; {把字符指针指向内存流}
      ShowMessage(pc[0]);   {a; 第一个字符}
      ShowMessage(pc[10]);  {b; 这个第二行的第一个字符; 每行8个字再加换行与回车共10个字符}
      ShowMessage(pc[20]);  {c}
      ShowMessage(pc[30]);  {d}
    end;


    procedure TForm1.Button3Click(Sender: TObject);
    //从流读入到缓冲区
    var
      buffer: array[0..2] of Char; {定义个字符缓冲区}
    begin
      mStream.Seek(0, soFromBeginning);
      mStream.Read(buffer, SizeOf(buffer));
      ShowMessage(buffer); {aaa}

      mStream.Seek(10, soFromBeginning);
      mStream.Read(buffer, SizeOf(buffer));
      ShowMessage(buffer); {bbb}

      mStream.Seek(20, soFromBeginning);
      mStream.Read(buffer, SizeOf(buffer));
      ShowMessage(buffer); {ccc}

      mStream.Seek(30, soFromBeginning);
      mStream.Read(buffer, SizeOf(buffer));
      ShowMessage(buffer); {ddd}

    {关于 Seek 函数:
      参数1: Offset 是偏移量;
      参数2: Origin 是指针的基准位置, 有三个选值: soFromBeginning、soFromCurrent、soFromEnd
             soFromBeginning: 以开始为基准, 此时参数 Offset 要 >= 0;
             soFromCurrent: 以当前位置为基准;
             soFromEnd: 以结束为基准; 此时参数 Offset 要 <= 0;
      返回: 指针新位置
    }
    end;


    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      mStream.Free;
    end;

    end.

  • 相关阅读:
    需要做一个 Android客户端 访问 服务器数据库 的 Demo
    如何使用Device File Explorer 从计算机拷贝文件到模拟器/手机?
    Android Studio 3.0 正式版 初体验
    Android Studio 原生模拟器, DDMS data打不开,adb shell 修改权限遇到:/system/bin/sh: su: not found
    2017.9.6 实验课:安装环境遇到的问题总结
    IntelliJ IDEA
    移动终端
    关于编程~
    2018面向对象程序设计(Java)第18周学习指导及要求
    2018面向对象程序设计(Java)第17周学习指导及要求
  • 原文地址:https://www.cnblogs.com/wanqian/p/3117770.html
Copyright © 2011-2022 走看看