Загрузка и сохранение в файл

[rainbow]

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

procedure TParamForm.FormShow(Sender: TObject);
var
st:Pstrings;
fs:TFileStream;
begin
if FileExists('param.dat') then
begin
  fs:=TFileStream.Create('param.dat',fmOpenRead);
  fs.Read(st^, sizeof(st^));
  fs.Free;
  StringGrid1.Cells[1,1]:=FloatToStr(st.Xm1);
  StringGrid1.Cells[2,1]:=FloatToStr(st.Ym1);
  StringGrid1.Cells[3,1]:=FloatToStr(st.X42_1);
  StringGrid1.Cells[4,1]:=FloatToStr(st.Y42_1);
  StringGrid1.Cells[1,2]:=FloatToStr(st.Xm2);
  StringGrid1.Cells[2,2]:=FloatToStr(st.Ym2);
  StringGrid1.Cells[3,2]:=FloatToStr(st.X42_2);
  StringGrid1.Cells[4,2]:=FloatToStr(st.Y42_2);
  StringGrid2.Cells[1,1]:=FloatToStr(st.Xm11);
  StringGrid2.Cells[2,1]:=FloatToStr(st.Ym11);
  StringGrid2.Cells[3,1]:=FloatToStr(st.X63_1);
  StringGrid2.Cells[4,1]:=FloatToStr(st.Y63_1);
  StringGrid2.Cells[1,2]:=FloatToStr(st.Xm21);
  StringGrid2.Cells[2,2]:=FloatToStr(st.Ym21);
  StringGrid2.Cells[3,2]:=FloatToStr(st.X63_2);
  StringGrid2.Cells[4,2]:=FloatToStr(st.Y63_2);
end;
Dispose(st);
end;

И сохранялось при выходе:

var
st:Pstrings;
f:Tfilestream;
begin
try
st:=New(Pstrings);
st.Xm1:=StrToFloat(StringGrid1.Cells[1,1]);
st.Ym1:=StrToFloat(StringGrid1.Cells[2,1]);
st.X42_1:=StrToFloat(StringGrid1.Cells[3,1]);
st.Y42_1:=StrToFloat(StringGrid1.Cells[4,1]);
st.Xm2:=StrToFloat(StringGrid1.Cells[1,2]);
st.Ym2:=StrToFloat(StringGrid1.Cells[2,2]);
st.X42_2:=StrToFloat(StringGrid1.Cells[3,2]);
st.Y42_2:=StrToFloat(StringGrid1.Cells[4,2]);
st.Xm11:=StrToFloat(StringGrid2.Cells[1,1]);
st.Ym11:=StrToFloat(StringGrid2.Cells[2,1]);
st.X63_1:=StrToFloat(StringGrid2.Cells[3,1]);
st.Y63_1:=StrToFloat(StringGrid2.Cells[4,1]);
st.Xm21:=StrToFloat(StringGrid2.Cells[1,2]);
st.Ym21:=StrToFloat(StringGrid2.Cells[2,2]);
st.X63_2:=StrToFloat(StringGrid2.Cells[3,2]);
st.Y63_2:=StrToFloat(StringGrid2.Cells[4,2]);
 f:=TFileStream.Create('param.dat',fmCreate);
f.Write(st^,sizeof(st^));
f.Free;
Dispose(st);

В типах объявлено следующее:

type
PStrings = ^Strings;
Strings = record
Xm1,Ym1,X42_1,Y42_1,Xm2,Ym2,X42_2,Y42_2,Xm11,Ym11,X63_1,Y63_1,Xm21,Ym21,X63_2,Y63_2:real;
end;

Теперь никак не могу сделать, чтобы файл с параматрами можно было сохранять под определенным именем через SaveDialog и загружать в программу через OpenDialog.

[_SERGEYX_]

if OpenDialog.Execute then
begin
fs:=TFileStream.Create('OpenDialog. FileName',fmOpenRead);
...
... или я не правильно понял?
PS. Для этого существуют ини-файлы.

[eoln]

fs:=TFileStream.Create('OpenDialog. FileName',fmOpenRead);

OpenDialog.FileName без кавычек

[rainbow]

Параметры я имел ввиду пересчета, а не программы.
C OpenDialog разобрался, теперь не знаю как создать и сохранить под определенным именем.

[Sibedir]

Если я правильно тебя понял, ты хочешь сохранять файл, например, в папку где хранится твой EXE:

fs:=TFileStream.Create (ExtractFilePath (Application.ExeName) + 'param.dat', fmOpenRead);

[rainbow]

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

Если я правильно тебя понял, ты хочешь сохранять файл, например, в папку где хранится твой EXE

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

[bashkos]

f:=TFileStream.Create(SaveDialog1.F ileName,fmCreate); - можно было по логике догадаться

[Sibedir]

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

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

Извиняюсь, не заметил

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

через SaveDialog

if SaveDialog1.Execute then begin
  f := TFileStream.Create (SaveDialog1.FileName, fmCreate);
  ...
end;

[rainbow]

bashkos Я уже догадался.
Только надо f:=TFileStream.Create(((SaveDialog1 .FileName)+'.dat'),fmCreate);
писать, чтобы еще с расширением dat сохранялось, только теперь проблема, надо условие написать, если файл существует заменить его или нет, без него прорамма просто создает файл имя файла.dat.dat.

[eoln]

if SaveDialog1.Execute then
if fileexists(SaveDialog1.FileName+'.dat') then
if MessageDlg('Заменить?', mtConfirmation,[mbYes,mbNo], 0) = mrYes then 
begin
f:=TFileStream.Create(SaveDialog1.FileName+'.dat', fmCreate);
...