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

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

Tlist запись и загрузка из файла

tggbg ©   (2012-07-27 02:49:00) 

Прошу помощи в написании кода десериализации.
Создан Tlist, нужно чтобы данные сохранялись и загружались потом, нашел код сохранения, но не смог разобраться в нем до конца чтобы написать загрузку данных, прошу помочь в этом деле.
procedure TGridList.Serialize(serializer: TStringList);
begin
 serializer.Add(format('%s///%g', [Number,Price]));
end;

procedure TForm1.Serialize(const filename: string);
var
 serializer: TStringList;
 i: integer;
begin
 serializer := TStringList.Create;
 try
   for i := 0 to List.Count - 1 do
     TGridList(List.Items[i]).Serialize(serializer);
   serializer.SaveToFile(filename);
 finally
   serializer.Free;
 end;
end;

---

Сергей М.   (2012-07-27 20:54:00) [1]

> tggbg   (27.07.12 17:27) [4]


А ты чем собссно недоволен ?

---

tggbg   (2012-07-27 17:27:00) [2]

Медвежонок Пятачок, прозвучало как оправдание, нечем помочь - иди мимо.

---

KilkennyCat   (2012-07-27 16:51:00) [3]

procedure TForm1.LoadSerialize(const filename: string);
var
serializer: TStringList;
i: integer;
begin
serializer := TStringList.Create;
try
  serializer.LoadFromFile(filename);
finally
  serializer.Free;
end;
end;

---

Сергей М.   (2012-07-27 16:31:00) [4]

> прошу помочь в этом деле


В каком конкретно - в "разбирательстве" или в "написательстве" ?

---

Медвежонок Пятачок   (2012-07-27 16:25:00) [5]

нашел код сохранения, но не смог разобраться в нем до конца

напомнило вчерашнее радио.
"купил таблетки для повышения интеллекта, но не смог открыть коробку"

---

Наверх