powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из Builder-a перевести на язык Delphi предложение....
4 сообщений из 4, страница 1 из 1
Как из Builder-a перевести на язык Delphi предложение....
    #32192898
perceptron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
typedef struct {
TStringGrid *SG; //Адрес StringGrid'а
int ACol; //Номер колонки
int ARow; //Номер строки
}TParamCell;
TParamCell ParamCell; //Параметры для ComboBox'а
.....................

CB->Tag=(int)&ParamCell; // это на билдере - вот ЭТО НАДО перевести на Delphi

то есть на дельфях сие будет выглядеть такЖ

TParamCell = packed record
SG : TStringGrid ;
ACol: Integer;
ARow: Integer;
end;

var
ParamCell: TParamCell;

а потом вот ЭТО:
CB.Tag := ????? (пробовал := Integer(Paramcell) //Error: Invalid typecast
и := ParamCell as Integer; //Fatal error: Operator not applicable to this operand type
...
Рейтинг: 0 / 0
Как из Builder-a перевести на язык Delphi предложение....
    #32192929
perceptron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
CB - это имя ComboBox-a и в нёт CB.Tag имеет тип integer
...
Рейтинг: 0 / 0
Как из Builder-a перевести на язык Delphi предложение....
    #32192941
Фотография cyc10ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1) packed - устаревшее, кажется сейчас в Delphi все рецорды пацкед
хотя никто не мешает пользовать packed

2) у тебя же написано CB->Tag=(int)&ParamCell - адрес ParamCell
а на Дельфях ты пишешь Integer(Paramcell)
а где батенька операция взятия адреса?

пробуй как-нибудь так CB.Tag := Integer(@ParamCell);
...
Рейтинг: 0 / 0
Как из Builder-a перевести на язык Delphi предложение....
    #32192953
perceptron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо - сработало
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как из Builder-a перевести на язык Delphi предложение....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]