freepascal.ru

Добавлено: **08.01.2024 21:39:04**

После установки Lazarus 3.0 перестал компилироваться код

Код: Выделить всё: ComboBox1.AddItem(SQLQuery1.FieldByName('NAME').AsString, TObject(SQLQuery1.FieldByName('ID').AsInteger));

Говорит, мол, TObect и integer не совместимы. Хотя в версии 3.0 RC2 всё компилировалось и запускалось.
В чём может быть дело? В опубликованных изменениях к версии 3.0 ничего не говорится.

Добавлено: **08.01.2024 21:55:35**

Предполагаю, что это - один из вариантов частой проблемы фрипаскаля на 64х битных ОС. Попробуйте привести ваш integer к int64.

Добавлено: **09.01.2024 02:32:36**

Код: Выделить всё: Type tSR_Record=Record Name:String; BaseUrl:String; MirorList:String; PageList :String; NfScript:String; FCurent:Boolean; end; pSR_Record=^tSR_Record; Var SR:pSR_Record; ... New (SR); ... ListBox1.AddItem( SR^.Name,TObject(SR)); ...

Так работает всюду. :idea:

То есть нужно использовать ссылку на переменную

Добавлено: **09.01.2024 10:33:23**

Код: Выделить всё: TObject(PtrInt(SQLQuery1.FieldByName('ID').AsInteger))

Добавлено: **09.01.2024 19:55:18**

Alex2013 писал(а):New (SR);

Что-то не получилось с простым integer.

Это сработало:

Снег Север писал(а):привести ваш integer к int64

и

Alexx2000 писал(а):PtrInt(...)

одно и тоже, но PtrInt более универсален, т.к. зависит от компилятора (определяется дефайнами).

Благодарю за помощь!

freepascal.ru

Ошибка компиляции TObject в Combobox

Ошибка компиляции TObject в Combobox

Re: Ошибка компиляции TObject в Combobox

Re: Ошибка компиляции TObject в Combobox

Re: Ошибка компиляции TObject в Combobox

Re: Ошибка компиляции TObject в Combobox