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

[dalfy]

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

Код: Выделить всё

ComboBox1.AddItem(SQLQuery1.FieldByName('NAME').AsString,
    TObject(SQLQuery1.FieldByName('ID').AsInteger));

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

[Снег Север]

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

[Alex2013]

Код: Выделить всё

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));
...


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

[Alexx2000]

Код: Выделить всё

TObject(PtrInt(SQLQuery1.FieldByName('ID').AsInteger))


[dalfy]

New (SR);

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

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

привести ваш integer к int64

и

PtrInt(...)

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

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