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

Merged revisions 3900 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

git-svn-id: branches/fixes_2_0@3901 -
This commit is contained in:
florian 2006-06-20 08:03:23 +00:00
parent 50e917d725
commit 7f2c498a29
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);