VPF::Загрузка формы из текстового файла

CynicRus

Дата 17.7.2012, 17:01 (ссылка)

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

Загрузка ...

Бывалый

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

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

Приветствую уважаемых форумчан. Возникла следующая проблема:
пишу дизайнер форм, и потребовалось сохранять\загружать форму с компонентами.
Сохраняю:

Код


procedure TCompForm.SaveDesignForm(filename: string);
var
  fs: TFileStream;
  ms: TMemoryStream;
begin
  filename:=filename+'.smf';
   if not assigned(f) then exit;
  fs := TFileStream.Create(FileName, fmCreate);
  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(f);
    ms.Position := 0;
    ObjectBinaryToText(ms, fs);
  finally
    ms.Free;
    fs.Free;
  end;
end;

- превосходно сохраняется в текстовый файл. Затем пробую загрузить:

Код


procedure TCompForm.LoadDesignForm(filename: string);
var
 fs: TFileStream;
  ms: TMemoryStream;
begin
  if not assigned(f) then
  begin
  f:=TDsgnForm.Create(panel1);
  f.Left:=0;
  f.Top:=0;
  f.Show;
  end;
  //f:=nil;
  fs := TFileStream.Create(FileName, 0);
  ms := TMemoryStream.Create;
  try
    ObjectTextToBinary(fs, ms);
    ms.Position := 0;
    ms.ReadComponent(panel1);
  finally
    ms.Free;
    fs.Free;
  end;
end;
*****
initialization
  RegisterClass(TButton);
  RegisterClass(TListBox);
  RegisterClass(TRadioButton);
  RegisterClass(TCheckBox);
  RegisterClass(TImage);
  RegisterClass(TComboBox);
  RegisterClass(TEdit);
  RegisterClass(TLabel);
  RegisterClass(TDsgnForm);

-и не получается, ругается dublicate identifier, компонент(невизуальный) с таким именем уже существует. Каким образом можно загрузить эту форму? Или нужно переделывать так, чтобы на ней все создавалось динамически?

CynicRus

Дата 17.7.2012, 17:18 (ссылка)

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

Загрузка ...

Бывалый

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

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

На меня снизошло озарение - и все заработало:

Код


procedure TCompForm.LoadDesignForm(filename: string);
var
 fs: TFileStream;
  ms: TMemoryStream;
  i: integer;
begin
  if not assigned(f) then
  begin
  f:=TDsgnForm.Create(panel1);
  f.Left:=0;
  f.Top:=0;
  f.Show;
  end;
  //f:=nil;
   for i:=f.ComponentCount-1 downto 0 do
    f.Components[i].Free;
  fs := TFileStream.Create(FileName, 0);
  ms := TMemoryStream.Create;
  try
    ObjectTextToBinary(fs, ms);
    ms.Position := 0;
    ms.ReadComponent(f);
  finally
    ms.Free;
    fs.Free;
  end;
end;

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