Help on saving files

[dixy999]

Hi,

I'm having this problem with the TSaveDialog. When i attempt to save data to a binary file it doesnt save the file to the path I browse to in the dialog box. I assume i have to do something like setdir but after trawling google and these forums, i've found nothing of use.
Thanks in advance.

Heres my code:

Code: [Select]

procedure Tpacker_main.btnsaveClick(Sender: TObject);

var
  filename: string;
  openfile: file of Tsave;
  Data:     Tsave;

  ObjectWidthSave: string;
begin
  saveDialog.Filter      := '*.dat';
  saveDialog.DefaultExt  := 'dat';
  saveDialog.FilterIndex := 0;
  SaveDialog.Execute;
  filename := SaveDialog.Filename;
  edit_loadsave.Text := filename;

  Data.ObjectWidthSave    := FloatToStr(ObjectWidth);
  Data.ObjectHeightSave   := FloatToStr(ObjectHeight);
  Data.ObjectDepthSave    := FloatToStr(ObjectDepth);
  Data.ObjectMassSave     := FloatToStr(ObjectMass);
  Data.PackagingThicknessSave := FloatToStr(PackagingThickness);
  Data.PackagingMassSave  := FloatToStr(PackagingMass);
  Data.MaterialThicknessSave := FloatToStr(MaterialThickness);
  Data.PlywoodDensitySave := FloatToStr(PlywoodDensity);

  Assignfile(openfile, filename);
  rewrite(openfile);
  Write(openfile, Data);
  CloseFile(openfile);
end;


[typo]

I see no problems with TSaveDialog.

Lazarus 0.9.30 r29749 FPC 2.4.2 i386-win32-win32/win64

[Blaazen]

For me TSaveDialog also works well.

Only note that

Code: [Select]

SaveDialog.Execute is function so your code sould be:

Code: [Select]

if SaveDialog.Execute=true then
  begin
    filename := SaveDialog.Filename;
    edit_loadsave.Text := filename;
    ...
It is for the case that someone cancel SaveDialog.

[dixy999]

Yeah, TSaveDialog works and saves the file, but not to the path i select in the dialog, it just saves it to the program directory...

P.S.
Thanks Blaazen, i havent fully tested the program yet but this should prevent one more bug.

[EDIT]
Solved

I updated my version of lazarus to 0.9.30