Changeset 50 for branches/ByteArray/Devices/Storage.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Devices/Storage.pas (modified) (3 diffs)

branches/ByteArray/Devices/Storage.pas

@@ -13 +13 @@
   private
     FFileName: string;
+    function GetSize: Integer;
     procedure SetFileName(AValue: string);
+    procedure SetSize(AValue: Integer);
   public
     FFile: TFileStream;
@@ -24 +26 @@
     destructor Destroy; override;
     property FileName: string read FFileName write SetFileName;
+    property Size: Integer read GetSize write SetSize;
   end;
 
@@ -40 +43 @@
       else FFile := TFileStream.Create(FFileName, fmCreate);
   end;
+end;
+
+function TStorage.GetSize: Integer;
+begin
+  Result := FFile.Size;
+end;
+
+procedure TStorage.SetSize(AValue: Integer);
+begin
+  FFile.Size := AValue;
 end;