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

* Fixed bug in decodesoundexint

Browse Source 
git-svn-id: trunk@10477 -
This commit is contained in:
michael 2008-03-12 21:08:12 +00:00
parent 9f118aca02
commit 623e0f0cf5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/strutils.pp
View File

@ -830,9 +830,11 @@ begin
Result:=Chr(Ord0+(AValue mod 7))+Result; Result:=Chr(Ord0+(AValue mod 7))+Result;
AValue:=AValue div 7; AValue:=AValue div 7;
end; end;
if Len>2 then if Len>1 then
Result:=IntToStr(AValue mod 26)+Result; begin
AValue:=AValue div 26; Result:=Chr(Ord0+(AValue mod 26))+Result;
AValue:=AValue div 26;
end;
Result:=Chr(OrdA+AValue)+Result; Result:=Chr(OrdA+AValue)+Result;
end; end;