Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Как получить объект из TListView   Найти похожие ветки 

 
polar   (2003-12-08 15:15) [0]

Подскажите, как получить объект из TListView: TStaffs = class(TObject)
public
FidstStaff: integer;
FStaffName: Ansistring;
public
constructor create();
destructor destroy;override;
end;...
tmpListItem.SubItems.AddObject("1", tmpStaffs); После этого мне нужно взять tmpStaffs. Спасибо.


 
Serg   (2003-12-08 15:41) [1]

ListView.Items[Index1].SubItems.Objects[Index2] ?


 
polar   (2003-12-08 15:49) [2]

Да нфига не получается. Вот код: type
TStaffs = class(TObject)
public
FidstStaff: integer;
FStaffName: Ansistring;
end; procedure TForm1.Button1Click(Sender: TObject);
var tmpListItem: TListItem;
NewColumn: TListColumn;
tmpStaffs: TStaffs;
begin
ListView1.Clear;
tmpStaffs:= TStaffs.Create;
try
with ListView1 do begin
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;
NewColumn:= Columns.Add;

tmpStaffs.FidstStaff:= 55;
tmpStaffs.FStaffName:= "!!!";

tmpListItem := Items.Add;
tmpListItem.Caption := inttostr(12); //


 
Serg   (2003-12-08 16:02) [3]

попробуй так:
tmpStaffs:= TStaffs(tmpstr.Objects[4]);



Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-62122
smu
2003-12-08 11:38
2003.12.19
Как убрать сигнал при обработке KeyPress клавиши Enter?


4-62319
DDS
2003-10-23 23:12
2003.12.19
Проблемма с консольными DOS приложениями.


8-62163
Detonator
2003-08-23 13:32
2003.12.19
Музикальний проигрователь


14-62203
Bel
2003-11-27 09:59
2003.12.19
Умора! :-))


4-62322
alexis
2003-10-26 12:05
2003.12.19
Помогите разобраться с функцией !