u_form1.~pas

很好地delphi书籍源码

unit U_Form1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ChoiceButton: TButton;
    ExecuteButton: TButton;
    ExitButton: TButton;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    WhatRG: TRadioGroup;
    procedure ExecuteButtonClick(Sender: TObject);
    procedure ChoiceButtonClick(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
    procedure WhatRGClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    F: File;
    Buf:array[0..1023] of Byte;
    FPointer:Longint;
    ByteRead:integer;
    Letter1,Letter2:byte;
    s:string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.ExecuteButtonClick(Sender: TObject);
var
  i:integer;
begin
  AssignFile(F,S);
  Reset(F,1);
  while not Eof(F) do
  begin
    FPointer:=FilePos(F);
    BlockRead(F,Buf,Sizeof(Buf),ByteRead);
    for i:=0 to ByteRead-1 do
    begin
      if Buf[i]=Letter1 then Buf[i]:=Letter2;
    end;
    Seek(F,FPointer);
    BlockWrite(F,Buf,ByteRead);
  end;
  CloseFile(F);
  Memo1.Lines.Clear;
  Memo1.Lines.LoadFromFile(S);
  ExecuteButton.Enabled:=false;
  ChoiceButton.Enabled:=true;
  StatusBar1.SimpleText:='操作完成';
end;

procedure TForm1.ChoiceButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    S:=OpenDialog1.FileName;
    Memo1.Lines.LoadFromFile(S);
    StatusBar1.SimpleText:=OpenDialog1.FileName;
    ExecuteButton.Enabled:=true;
    ChoiceButton.Enabled:=false;
  end;
end;

procedure TForm1.ExitButtonClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.WhatRGClick(Sender: TObject);
begin
  if  WhatRG.ItemIndex= 0 then
  begin
   Letter1:=32; Letter2:=44;
  end else
  begin
   Letter1:=44; Letter2:=32;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Letter1:=32;
  Letter2:=44;
end;

end.