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

branches/Independent/FormMain.pas

@@ -12 +12 @@
   TFormName = class(TForm)
     Memo1: TMemo;
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
+    FileSystemDir: string;
     System: TSystem;
     procedure ConsoleWrite(Text: string);
+    function LoadFile(Name: string): string;
   public
 
@@ -33 +36 @@
   System := TSystem.Create;
   System.Console.OnWrite := ConsoleWrite;
+  System.FileSystem.OnLoadFile := LoadFile;
   System.Start;
+end;
+
+procedure TFormName.FormCreate(Sender: TObject);
+begin
+  FileSystemDir := 'FileSystem';
 end;
 
@@ -41 +50 @@
 end;
 
+function TFormName.LoadFile(Name: string): string;
+var
+  F: TFileStream;
+begin
+  F := TFileStream.Create(FileSystemDir + DirectorySeparator + Name, fmOpenRead);
+  try
+    if F.Size > 0 then begin
+      Result := default(string);
+      SetLength(Result, F.Size);
+      F.Read(Result[1], F.Size);
+    end else Result := '';
+  finally
+    F.Free;
+  end;
+end;
+
 end.