Differences

This shows you the differences between two versions of the page.

--- 0.8.3:scripting [2021/10/13 13:38] – [Scripting] admin
+++ 0.8.3:scripting [2021/10/13 13:42] (current) – [Global Functions] admin
@@ Line 491: / Line 491: @@
 </file>
+===== Global Constants =====
+<file pascal>
+const
+	DEFAULT_STR : String = 'Test' + '-Output-' + 'Test:';
+</file>
 ===== Local Variables =====
 Local variables are declared like Delphi syntax by the "var" identifier.
@@ Line 620: / Line 626: @@
 			procedure Output(AIdx : Integer);
 	end;
+</file>
+After our method head declaration is done, we need to implement the function.
+<file pascal>
+/// <summary>
+/// Test Scripting Unit
+/// </summary>
+unit app.test;
+interface
+const
+	DEFAULT_STR : String = 'Test' + '-Output-' + 'Test:';
+type
+	TTest = class
+	[...]
+	end;
+implementation
+{ TTest }
+constructor TTest.Create();
+begin
+	inherited Create();
+	// use property test
+	Self.FieldBool := true;
+	Self.FFieldStr := 'Hello World';
+	Self.FFieldInt := 124;
+	Self.FFieldDbl := 1.25;
+	Self.FFieldObj := Self;
+end;
+destructor TTest.Destroy();
+begin
+	inherited Destroy();
+end;
+function TTest.GetFieldBool() : Boolean;
+begin
+	Result := Self.FFieldBool;
+	System.WriteLn('TTest.GetFieldBool() called');
+end;
+procedure TTest.SetFieldBool(AValue : Boolean);
+begin
+	Self.FFieldBool := AValue;
+	System.WriteLn('TTest.SetFieldBool() called');
+end;
+class function TTest.GetDefaultStr() : String;
+begin
+	Result := DEFAULT_STR;
+end;
+procedure TTest.Output(AIdx : Integer);
+var LTmpStr : String;
+    LSeed : Single;
+begin
+    LSeed := System.RandomFloat();
+	LTmpStr := TTest.GetDefaultStr() +
+		'Object{' +
+		'"fieldStr":"' + Self.FFieldStr +
+		'", "fieldInt":"' + Self.FFieldInt.ToString() +
+		'", "fieldDbl":"' + Self.FFieldDbl.ToString() +
+		'", "fieldBool":"' + Self.FieldBool.ToString() +
+		'", "fieldObj":"' + Self.FFieldObj.ToJSON() +
+		'"}';
+	LTmpStr := AIdx.ToString() + #9' [' + LSeed.ToString() + ']'#9#9 + LTmpStr +
+		' => ' + Self.Calculate(AIdx * 0.5).ToString();
+	System.WriteLn(LTmpStr);
+end;
+function TTest.Calculate(AFactor : Double) : Double;
+begin
+	Result := Self.FFieldInt.ToDouble() + Self.FFieldDbl * AFactor;
+end;
+end.
 </file>
 ==== Native ====