InputInt Routines
Allows Input of an Integer in a Dialog with given Caption and Prompt.

Unit
QESBPCSMsgs

Overloaded Variants
Function InputInt(const Caption, Prompt: string; var L: Int64): Boolean;
Function InputInt(const Caption, Prompt: string; var L: LongInt): Boolean;
Function InputInt(const Caption, Prompt: string; var L: LongWord): Boolean;
Function InputInt(const Caption, Prompt: string; var L: SmallInt): Boolean;
Function InputInt(const Caption, Prompt: string; var L: Word): Boolean;
Function InputInt(const Caption, Prompt: string; var L: ShortInt): Boolean;
Function InputInt(const Caption, Prompt: string; var L: Byte): Boolean;

Declaration
Function InputInt(const Caption, Prompt: string; var L: Int64): Boolean;

Description
If the user Cancels, then the function returns False. Invalid input is returned as 0.Ensures Default Cursor is displayed, preserves state of cursor.

Parameters
Caption Info to Display at the top of the Dialog.
Prompt Info to Display to the left of the Input Field.
Input & Output Value to be displayed & edited.

Returns
True if Ok is Clicked, False if Cancel is Clicked

Category
Routines that produce Dialogs

Implementation

function InputInt (const Caption, Prompt: string;
     var L: Int64): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: LongInt): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: LongInt): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: LongWord): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: LongWord): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: SmallInt): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: SmallInt): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: Word): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: Word): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: ShortInt): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: ShortInt): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;

Declaration
Function InputInt(const Caption, Prompt: string; var L: Byte): Boolean;

Implementation

function InputInt (const Caption, Prompt: string;
     var L: Byte): Boolean;
var
     Hold: TCursor;
     TempS: string;
begin
     Hold := Screen.Cursor;
     Screen.Cursor := crDefault;
     try
          if L <> 0 then
               TempS := Int2EStr (L)
          else
               TempS := '';
          Result := InputQuery (Caption, Prompt, TempS);
          if Result then
          begin
               if TempS <> '' then
                    L := Str2Int (TempS)
               else
                    Result := False;
          end;
     finally
          Screen.Cursor := Hold;
     end;
End;


HTML generated by Time2HELP
http://www.time2help.com