получить ListView.Data ?

← →
psa247 (2008-01-28 09:08) [0]

Подскажите, как быть :)

создаю экземпляр класса, допустим FF
записываю указатель ListView.Data := @FF

а как обратиться к нему потом через

ListView.Data ??

← →
ketmar © (2008-01-28 09:14) [1]

а зачем тебе указатель на указатель на экземпляр?

← →
psa247 (2008-01-28 09:25) [2]

Вдумчиво почитал хелп :)
выходит надо так делать ?
type
TFF = class

end;

type
pFF = ^TFF;

f : pFF;

f := Item.Data;

← →
ketmar © (2008-01-28 09:31) [3]

и опять ты не то прочитал.

хинт: результат вызова конструктора уже является указателем. достаточно привести его к типу Pointer.

← →
psa247 (2008-01-28 09:48) [4]

все равно ошибку выдает

← →
ketmar © (2008-01-28 09:50) [5]

17-я строка, как обычно.

← →
psa247 (2008-01-28 09:54) [6]

type
TKontragent = class
F: string;
I: string;
O: string;
Passport: string;
INNKPP: string;
OGRN: string;
Address: string;
Info: string;
Firm: boolean;
Inostr: boolean;
end;

type pTKontragent = ^TKontragent;

var
Kontrs : array of TKontragent;

идет:
SetLength(Kontrs, IBQuery.RecordCount);
with ListView do begin
в цикле
Item := Items.Add;
Kontrs[i] := TKontragent.Create;
Item.Data := Kontrs[i];
end;

в итоге:

обработчик OnSelectItem
var K: pTKontragent;

K := Item.Data;
if K=nil then exit;
FEdit.Text := K.F; <- не доступно

← →
ketmar © (2008-01-28 09:56) [7]

а с чего ты решил, что TKontragent и pTKontragent — одно и то же? первое является указателем на экземпляр, второе — указателем на указатель на экземпляр.

кстати, зачем тебе тут класс? разве записи не достаточно? работать с указателем на запись, при помощи New() и Dispose().

← →
psa247 (2008-01-28 10:00) [9]

класс нужен для расширения функциональности на будущее

дошло наконец-то ))))

>[9] psa247(28.01.08 10:00)
ну, тогда уже сделай класс как полагается — со свойствами. вдруг потом что поменять захочешь? %-)

получить ListView.Data ? Найти похожие ветки