file2strunit.pas

三层的通用架构

unit File2StrUnit;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    RichEdit1: TRichEdit;
    Button2: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    FileName := Edit1.Text;
    if Execute then
      Edit1.Text := FileName;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  F: file;
  i, aByte: Byte;
  aString: string;
begin
  if FileExists(Edit1.Text) then
  begin
    Button1.Enabled := False;
    Screen.Cursor := crHourGlass;
    RichEdit1.Lines.Clear;
    AssignFile(F, Edit1.Text);
    ReSet(F, 1);
    try
      i := 0;
      while not Eof(F) do
      begin
        BlockRead(F, aByte, 1);
        if i = 255 then
        begin
          RichEdit1.Lines.Add(aString + ' +');
          i := 0;
        end;
        if i = 0 then
          aString := '    ';
        aString := aString + '#' + IntToStr(aByte);
        i := i + 1;
      end;
      if i > 0 then
        RichEdit1.Lines.Add(aString + ';')
      else
        if FileSize(F) > 0 then
          (PChar(RichEdit1.Text) + Length(PChar(RichEdit1.Text)) - 1)^ := ';';
    finally
      CloseFile(F);
    end;
    Screen.Cursor := crDefault;
    Button1.Enabled := True;
  end
  else
    ShowMessage('File not found!');
end;

end.