| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пример из дельфийского ХЕЛПа..не работает

quadronik ©   (2005-10-09 04:58:00) 

Почему не работают эти строки?
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],2) + ' ';
   except
     Beep;
   end;
 end;
end;

>Error: There is no overloaded version of 'IntToHex' that can be called with these arguments.
Пример взят из дельфийского ХЕЛПа при поиске ключевого слова 'IntToHex'

---

Anatoly Podgoretsky   (2005-10-09 13:31:00) [1]

Потому что нет перегруженной версии IntToHex(Ch: Char; N: Integer)
Если тебе такая нужна, то напиши ее, код и объявление приведены

---

quadronik   (2005-10-09 05:23:00) [2]

Вот спасибо!
Теперь могу продолжить свою возню....

---

Джо   (2005-10-09 05:05:00) [3]

Сегодня какая-то ночь ошибок в Хелпе :(
Нужно так:
Label1.Caption := Label1.Caption + IntToHex( Ord(Edit1.Text[i]),2) + ' ';

---

Наверх