1. Strings Concatenation


Begin
Result:= [F001] + [F002];
End;

2. Adding one value to another

Begin
Result:= StrToFloat([F001]) + StrToFloat([F002]);
End;

2. If Statement


Begin
If  [F002]='' then
Result:= 0
else If  [F002]=0 then
Result:= 0
Else
Result:= StrToFloat([F001]) mod StrToFloat([F002]);
End;

3. Variables


Var MyVariable : integer;
Begin
MyVariable:=10;
Result :=StrToFloat([F001]) mod MyVariable;
end;

Passing variables between objects

We have 153 guests and one member online