Changeset 65 for branches/Independent/Os.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)
• Os.pas (modified) (8 diffs)

branches/Independent/Os.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, DateUtils, Api, Console;
+  Classes, SysUtils, Generics.Collections, DateUtils, Api, Console, FileSystem;
 
 type
@@ -44 +44 @@
   private
     FName: string;
-    procedure PrintHelloWorldSync;
+    FText: string;
+    procedure WriteLineSync;
     procedure RunAppSync;
   public
     App: TRunningApp;
     System: TSystem;
-    procedure PrintHelloWorld; override;
+    procedure WriteLine(Text: string); override;
     procedure RunApp(Name: string); override;
     procedure Sleep(Time: TDateTime); override;
@@ -58 +59 @@
   TSystem = class
     Console: TConsole;
+    FileSystem: TFileSystem;
     Apps: TApps;
     RunningApps: TRunningApps;
@@ -124 +126 @@
 { TSystemApi }
 
-procedure TSystemApi.PrintHelloWorldSync;
-begin
-  System.Console.Write(App.App.Name + ': Hello world!');
+procedure TSystemApi.WriteLineSync;
+begin
+  System.Console.Write(App.App.Name + ': ' + FText);
 end;
 
@@ -134 +136 @@
 end;
 
-procedure TSystemApi.PrintHelloWorld;
-begin
-  App.AppThread.Synchronize(PrintHelloWorldSync);
+procedure TSystemApi.WriteLine(Text: string);
+begin
+  FText := Text;
+  App.AppThread.Synchronize(WriteLineSync);
 end;
 
@@ -165 +168 @@
 
 procedure TSystem.Start;
-begin
+var
+  AppCode: TAppCode;
+begin
+  Apps.AddNew(TAppTest);
+  AppCode := TAppCode(Apps.AddNew(TAppCode));
+  AppCode.Code.Text := FileSystem.LoadFile('Code.exe');
+
   RunApp('Test');
   RunApp('Test');
@@ -174 +183 @@
 begin
   Console := TConsole.Create;
+  FileSystem := TFileSystem.Create;
   RunningApps := TRunningApps.Create;
   Apps := TApps.Create;
-  Apps.AddNew(TAppTest);
-  Apps.AddNew(TAppCode);
 end;
 
@@ -185 +193 @@
   FreeAndNil(RunningApps);
   FreeAndNil(Console);
+  FreeAndNil(FileSystem);
   inherited;
 end;