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

матрица, record   Найти похожие ветки 

← →
Тимоха   (2009-01-22 12:59) [0]

всем привет,на форме stringgrid, примерно 5 столбцев
1.Имя
2.id
3.rating
4.status
5.time

грид не очень удобно использовать, да и потом визуализация мне не нужна.
что можно использовать взамен? должны быть возможны функции удаления строки (записи) со всеми ее пяти значениями.
Заранее спасибо!

---

← →
Плохиш ©   (2009-01-22 13:02) [1]

TClientDataSet

---

← →
Тимоха   (2009-01-22 13:10) [2]

базы нету.

---

← →
Плохиш ©   (2009-01-22 13:17) [3]

Двунаправленный список.

PS. Зачем нужно что-то, что ни показывать, ни хранить не предполагается?

---

← →
Ega23 ©   (2009-01-22 13:29) [4]

Вариант 1.

TMyItem = record
 Name : string;
 Id : Integer;
 Rating : Не знаю что это такое;
 Status : см. Rating;
 Time : Не знаю, в каком формате ты предполагаешь время хранить;
end;

+ TList

Вариант 2

TMyItem = class (TObject)
private
 FName : string;
 FId : Integer;
 FRating : Не знаю что это такое;
 FStatus : см. Rating;
 FTime : Не знаю, в каком формате ты предполагаешь время хранить;
public
 property Name : string read FName write FName;
 property Id : Integer read FId write FId;
 ....
end;

+ TObjectList

вариант 3.

TClientDataSet + F1

Вариант 4.
TStringList + CommaSeparatedValue

Да полно вариантов...

---

← →
Тимоха   (2009-01-22 13:52) [5]

Ega23, спасибо, первый вариант с record вполне подходит.
только не понимаю как добавлять в список указатель на запись.

---

← →
Медвежонок Пятачок ©   (2009-01-22 14:03) [6]

xml

---

← →
Сергей М. ©   (2009-01-22 14:16) [7]

> Тимоха   (22.01.09 13:10) [2]
>
> базы нету.
>


TClientDataset может работать автономно, безо всяких баз.
+ когда база появится, проект, в котором сделана ставка на CDS, потребует минимум доработок/переделок.

---

← →
Ega23 ©   (2009-01-22 14:17) [8]


type
 PMyRecord = ^TMyRecord;
 TMyItem = record
   Name : string;
   Id : Integer;
   Rating : Не знаю что это такое;
   Status : см. Rating;
   Time : Не знаю, в каком формате ты предполагаешь время хранить;
 end;

var
 rec : PMyRecord;
begin
 New(rec);
 rec.Name := ...;
 rec.Id := ....;
 .....
 List.Add(rec);
end;

---

← →
Медвежонок Пятачок ©   (2009-01-22 14:28) [9]

с xml проще

---

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

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



Память: 0.47 MB
Время: 0.013 c