TObjectList и работа с классами

@MasterofCDM · Регистрация: 24.10.2013

Author24 — интернет-сервис помощи студентам

Ребят, подскажите плиз, немного не догоняю принцип работы с классами.

Создаю класс

Код

TCashList = class
    Column1: String;
    Column2: String;
end;

И пихаю его в TListObject

Код

   CL := TCashList.Create;
   OL := TObjectList.Create;

   CL.Column1 := '111';
   OL.Add(CL);

И чтобы получить содержимое использую

Код

str := TCashList(OL[0]).Column1;

А как сделать собственный класс, чтобы получить вот такой результат?

Код

str := CL.Items[0].Column1;

@mss · 26.02.2015, 16:31

да как обычно :
- объявляешь свой класс,
- его приватным членом делаешь тот самый ObjectList,
- в cвоем классе объявляешь св-во Items, в геттере котрого получаешь из ObjectList нужный объект, приводишь его к нужному типу и возвращаешь результатом

@MasterofCDM · 26.02.2015, 16:36 **[ТС]**

Спасибо за ответ, а можно попросить примерчиком небольшим это сделать?

@mss · 26.02.2015, 16:54

Если у тебя XE и выше, то и делать то ничего не надо - достаточно воспользоваться встроенным механизмом дженериков:

Delphi

var
 OL: TObjectList<TCashList>;
..
OL := TObjectList<TCashList>.Create;
 
str := OL[0].Column1;

@MasterofCDM · 26.02.2015, 17:11 **[ТС]**

Не получается( У меня XE7.

Если так:

Код

OL: TObjectList<TCashList>;

то выдает ошибку:

Код

[dcc32 Error] mainfile.pas(109): E2003 Undeclared identifier: 'TObjectList<>'

Если использовать круглые скобки, то пишет, что ожидается ";" а он видит "("

@Sigin · 26.02.2015, 17:24

Добавь

Delphi

1	uses Generics.Collections;

Объявляем список

Delphi

1	var OL: TObjectList<TCashList>;

Создаем список:

Delphi

1	OL := TObjectList<TCashList>.Create;

Добавляем в список:

Delphi

1	OL.Add(TChashList.Create('1','2');

Обращаемся к элементу:

Delphi

1	OL[Index].Column1;

@MasterofCDM · 26.02.2015, 17:38 **[ТС]**

Сообщение от nestquik2

uses Generics.Collections;

Вот он где секрет был)) Спасибо всем, все заработало))

Добавлено через 10 минут
Ребята, подскажите еще одну вещь плиз

Delphi

    CL := TCashList.Create;
    CL.Column1 := '111';
    OL.Add(CL);
    CL.Column1 := '222';
    OL.Add(CL);
    ShowMessage (OL[0].Column1+' - '+OL[1].Column1);

И в итоге у меня выводится
[DELHI]
222-222
[/DELHI]
Получается, что мне придется перед каждой забивкой создавать новый компонент
[DELHI]
CL := TCashList.Create;
CL.Column1 := '111';
OL.Add(CL);
CL := TCashList.Create;
CL.Column1 := '222';
OL.Add(CL);
[/DELHI]
Или есть какой-либо другой способ?

@Sigin · 26.02.2015, 18:05

Я же показал:

Сообщение от nestquik2

OL.Add(TChashList.Create('1','2');

@MasterofCDM · 26.02.2015, 18:13 **[ТС]**

Проглядел эту строчку. При компиляции выдает ошибку, что слишком много параметров и ссылается на содержимое скобок

@Sigin · 26.02.2015, 18:20

Слишком много параметров похоже потому, что у тебя не прописан конструктор для класса TChashList.
Замени:

Delphi

TCashList = class
    Column1: String;
    Column2: String;
end;

на (писал от руки, могут быть не большие ошибки)

Delphi

TCashList = class
private
    Column1: String;
    Column2: String;
public
    constructor Create(s1,s2: string);
end;
 
{...}
constructor TCashList.Create(s1,s2: string);
begin
  Column1:=s1;
  Column2:=s2;
end;

@MasterofCDM · 26.02.2015, 18:23 **[ТС]**

Блиин, понял, все получилось, спасибо за помощь и терпение.

@MasterofCDM 0 / 0 / 1 Регистрация: 24.10.2013 Сообщений: 36
		1
	TObjectList и работа с классами 26.02.2015, 15:59. Показов 3337. Ответов 10 Метки нет (Все метки) Ребят, подскажите плиз, немного не догоняю принцип работы с классами. Создаю класс Код TCashList = class Column1: String; Column2: String; end; И пихаю его в TListObject Код CL := TCashList.Create; OL := TObjectList.Create; CL.Column1 := '111'; OL.Add(CL); И чтобы получить содержимое использую Код str := TCashList(OL[0]).Column1; А как сделать собственный класс, чтобы получить вот такой результат? Код str := CL.Items[0].Column1; 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	26.02.2015, 16:31	2
	да как обычно : - объявляешь свой класс, - его приватным членом делаешь тот самый ObjectList, - в cвоем классе объявляешь св-во Items, в геттере котрого получаешь из ObjectList нужный объект, приводишь его к нужному типу и возвращаешь результатом 1

@MasterofCDM 0 / 0 / 1 Регистрация: 24.10.2013 Сообщений: 36
	26.02.2015, 16:36 [ТС]	3
	Спасибо за ответ, а можно попросить примерчиком небольшим это сделать? 0

@MasterofCDM 0 / 0 / 1 Регистрация: 24.10.2013 Сообщений: 36
	26.02.2015, 17:11 [ТС]	5
	Не получается( У меня XE7. Если так: Код OL: TObjectList<TCashList>; то выдает ошибку: Код [dcc32 Error] mainfile.pas(109): E2003 Undeclared identifier: 'TObjectList<>' Если использовать круглые скобки, то пишет, что ожидается ";" а он видит "(" 0

@Sigin 226 / 225 / 112 Регистрация: 20.10.2013 Сообщений: 808
	26.02.2015, 18:05	8
	Я же показал: Сообщение от nestquik2 OL.Add(TChashList.Create('1','2'); 0

@MasterofCDM 0 / 0 / 1 Регистрация: 24.10.2013 Сообщений: 36
	26.02.2015, 18:13 [ТС]	9
	Проглядел эту строчку. При компиляции выдает ошибку, что слишком много параметров и ссылается на содержимое скобок 0

@MasterofCDM 0 / 0 / 1 Регистрация: 24.10.2013 Сообщений: 36
	26.02.2015, 18:23 [ТС]	11
	Блиин, понял, все получилось, спасибо за помощь и терпение. 0