Öffnen einer txt datei funktioniert als Funktion nicht

[marabu]

Hallo Klaus,

hat dein Compiler sich wirklich beschwert? Verwechselst du das nicht mit Arrays als Funktionstyp?

Ich hatte geschrieben, dass es bei mir keine Übersetzungsprobleme gibt. Allerdings ist das Array sd_ton überflüssig:

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, n: 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, n {sd_ton[sd]});
    sd_hoehe[sd] := n div 10; //StrToInt(Copy(sd_ton[sd], 1, 2));
    sd_laenge[sd] := n mod 10; //StrToInt(Copy(sd_ton[sd], 3, 1));
  end;
  CloseFile(sd_schnitt);
  test_klick := False;
end;

Freundliche Grüße