bottleclient/StrReplaceDialog.pas

   1 unit StrReplaceDialog;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, StrReplaceFrame, StrReplace, RegexUtils;
   8
   9 type
  10   TfrmStrReplaceDialog = class(TForm)
  11     frmStrReplaceFrame: TfrmStrReplaceFrame;
  12     btnOk: TButton;
  13     btnCancel: TButton;
  14     procedure btnCancelClick(Sender: TObject);
  15     procedure btnOkClick(Sender: TObject);
  16   private
  17     function GetPair: TReplacePair;
  18     procedure SetPair(const Value: TReplacePair);
  19     { Private \90é\8c¾ }
  20   public
  21     property Pair: TReplacePair read GetPair write SetPair;
  22     function Execute: boolean;
  23   end;
  24
  25 var
  26   frmStrReplaceDialog: TfrmStrReplaceDialog;
  27
  28 implementation
  29
  30 {$R *.dfm}
  31
  32 procedure TfrmStrReplaceDialog.btnCancelClick(Sender: TObject);
  33 begin
  34   ModalResult := mrCancel;
  35 end;
  36
  37 procedure TfrmStrReplaceDialog.btnOkClick(Sender: TObject);
  38 var
  39   Dummy: String;
  40 begin
  41   with Pair do
  42   begin
  43     if UseRegExp and
  44       (SafeAndCheckRegExpSubst(BeforeStr, AfterStr, [rfReplaceAll], Dummy) <> '') then
  45     begin
  46       ShowMessage('\90³\8bK\95\\8c»\82É\8cë\82è\82ª\82 \82è\82Ü\82·\81B');
  47       Exit;
  48     end;
  49     if BeforeStr = '' then
  50     begin
  51       ShowMessage('\90³\82µ\82¢\8fð\8c\8f\82ð\8ew\92è\82µ\82Ä\82\82¾\82³\82¢\81B');
  52       Exit;
  53     end;
  54   end;
  55   ModalResult := mrOk;
  56 end;
  57
  58 function TfrmStrReplaceDialog.Execute: boolean;
  59 begin
  60   Result := ShowModal = mrOk;
  61 end;
  62
  63 function TfrmStrReplaceDialog.GetPair: TReplacePair;
  64 begin
  65   Result := frmStrReplaceFrame.Pair;
  66 end;
  67
  68 procedure TfrmStrReplaceDialog.SetPair(const Value: TReplacePair);
  69 begin
  70   frmStrReplaceFrame.Pair := Value;
  71 end;
  72
  73 end.