Changeset 10 for branches/ByteArray/Devices/Memory.pas

Timestamp:

Aug 7, 2024, 12:12:42 AM (2 months ago)

Author:

chronos

Message:

• Modified: Improved serial console handling.

File:

• branches/ByteArray/Devices/Memory.pas (modified) (2 diffs)

branches/ByteArray/Devices/Memory.pas

@@ -32 +32 @@
     procedure FillZero;
     procedure Clear;
+    function ToString: string; override;
     property Size: TInt read FSize write SetSize;
+    constructor Create;
     destructor Destroy; override;
   end;
@@ -144 +146 @@
 end;
 
+function TMemory.ToString: string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to FSize - 1 do
+    Result := Result + ', ' + IntToStr(FData[I]);
+  Delete(Result, 1, 2);
+end;
+
+constructor TMemory.Create;
+begin
+  FSize := 0;
+end;
+
 destructor TMemory.Destroy;
 begin