Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

есть число, как показать его в TEdit в шестнадцатеричном формате?   Найти похожие ветки 

 
Mad_Ghost ©   (2002-10-11 14:29) [0]

Уважаемые Мастера, вот уже третий раз обращаюсь за Вашей помощью, помогите ещё разок пожалуйста.
Есть число a: byte;
делаю
Edit1.Text := IntToStr(a);

а надо что бы был представлен как шеснадцатеричное число,
т.е. если a := 15;
в TEdit чтобы был F и т.п.

также как из числа скажем показать буковку например из числа 65 буковку А.
т.е. вроде бы Ord(Integer);
Chr(char);
или наоборот, не помню, подскажите пожалуйста.


 
Pumpkin   (2002-10-11 14:30) [1]

IntToHex


 
kaif ©   (2002-10-11 15:05) [2]

1.функция IntToHex
2.Help на что?


 
FLIZ ©   (2002-10-11 16:08) [3]


а слабо было набрать в редакторе дельфи
IntToHex и нажать Ctrl-F1 чтобы получить
вот это :
===========
The following example uses an edit control, a button, and a label on a form. When the button is clicked, the hexadecimal value of each character in the edit control is displayed in the label.

procedure TForm1.Button1Click(Sender: TObject);

var
i: Integer;
begin
Label1.Caption := "";
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + " ";
except
Beep;
end;
end;
end;
=========


?
хелпа, хелпа, и еще раз хелпа, товарисчи! :))))



Страницы: 1 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
6-101423
BAHO
2002-09-01 01:18
2002.10.31
Record потоком по сети


14-101486
VictorT
2002-10-11 17:41
2002.10.31
Как из аськи перенести контакт-лист и историю на другую машину?


1-101260
Юра
2002-10-22 11:51
2002.10.31
Правильное завершение работы своего приложения


3-101068
Shadow
2002-10-13 15:59
2002.10.31
Как можно без особой мороки прочитать DBF-базу и сконвертировать


7-101547
White Tiger
2002-08-28 15:38
2002.10.31
Просмотр/установка прав на папку/файлы в Win2k (NTFS)