Öffnen einer txt datei funktioniert als Funktion nicht

**punker-lili**

Hi Leute!
Ich hatte folgenden Ablauf zum Öffnen einer Textdateiin meinem Programm. Da ich dieses jetzt öfters brauche, wollte ichs als Procedure speichern aber da meckert er rum, wenn ich die Länge der dynamischen arrays festlege. Wie kann man das beheben?

Der Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure oeffnen(ort:string;var sd_takt,sd_v,sd_ende:integer;var sd_laenges,sd_hoehes:array of integer;var test_klick:boolean);

var sd_schnitt:Textfile;

    sd_hoehe,sd_laenge:array of integer;

    sd_ton:array of string;

    sd:integer;

begin

 AssignFile(sd_schnitt,ort);

 Reset (sd_schnitt);

 readln(sd_schnitt,sd_takt);

 readln(sd_schnitt,sd_v);

 readln(sd_schnitt,sd_ende);

 setlength(sd_ton,sd_ende);

 setlength(sd_laenge,sd_ende);

 setlength(sd_hoehe,sd_ende);

 for sd:=0 to sd_ende -1 do

  begin

   readln(sd_schnitt,sd_ton[sd]);

   sd_hoehe[sd]:=strtoint(copy(sd_ton[sd],1,2));

   sd_laenge[sd]:=strtoint(copy(sd_ton[sd],3,1));

  end;

closefile(sd_schnitt);

test_klick:=false;

end;

Danke!

Öffnen einer txt datei funktioniert als Funktion nicht

Öffnen einer txt datei funktioniert als Funktion nicht

Forumregeln