Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
ВнизКак получить объект из 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c