Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 813

/ вопрос открыт /

Установил DevExpressQuantumGrid при компиляции проектов с использованем этих компонентов не компилируется cxStyles.pas
Не находит идентификаторов PBytes и HexToBin
Подскажите что делать?????????

taran Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: taran (статус: Посетитель)
Вопрос отправлен: 1 августа 2007, 10:21
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Подскажу: искать эти вещи, где они описаны в исходниках. Есть же функция поиска в файлах.
PBytes - это скорее всего тип указателя. Значит надо искать по секциям type. А HexToBin - это функция. Если там используется стандартная функция, то надо в uses добавить модуль Classes, если своя, то найти её в сорцах компонентов пакета (и других модулях (стандартных и/или сторонних), которые используются этими компонентами).

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 1 августа 2007, 10:48

Ответ #2. Отвечает эксперт: Вадим К

Здравствуйте, taran!
PBytes очень похоже на обявление типа "Указатель на массив байтов". Такой тип объявлен в библиотеке Indy.
По поводу HexToBin - да, это функция с Classes.
Причина такого поведения может быть следующей
1) версия делфи слишком мала.
2) в пути поиска исходников не прописаны все пути к исходникам.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 1 августа 2007, 11:43
Оценка за ответ: 4


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 1 августа 2007, 10:52; участников в обсуждении: 1.
Dron

Dron (статус: Студент), 1 августа 2007, 10:28 [#1]:

Функция HexToBin() описана в модуле Classes...
С уважением.
Dron

Dron (статус: Студент), 1 августа 2007, 10:52 [#2]:

Функция HexToByte() довольно проста. Вот пример её реализации:
function HexToByte(Str:string):Integer;
const
  CHex:array[0..15] of Char=\'0123456789ABCDEF\';
begin
  Result:=Pos(UpCase(Str[2]),CHex)-1;
  if Result>=0 then
    Result:=(Pos(UpCase(Str[1]),CHex)-1)*16+Result;
end;
С уважением.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:58
Выполнено за 0.02 сек.