Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c