paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make use of HexStr of the rtl, resolves #40800

Browse Source
This commit is contained in:
florian 2024-05-21 20:06:02 +02:00
parent 4383aab15a
commit 3302adc31a
1 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/paszlib/examples/miniunz.pas
View File

@ -168,24 +168,6 @@ end;
LeadingZero := s;
end;
function HexToStr(w: clong): string;
const
ByteToChar: array[0..$F] of AnsiChar = '0123456789ABCDEF';
var
s: string;
i: cint;
x: clong;
begin
s := '';
x := w;
for i := 0 to 3 do
begin
s := ByteToChar[byte(x) shr 4] + ByteToChar[byte(x) and $F] + s;
x := x shr 8;
end;
HexToStr := s;
end;
function do_list(uf: unzFile): cint;
var
i: longword;
@ -239,7 +221,7 @@ end;
LeadingZero(longword(file_info.tmu_date.tm_year mod 100)): 2, ' ',
LeadingZero(longword(file_info.tmu_date.tm_hour)), ':',
LeadingZero(longword(file_info.tmu_date.tm_min)), ' ',
HexToStr(longword(file_info.crc)), ' ',
HexStr(longword(file_info.crc),8), ' ',
filename_inzip);
if ((i + 1) < gi.number_entry) then