Changeset 144 for branches/easy compiler/USourceExecutor.pas

Timestamp:

Jan 16, 2018, 4:06:32 PM (6 years ago)

Author:

chronos

Message:

• Modified: Handle non-numeric input text for integer value as zero.

File:

• branches/easy compiler/USourceExecutor.pas (modified) (2 diffs)

branches/easy compiler/USourceExecutor.pas

@@ -80 +80 @@
   Value: TSourceValue;
   ExecutorVar: TExecutorVariable;
+  Text: string;
+  IntValue: Integer;
 
 function ReadValueReference(Reference: TSourceReference): TSourceValue;
@@ -135 +137 @@
           end else
           if ExecutorVar.Value is TSourceValueInteger then begin
-            TSourceValueInteger(ExecutorVar.Value).Value := StrToInt(FOnInput);
+            Text := FOnInput;
+            if TryStrToInt(Text, IntValue) then
+              TSourceValueInteger(ExecutorVar.Value).Value := IntValue
+              else TSourceValueInteger(ExecutorVar.Value).Value := 0;
             FOnOutput(IntToStr(TSourceValueInteger(ExecutorVar.Value).Value) + LineEnding);
           end else