Римские цифры!

[phreaker228]

Уважаемые программисты,помогите..
Как в этой функции перевода римских чисел в 10-ую систему счисления сделать,чтобы цифры стоящие позади старшей цифры отнимались от неё?
Например римское число: IIIIV = 1 ?

function RomanToDec(const Value: string): integer;
var
  i, lastValue, curValue: integer;
begin
  Result := 0;
  lastValue := 0;
  for i := Length(Value) downto 1 do
  begin
   case UpCase(Value[i]) of
   'C':
   curValue := 100;
   'D':
   curValue := 500;
   'I':
   curValue := 1;
   'L':
   curValue := 50;
   'M':
   curValue := 1000;
   'V':
   curValue := 5;
   'X':
   curValue := 10;
   else
   raise Exception.CreateFmt('Invalid character: %s', [Value[i]]);
   end;
   if curValue < lastValue then
   Dec(Result, curValue)
   else
   Inc(Result, curValue);
   lastValue := curValue;
  end;
end;

[denisbrain]

IIIIV = 1 ? как сейчас помню на олимпиаде (лет 15 назад) мне такая задача попалась. решил, если очень критично завтра сутра напишу, если нужно будет стучи в аську.

проверь функцию

function grm(Value: Char): integer;
begin
result:=0;
Value:=UpCase(Value);
   if Value='C' then result:= 100  else
   if Value='D' then result:= 500  else
   if Value='I' then result:= 1  else
   if Value='L' then result:= 50 else
   if Value='M' then result:= 1000 else
   if Value='V' then result:= 5    else
   if Value='X' then result:= 10;
end;

Function GetIntegerFromRomatText(s:string):integer;
  var summa,r,x:integer;
  EL:BOOLEAN;
begin
summa:=0;
x:=length(s);
EL:=FALSE;
while x>0 do begin

 if grm(s[x])<grm(s[x+1]) then BEGIN
 summa:=summa-grm(s[x]);
 EL:=FALSE;
 END
 else
 if grm(s[x])>grm(s[x+1]) then BEGIN
 summa:=summa+grm(s[x]);
 EL:=TRUE;

 END
 ELSE
 IF EL THEN
 summa:=summa+grm(s[x]) ELSE summa:=summa+grm(s[x]);

 x:=x-1;



end;
result:=summa;
end;

[phreaker228]

Всё уже,разобрался кое как додумался))
А всего то надо было в первом условие дописать Cvalue:=lastValue;
Спасибо большое!