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