maptextfilefrm.pas

《Delphi 7经典问题解析》源代码 第一到七章 基础篇源程序 应用篇源程序

unit MapTextFileFrm;

interface

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

type
  Tfrm_MapTextFile = class(TForm)
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    MapTextFile: TMapTextFile;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_MapTextFile: Tfrm_MapTextFile;

implementation



{$R *.dfm}

procedure Tfrm_MapTextFile.Button4Click(Sender: TObject);
var
  aWriteString: PByte; //写入的数据
  aPos: Longint;  //写入位置
  aSize: Longint;  // 写入数据大小
  aReadString: string; //读出的字符串
  aTextChar: char; //读出的字符
begin
  //创建MapTextFile对象,并进行相关设置
  MapTextFile := TMapTextFile.Create;
  MapTextFile.FileName := 'E:\wb2.txt';
  MapTextFile.FileCreateSize := 200;
  MapTextFile.FileMode := fmCreate;
  MapTextFile.open;

  //向文件里写入数据
  move('abcefg', aWriteString, 6);
  aPos := MapTextFile.GetPos;
  MapTextFile.WriteBytes(aWriteString, aPos, 6);

  //从文件里读数据,并显示
  MapTextFile.SetPos(0);
  aReadString := MapTextFile.ReadString;
  MapTextFile.SetPos(2);
  aTextChar := MapTextFile.ReadChar;
  ShowMessage(aReadString);
  ShowMessage(aTextChar);

  //从文件里查找字符串'c'
  ShowMessage(IntTostr(MapTextFile.FindString('c', 0, 4)));

  //MapTextFile释放
  MapTextFile.Close;
end;


end.