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

Timestamp:

Nov 22, 2023, 11:37:44 PM (6 months ago)

Author:

chronos

Message:

• Fixed: Assembler to parse correctly register names and numeric values.

File:

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

branches/ByteArray/Devices/Memory.pas

@@ -27 +27 @@
     function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
+    procedure SaveToFile(FileName: string);
     procedure Clean;
     property Size: Integer read FSize write SetSize;
@@ -136 +137 @@
 end;
 
+procedure TMemory.SaveToFile(FileName: string);
+var
+  F: TFileStream;
+begin
+  if FileExists(FileName) then
+    F := TFileStream.Create(FileName, fmOpenWrite)
+    else F := TFileStream.Create(FileName, fmCreate);
+  try
+    if FSize > 0 then F.Write(FData[0], FSize);
+  finally
+    F.Free;
+  end;
+end;
+
 end.