beim speichern gibts ne komische Meldung

[Der.Kaktus]

Zitat von punker-lili:

Hi Leute!

Ich hab hier ne kleine Procedure entwickelt um ein Parra Daten in ne Textdatei zu speichern. Leider gibt er mir beim Auruf folgende Fehlermeldung: "Project Project1.exxe raised exception class EInOutError with massage 'I/O error 103'. Process stopped." Was bedeutet dieser Fehler und wie kann ich ihn beheben?

Die Procedure:

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
saveDialog1.execute;
 assignfile(sd_schnitt,savedialog1.filename);
 writeln(sd_schnitt,sd_takt);
 writeln(sd_schnitt,inttostr(sd_v));
 writeln(sd_schnitt,inttostr(sd_ende));
 for sd:=0 to (sd_ende -1) do
   writeln(sd_schnitt,inttostr(sd_hoehe[sd])+ inttostr(sd_laenge[sd]));
 closefile(sd_schnitt)
 end;

Danke schonmalim voraus!

MfG Anna

Hallo,

 rewrite(sd_schnitte); //bzw. append(sd_schnitte)..nach Assignfile..einfuegen