Function RealDialog displays a dialog box which requests the user to enter a REAL value. RealDialog automatically screens for valid numeric input.
FUNCTION RealDialog(
request : STRING;
default : STRING): REAL;def vs.RealDialog(request, default):
return REAL| Name | Type | Description |
|---|---|---|
| request | STRING | Dialog user prompt string. |
| default | STRING | Default value for input field. |
RealValue:=RealDialog('Enter a real value:','0.00');realValue = vs.RealDialog('Enter a real value', '0.00')temp_i := 1;
if dialogType = 'AngDialog' then temp_s := Num2Str (8, AngDialog (prompt, default)) ELSE
if dialogType = 'DistDialog' then temp_s := Num2StrF( DistDialog(prompt, default)) ELSE
if dialogType = 'IntDialog' then temp_s := Num2Str (0, IntDialog (prompt, default)) ELSE
if dialogType = 'RealDialog' then temp_s := Num2Str (8, RealDialog(prompt, default)) ELSE
IF dialogType = 'StrDialog' THEN temp_s := StrDialog (prompt, default) ELSE
IF dialogType = 'GetFolder' THEN temp_i := GetFolder (prompt, default);
IF temp_i < 1 THEN BEGIN
temp_s := default;
RunPreDefinedDialog := (temp_i = 0);
end ELSE RunPreDefinedDialog := (NOT DidCancel);
Num3fers := 0;
SkipCircuit := FALSE;
IsTwofered := FALSE;
TwoferOverflow := FALSE;
CirNum := RealDialog(MStr1C,Num2Str(0,CirNum));
ENDimport vs
# Function RealDialog displays a dialog box which requests the user to enter
# a REAL value.
request = 'Example'
default = 'Example'
value = vs.RealDialog(request, default)
vs.Message('RealDialog returned: ' + str(value))Availability: from All Versions