Вот нашел функцию. Можете подробно прокоментировать каждую строчку плииз?
function _10toR(x:longint;R:word):string;
var x,ost:longint;
s,st,chislo:string;
begin
repeat
ost:=x mod R;
x:=x div R;
if ost>9 then st:=chr(ord('A')-10+ost)
else str(ost,st);
s:=s+st;
until x=0;
for i:=1 to length(s) do
chislo:=chislo+s[length(s)-i+1];
_10toR:=chislo;
end;
Сообщение отредактировано: Lodar' -