beim speichern gibts ne komische Meldung

[SirTwist]

Morgen,

hat zwar nix mit dem eigentlichen Problem zu tun, aber:

Delphi-Quellcode:

procedure speichern_text(savedialog1:Tsavedialog;sd_hoehe,sd_laenge:array of integer;sd_takt,sd_v,sd_ende:integer);
var sd_schnitt:Textfile;
    sd:integer;
begin
 if saveDialog1.execute then begin
   assignfile(sd_schnitt,savedialog1.filename);
   ...

Warum? Weil die Datei sonst auch gespeichert wird, wenn man im Save-Dialog auf "Abbrechen" geklickt hat. Unschön.

Und zu der unerklärten, aber richtigen Antwort von dem Kaktus: Mit AssignFile ordnest Du nur der File-Variable einen Dateinamen zu, die Datei wird damit noch nicht geöffnet. Das macht erst Rewrite oder Reset. Dann kannst Du darauf schreiben bzw. davon lesen.

Gruß,
Michael