Öffnen einer txt datei funktioniert als Funktion nicht

[Klaus01]

Hallo,

gut, ich nehme alles zurück und behaupte das Gegenteil.

Bei mir funktioniert der Code:

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);

end;

So rufe ich ihn auf:
 oeffnen('d:\test.txt',takt,v,ende,testArray1,testArray2,test_klick); So sieht meine Typendeklaration aus:

Delphi-Quellcode:

type
  IArray = Array of Integer;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    testArray1: IArray;
    testArray2: IArray;
    takt,v,ende: Integer;
    test_klick: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

Grüße
Klaus