VS:ValidNumStr/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

文字列を数値に変換します。変換できた場合はTRUEを返します。

FUNCTION ValidNumStr(
           str         :STRING;
           VAR value   :REAL) : BOOLEAN;

def vs.ValidNumStr(str):
    return (BOOLEAN, value)

Parameters

str		STRING		文字列
value		REAL		数値

Return Value

変換できた場合はTRUEを返します。

Example

CASE Item OF
{// OK Button //}
1:BEGIN
  IF ValidNumStr(GetField(4),value) THEN BEGIN
    Done:=TRUE;
    replaceValue:= GetField(6);
					
    IF ItemSel(9) THEN textMode:=2;
    IF ItemSel(10) THEN textMode:=4;
    IF ItemSel(11) THEN textMode:=8;
    IF ItemSel(12) THEN layerMode:=16;
    IF ItemSel(13) THEN layerMode:=32;
    IF ItemSel(14) THEN caseMode:=1;
  END
  ELSE SysBeep;
END;

Version

利用可能バージョン: MiniCAD