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

* RomanToInt fixed, solves #7060

Browse Source 
git-svn-id: trunk@3900 -
This commit is contained in:
florian 2006-06-20 08:00:55 +00:00
parent ea06d139c2
commit 53cdd50152
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/strutils.pp
View File

@ -1231,7 +1231,7 @@ end;
function RomanToint(const S: string): Longint;
const
RomanChars = ['C','D','i','L','M','V','X'];
RomanChars = ['C','D','I','L','M','V','X'];
RomanValues : array['C'..'X'] of Word
= (100,500,0,0,0,0,1,0,0,50,1000,0,0,0,0,0,0,0,0,5,0,10);