eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

I2Hex now returns lower cased letters to conform with FTN mailer standards

This commit is contained in:
mysticbbs 2013-03-06 15:48:36 -05:00
parent 99c9fec21e
commit 6df04fce4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mdl/m_strings.pas
View File

@ -172,7 +172,7 @@ Begin
While Num <> 0 Do Begin While Num <> 0 Do Begin
Ch := Chr(48 + Byte(Num) AND $0F); Ch := Chr(48 + Byte(Num) AND $0F);
If Ch > '9' Then Inc (Ch, 7); If Ch > '9' Then Inc (Ch, 39);
Result[Idx] := Ch; Result[Idx] := Ch;
Dec (Idx); Dec (Idx);