Сохранение и загрузка форм

[LomoCoder]

Здравствуйте! Использую такие функции для сохранения и загрузки форм:

procedure SaveComponentToFile(Component: TComponent; const FileName: TFileName);
var
  FileStream : TFileStream;
  MemStream : TMemoryStream;
begin
  MemStream := nil;
 
  if not Assigned(Component) then
    raise Exception.Create('Component is not assigned');
 
  FileStream := TFileStream.Create(FileName,fmCreate);
  try
    MemStream := TMemoryStream.Create;
    MemStream.WriteComponent(Component);
    MemStream.Position := 0;
    ObjectBinaryToText(MemStream, FileStream);
  finally
    MemStream.Free;
    FileStream.Free;
  end;
end;

procedure LoadComponentFromFile(Component: TComponent; const FileName: TFileName);
var
  FileStream : TFileStream;
  MemStream : TMemoryStream;
  i: Integer;
begin
  MemStream := nil;
 
  if not Assigned(Component) then
    raise Exception.Create('Component is not assigned');
 
  if FileExists(FileName) then
  begin
    FileStream := TFileStream.Create(FileName,fmOpenRead);
    try
      for i := Component.ComponentCount - 1 downto 0 do
      begin
        if Component.Components[i] is TControl then
          TControl(Component.Components[i]).Parent := nil;
        Component.Components[i].Free;
      end;
 
      MemStream := TMemoryStream.Create;
      ObjectTextToBinary(FileStream, MemStream);
      MemStream.Position := 0;
      MemStream.ReadComponent(Component);
      Application.InsertComponent(Component);
    finally
      MemStream.Free;
      FileStream.Free;
    end;
  end;
end;

Сохраняю так:

SaveComponentToFile(TTForm,'formdata.txt');

Загружаю так:

if not Assigned(TTForm) then
    TTForm := TTForm.Create(nil);
  LoadComponentFromFile(TTForm,'formdata.txt');
  TTForm.Show;

Сохраняет отлично, но при загрузке выдает ошибку "Error reading TMForm1:PixelsPerlnch Property PixelsPerlnch does not exist", помогите пожалуйста решить эту проблему.

[Человек_Борща]

Вероятно не правильно сохраняете и загружаете.
Вы сохраняете не думая, а при загрузке делаете отбор.

Да и надо ли вам вообще форму сохранять? Опишите задачку, может найдутся и более простые способы.

[LomoCoder]

Я делаю свой дизайнер форм, мне нужно что-бы форму можно было сохранять и загружать что-бы использовать ее в других проектах

[LomoCoder]

Сохраняется в файл это:

object TMForm1: TrainerForm
  Left = 217
  Top = 169
  Width = 240
  Height = 300
  PixelsPerInch = 96
  TextHeight = 13
end

Если убрать PixelsPerInch = 96 то работает
Можно как-то сделать что-бы он туда не записывался?

[Человек_Борща]

Можно, смотрите нутро VCL, и напишите аналоги исп. методов.
Хотя, я бы просто запоминал, что и с какими параметрами, и где находится на форме, лежать мои объекты.

[саша40]

А не проще будет ли ваще программно создавать форму? Создайте форму в компиляторе, потом разукрасте, и программно создайте, не забудь показать.

[Человек_Борща]

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

[Stilet]

TTForm := TTForm.Create(nil);

Или у меня что-то со зрением или тут идет попытка присвоить классу объект, в то время как нужно создавать объект на основе класса?
Кстати я бы наверное лучше чуть помучался, но написал бы свой маршализатор вместо (чесно говоря, хоть и ИМХО) устаревшего LoadComponentFromFile и
SaveComponentToFile на основе INI или XML.

[LomoCoder]

Маршализатор это слишком сильно для такого проекта

[Человек_Борща]

но написал бы свой маршализатор вместо (чесно говоря, хоть и ИМХО) устаревшего LoadComponentFromFile и
SaveComponentToFile на основе INI или XML.

о_О. Так ими же и пользуются эти самые творцы самой IDE. Или я чего-то не понял?