[movnet]

Подскажите пожалуйста функцию для перевода рублей в копейки и обратно.
Спасибо.

[NumLock]

Операторы умножения и деления. В рубле 128 копеек.

[movnet]

Спасибо.
интересует обратно и в string

[Alegun]

Недостаточно инфы, пример "рублей" покажите пжлст

[movnet]

125,60 руб. = 12560 коп.
12560 коп. > 125,60 руб?

[NumLock]

Если одним типом string обходиться, то достаточно сдвигать запятую на два знака влево или вправо.

[Alegun]

Сообщение от NumLock

Если одним типом string обходиться...

Вот двухсторонняя

Код:

function cnv(ds: string): string;
begin
 if pos(',',ds) > 0 then
  Result:= StringReplace(ds,',','',[]) else
  Result:= Copy(ds,1,Length(ds)-2) + ',' +
            Copy(ds,Length(ds)-1,Length(ds));
end;