www.pudn.com > DriveRescuev1.8.zip > inputdlg.pas, change:2001-03-09,size:1168b

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.