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]

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

> tggbg (27.07.12 17:27) [4]

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

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