| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как хранить данные

Handle ©   (2011-04-22 17:21:00) 

в stringlist нужно хранить данные (в дальнейшем будут использоваться для визуализации):

 ProductName
 ProductType
 ProductCompany
 ProductModel
 AutoAction
 AutoLink
 AutoReason
 Antonym
 UserAction
 UserLink

Как привильнее сделать, написать класс, поля которого будут содержать необходимую информацию и передавать так StringList.AddObject('', TMyClass.Create(...)); или же подругому.

1-й вариант


TmyClass = class
private
 FProductName:string;
 FProductType:string;
 FProductCompany:string;
 FProductModel:string;
 FAutoAction:string;
 FAutoLink:string;
 FAutoReason:string;
 FAntonym:string;
 FUserAction:string;
 FUserLink:string;
public
 constructor Create(const ProductName, ProductType, ProductCompany,
   ProductModel, AutoAction, AutoLink, AutoReason, Antonym, UserAction,
   UserLink: string);
   ProductName
 property ProductType: string read FProductType;
 property ProductCompany: string read FProductCompany;
 property ProductModel: string read FProductModel;
 property AutoAction: string read FAutoAction;
 property AutoLink: string read FAutoLink;
 property AutoReason: string read FAutoReason;
 property Antonym: string read FAntonym;
 property UserAction: string read FUserAction;
 property UserLink: string read FUserLink;
end;

2-вариант

Tprods_list_item = record
  ProductName, ProductType, ProductCompany, ProductModel, AutoAction,
 AutoLink, AutoReason, Antonym, UserAction, UserLink: string;
end;

Tprods_list_item_ = class
private
 FItem: Tprods_list_item;
public
   constructor Create(const ProductName, ProductType, ProductCompany,
   ProductModel, AutoAction, AutoLink, AutoReason, Antonym, UserAction,
   UserLink: string);
property Item: Tprods_list_item read FItem;  
end;


---

sniknik   (2011-04-22 18:18:00) [1]

>  ProductName
>  ProductType
>  ProductCompany
>  ProductModel
>  AutoAction
>  AutoLink
>  AutoReason
>  Antonym
>  UserAction
>  UserLink

> Как привильнее сделать, написать класс
как "привильнее" не знаю, а правильней не писать! использовать готовый рекордсет.

---

Игорь Шевченко   (2011-04-22 17:57:00) [2]

и на этот тоже

---

Юрий Зотов   (2011-04-22 17:43:00) [3]

Первый вариант прозрачнее, только зачем использовать именно TStringList, если в AddObject все равно всегда передается пустая строка? Логичнее было бы использовать TList или TObjectList.

---

clickmaker   (2011-04-22 17:43:00) [4]

> насоветовали на другом форуме

больше туда не ходи

---

Handle   (2011-04-22 17:31:00) [5]

> а в чем фишка 2-го варианта?


насоветовали на другом форуме.

лично я пока что склоняюсь к первому варианту.

---

clickmaker   (2011-04-22 17:25:00) [6]

а в чем фишка 2-го варианта?

---

Наверх