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/Forms/FormStorage.pas

    r50 r51  
    4444    Text := '';
    4545    for I := 0 to ItemsPerLine - 1 do begin
    46       One := Storage.Read(Item.Index * ItemsPerLine + I, 1);
     46      One := Storage.ReadByte(Item.Index * ItemsPerLine + I);
    4747      Line := Line + IntToHex(One, 2) + ' ';
    4848      if One >= 32 then Text := Text + Char(One)
Note: See TracChangeset for help on using the changeset viewer.