 |
|
 |
||||||||||||||||||||||
 |
|
 |
||||||||||||||||||||||
var
n,m,r:integer;
s:string;
begin
l.Items.clear;
m:=strtoint(e.Text);
n:=strtoint(e1.Text);
repeat
r:=m mod n;
m:=m div n;
if r>9 then
begin
if r=10 then s:='A';
if r=11 then s:='B';
if r=12 then s:='C';
if r=13 then s:='D';
if r=14 then s:='E';
if r=15 then s:='F';
l.Items.add(string(
);
end;
if r<9 then
l.Items.add(inttostr(r));
until m=0;
begin
end;
end;
помогиде это мое добро функцеи щаписать !
а можно по русски и более грамотно и подробно составить вопрос, экcтрасенсы на тнт...
с синтаксисом делфей я мало знаком, как я понял это должен быть конвертер в 16 систему?
нет это перевод из 10 в любую другую С.Ч. (до 16)!
мне это нада записать функцеи!!!! чтоб мне ее потом дальше не повтарят код !
чтоб мне ее потом дальше не повтарят код !
ну правильно, ф-ции для этого и существуют)
Вот код на js, если с ним хоть немного знаком, сможешь перевести:
function dec2hex(n)
{
n = parseInt(n);
var c = 'ABCDEF';
var b = n / 16;
var r = n % 16;
b = b-(r/16);
b = ((b>=0) && (b<=9)) ? b : c.charAt(b-10);
return ((r>=0) && (r<=9)) ? b+''+r : b+''+c.charAt(r-10);
}
В vb это еще проще, там уже существует встроенная ф-ция Hex.
Я думаю и в делфях есть что-то подобное, погугли, посмотри по манам.
нет это перевод из 10 в любую другую С.Ч.
мне кажется лучше записать для каждой системы отдельную ф-цию.
