12 lines
284 B
Text
12 lines
284 B
Text
$ include "seed7_05.s7i";
|
|
include "scanstri.s7i";
|
|
|
|
const func boolean: isNumeric (in var string: stri) is func
|
|
result
|
|
var boolean: isNumeric is FALSE;
|
|
local
|
|
var string: numberStri is "";
|
|
begin
|
|
numberStri := getNumber(stri);
|
|
isNumeric := stri = "";
|
|
end func;
|