Некорректная загрузка формы из файла

[Serega123]

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

procedure TForm2.N3Click(Sender: TObject);
var
  RunTimeForm:TForm;
begin
  RunTimeForm:=TForm2.CreateNew(Self);
  with RunTimeForm do try
    if OpenDialog1.Execute then
    begin
      ReadFormProperties(OpenDialog1.FileName, RunTimeForm);
      Form2.Visible:=false;
      ShowModal;
    end;
  finally
    RunTimeForm.Free;
  end;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    WriteFormProperties(OpenDialog1.FileName, Self);
    Form2.Visible:=false;
    ShowModal;
  end;
end;

procedure TForm2.ReadFormProperties(DfmName: String; Form: TComponent);
var
  FileStream:TFileStream;
  BinStream: TMemoryStream;
begin
  FileStream := TFileStream.Create(DfmName, fmOpenRead);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(FileStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      BinStream.ReadComponent(Form);
    finally
      BinStream.Free;
    end;
  finally
    FileStream.Free;
  end;
end;
procedure TForm2.WriteFormProperties(DfmName: String; Form: TComponent);
var
  BinStream:TMemoryStream;
  FileStream: TFileStream;
begin
  BinStream := TMemoryStream.Create;
  try
    FileStream := TFileStream.Create(DfmName, fmOpenWrite or fmCreate);
    try
      BinStream.WriteComponent(Form);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, FileStream);
    finally
      FileStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;

[bitSoft]

Сообщение от Serega123

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

procedure TForm2.N3Click(Sender: TObject);
var
  RunTimeForm:TForm;
begin
  RunTimeForm:=TForm2.CreateNew(Self);
  with RunTimeForm do try
    if OpenDialog1.Execute then
    begin
      ReadFormProperties(OpenDialog1.FileName, RunTimeForm);
      Form2.Visible:=false;
      ShowModal;
    end;
  finally
    RunTimeForm.Free;
  end;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    WriteFormProperties(OpenDialog1.FileName, Self);
    Form2.Visible:=false;
    ShowModal;
  end;
end;

procedure TForm2.ReadFormProperties(DfmName: String; Form: TComponent);
var
  FileStream:TFileStream;
  BinStream: TMemoryStream;
begin
  FileStream := TFileStream.Create(DfmName, fmOpenRead);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(FileStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      BinStream.ReadComponent(Form);
    finally
      BinStream.Free;
    end;
  finally
    FileStream.Free;
  end;
end;
procedure TForm2.WriteFormProperties(DfmName: String; Form: TComponent);
var
  BinStream:TMemoryStream;
  FileStream: TFileStream;
begin
  BinStream := TMemoryStream.Create;
  try
    FileStream := TFileStream.Create(DfmName, fmOpenWrite or fmCreate);
    try
      BinStream.WriteComponent(Form);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, FileStream);
    finally
      FileStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;

Ti sahroneaeshi svoistva adnovo formu a chitaeshi v druguiu, elsi ne ashibaiusy

[Serega123]

procedure TForm2.N4Click - сохранение Self в файл OpenDialog1.FileName
procedure TForm2.N3Click - открытие файла OpenDialog1.FileName и запись значений в форму RunTimeForm, которая сейчас задается как TForm2.CreateNew(Self). т.е. по идее мы создаем новую форму, а старую никуда не деваем, и никак у меня не получается её убрать, Visible, Close, Hide не действуют, может кто знает как её спрятать, еще раз скажу работает корректно, но остается ненужное старое окно ....

[Serega123]

И сохраняет также ... один раз сохраняет, апотом умирает ... программа, пишет cannot make a visible window modal, на форумах смотрел поиском, пишут надо перед ShowModal прописывать Visible:=false, но что-то не помогает ...

[bitSoft]

Сообщение от Serega123

И сохраняет также ... один раз сохраняет, апотом умирает ... программа, пишет cannot make a visible window modal, на форумах смотрел поиском, пишут надо перед ShowModal прописывать Visible:=false, но что-то не помогает ...

eli ti zdelal visible := false to tebe ashibka potomushto ti vizivaeshi ShowModal, nu zdelai visible := true;

[Serega123]

Перепробовал всякие комбинации true/false, ничего не выходит, а загрузку/сохранение очень надо сделать ... может как-то по-другому можно сделать сохранение формы (или всей информации с формы) в файл и потом считывать ... ? Подскажите, пожалуйста.

[maLoy*508]

попробуй использовать бд... и таблицы для хранения информации....