Changeset 65 for branches/Independent/Apps.pas

Timestamp:

Oct 9, 2024, 9:14:47 PM (13 days ago)

Author:

chronos

Message:

• Added: File system file read.
• Added: AppCode can process commands with single parameter.

Location:

branches/Independent

Files:

• . (modified) (1 prop)
• Apps.pas (modified) (3 diffs)

branches/Independent/Apps.pas

@@ -32 +32 @@
 begin
   with Context.Api do begin
-    PrintHelloWorld;
+    WriteLine('Hello World!');
     Sleep(OneSecond);
     RunApp('Code');
@@ -49 +49 @@
   Name := 'Code';
   Code := TStringList.Create;
-  Code.Add('PrintHelloWorld');
 end;
 
@@ -62 +61 @@
   I: Integer;
   Line: string;
+  Command: string;
+  Index: Integer;
 begin
   I := 0;
   while (I >= 0) and (I < Code.Count) do begin
-    Line := Code[I];
+    Line := Code[I].Trim;
     Inc(I);
-    if Line = 'PrintHelloWorld' then Context.Api.PrintHelloWorld;
+    if Line = '' then Continue;
+
+    Index := Pos(' ', Line);
+    if Index > 0 then begin
+      Command := Copy(Line, 1, Index - 1);
+      Delete(Line, 1, Index);
+    end else begin
+      Command := Line;
+      Line := '';
+    end;
+    if Command = 'WriteLine' then Context.Api.WriteLine(Line)
+    else if Command = 'Sleep' then Context.Api.Sleep(StrToInt(Line))
+    else if Command = 'RunApp' then Context.Api.RunApp(Line)
+    else raise Exception.Create('Unsupported command ' + Command);
   end;
 end;