Где ошибка в коде?

[explosion14]

type
tk=class
g:integer;
procedure gl;
function hj(j:integer):integer;
property dd:integer
write gl
read hj;
end;
На строчке read пишет [Error] Unit1.pas(25): Incompatible types
Из-за чего это?

[Пепел Феникса]

у вас не индексное свойство, потому read-метод не должен принимать ни одного параметра.

[Stilet]

у вас не индексное свойство

Ты имеешь ввиду тоже что и я? (я просто не понял твоей фразы...)
Я уверен что описав свойство автор забыл правильно описать его обработчик:

procedure gl(const j:integer);

P.S. А! Все понял... У автора описана function hj(j:integer):integer; тогда как нужно описать функцию без параметров...

[Аватар]

Write-метод тоже не правильно описан - параметра нет

[Пепел Феникса]

Ты имеешь ввиду тоже что и я? (я просто не понял твоей фразы...)

точнее индексируемое.
для свойства вида

property Items[index:integer]:string read GetItem;

read-метод будет таким

function GetItem(index:integer):string;

[phomm]

Я думаю Вы, ТС, просто перепутали (мб пример из учебника не так уяснили) и вместо правильного

procedure gl(j:integer);
function hj:integer;

написали неправильное

procedure gl;
function hj(j:integer):integer;