savedialog/opendialog

[marcelwhip]

so das sieht jetzt so bei mir aus:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);  ///laden
  begin
    AssignFile(F, opendialog1.filename);
    Reset(F);
    BlockRead(F, @eintrag, 300 * SizeOf(TDaten));
    Close(F);
    opendialog1.execute;
  end;

procedure TForm1.Button7Click(Sender: TObject);  //speichern
var I:Integer; //zählvariable
  begin
      AssignFile(F, savedialog1.filename);
      Rewrite(F);
      BlockWrite(F, @eintrag, 300 * SizeOf(TDaten));
      Close(F);
      schongespeichert:=true;
  end;

dann kommt immer so ne fehler meldung:"konstantausdruck kann nicht als varparameter weitergegeben werden."

achso, wenns was zur sache tut: meine datei soll dann meineDaten.mod heißrn, das hab ich schon bei beiden in som filter und so eingetragen.

Mit dem Programm hab ich mich wahrscheinlihc übernommen !!
zum glück gibts ja euch!!