inputdlg.pas

来自「国外著名恢复软件Drive_Rescue 公布的早期源码 版本是1.8 delp」· PAS 代码 · 共 57 行

unit inputdlg;

interface

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

type
  TInputForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    PromptLabel: TLabel;
    InputEdit: TEdit;
  private
    { Private declarations }
    function Execute: Boolean;

  public
    { Public declarations }
    function GetString(title, prompt: string; var s: string): Boolean;
    function GetInteger(title, prompt: string; var i: Integer): Boolean;
  end;

var
  InputForm: TInputForm;

implementation

{$R *.DFM}

function TInputForm.Execute: Boolean;
begin
  InputEdit.Text := '';
  Result := ShowModal = mrOk;
end;

function TInputForm.GetString(title, prompt: string; var s: string): Boolean;
begin
  caption:=title;
  PromptLabel.Caption := prompt;
  Result := InputForm.Execute;
  if Result then
    s := InputEdit.Text;
end;

function TInputForm.GetInteger(title, prompt: string; var i: Integer): Boolean;
begin
  Caption:=title;
  PromptLabel.Caption := prompt;
  Result := InputForm.Execute;
  if Result then
    i := StrToInt(InputEdit.Text);
end;

end.