Текущий архив: 2005.10.30;
Скачать: CL | DM;
Вниз
Пример из дельфийского ХЕЛПа..не работает Найти похожие ветки
← →
quadronik © (2005-10-09 04:58) [0]Почему не работают эти строки?
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"
← →
Джо © (2005-10-09 05:05) [1]Сегодня какая-то ночь ошибок в Хелпе :(
Нужно так:Label1.Caption := Label1.Caption + IntToHex(Ord(Edit1.Text[i]),2) + " ";
← →
quadronik © (2005-10-09 05:23) [2]Вот спасибо!
Теперь могу продолжить свою возню....
← →
Anatoly Podgoretsky © (2005-10-09 13:31) [3]Потому что нет перегруженной версии IntToHex(Ch: Char; N: Integer)
Если тебе такая нужна, то напиши ее, код и объявление приведены
Страницы: 1 вся ветка
Текущий архив: 2005.10.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
