StreamDatei öffnen ohne OpenDialog.Execute

[moperswings]

Delphi-Quellcode:

procedure TForm1.save1();
var
  i: integer;
  pfad: string;
begin
  pfad := Edit1.Text + '.dat';
  Stream := TFileStream.Create(pfad, fmCreate);
  dsSave;
  Stream.WriteBuffer(dsmax, SizeOf(Word));
  for i := dsmax - 1 downto 0 do
  Stream.WriteBuffer(Daten, SizeOf(TDaten));
  Stream.Free,
end;

Dirk