VPF::Персистентность. Сохранение - Форум программистов

NieL

Дата 20.5.2009, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Начал разбираться с персистентностью. В ходе изучения столкнулся с проблемой сохранения /загрузки TObjectList'а (каждая запись является TPersistent-классом). Записывает в файл вроде бы как надо, а вот с чтение как мне кажется что-то намудрил не то. Вот собственно код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, contnrs, StdCtrls;

type
  TMyItem = class(TPersistent)
  private
    FField1: string;
    FField2: Integer;
  published
    property Field1: string read FField1 write FField1;
    property Field2: Integer read FField2 write FField2;
  end;

  TWriter_ = class(TWriter);
  TReader_ = class(TReader);

  TForm1 = class(TForm)
    btn_Save: TButton;
    btn_load: TButton;
    btn_ToListBox: TButton;
    ListBox1: TListBox;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn_SaveClick(Sender: TObject);
    procedure btn_loadClick(Sender: TObject);
    procedure btn_ToListBoxClick(Sender: TObject);
  private
    { Private declarations }
    FMyList: TObjectList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_loadClick(Sender: TObject);
var
  S: TStream;
  i: Integer;
  R: TReader_;
  Item: TMyItem;
begin
  S := TFileStream.Create('test.txt', fmOpenRead);
  try
    R := TReader_.Create(S, S.Size);
    try
      while S.Position < S.Size do
      begin
        Item := TMyItem.Create;
        R.ReadProperty(Item);
        FMyList.Add(Item);
      end;
    finally
      R.Free;
    end;
  finally
    S.Free;
  end;
end;

procedure TForm1.btn_SaveClick(Sender: TObject);
var
  S: TStream;
  i: Integer;
  W: TWriter_;
begin
  S := TFileStream.Create('test.txt', fmCreate);
  try
    W := TWriter_.Create(S, $FF);
    try
      for i := 0 to FMyList.Count - 1 do
        W.WriteProperties(TMyItem(FMyList[i]));
    finally
      W.Free;
    end;
  finally
    S.Free;
  end;
end;

procedure TForm1.btn_ToListBoxClick(Sender: TObject);
var
  i: Integer;
begin
  listBox1.Clear;
  for i := 0 to FMyList.Count - 1 do
    listBox1.Items.Add(TMyItem(FMyList[i]).FField1 + ';' +
      IntToStr(TMyItem(FMyList[i]).Field2));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Item: TMyItem;
begin
  FMyList := TObjectList.Create;

  Item := TMyItem.Create;
  Item.FField1 := 'abc';
  Item.FField2 := 123;

  FMyList.Add(Item);

  Item := TMyItem.Create;
  Item.FField1 := 'def';
  Item.FField2 := 456;

  FMyList.Add(Item);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FMyList.Free;
end;

end.

former

Дата 20.5.2009, 15:22 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Вот это почитай.

Это сообщение отредактировал(а) former - 20.5.2009, 15:22

--------------------

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

CodeMonkey

Дата 20.5.2009, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Возможно, вас заинтересует эта статья и вот эта демка.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »