Ignore:
Timestamp:
Nov 3, 2023, 11:15:31 AM (7 months ago)
Author:
chronos
Message:
  • Fixed: Show data content of storage file.
Location:
branches/ByteArray
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/ByteArray

    • Property svn:ignore

      •  

        old new  
        66ByteArray.res
        77ByteArray.dbg
         8Storage.dat

  • branches/ByteArray/Devices/Storage.pas

    r50 r51  
    1919    FFile: TFileStream;
    2020    Position: Integer;
     21    function ReadByte(Address: TBigInt): Byte;
    2122    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
    2223    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
    … …  
    5354begin
    5455  FFile.Size := AValue;
     56end;
     57
     58function TStorage.ReadByte(Address: TBigInt): Byte;
     59begin
     60  Result := 0;
     61  FFile.Position := Address;
     62  FFile.Read(Result, 1);
    5563end;
    5664
Note: See TracChangeset for help on using the changeset viewer.