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

Tlist запись и загрузка из файла   Найти похожие ветки 

← →
tggbg   (2012-07-27 02:49) [0]

Прошу помощи в написании кода десериализации.
Создан 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 16:25) [1]

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

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

---

← →
Сергей М. ©   (2012-07-27 16:31) [2]

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


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

---

← →
KilkennyCat ©   (2012-07-27 16:51) [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;

---

← →
tggbg   (2012-07-27 17:27) [4]

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

---

← →
Сергей М. ©   (2012-07-27 20:54) [5]

> tggbg   (27.07.12 17:27) [4]


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

---

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

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



Память: 0.46 MB
Время: 0.109 c