Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[hamptoncourt]

"Project project1.exe raised exception class 'RunError(5)'"

Dann wechselt er in die Zeile "for x:=0 to 900 do begin", dem Beginn der Schleife zum Auslesen der Daten ...

Delphi-Quellcode:

assignfile(f,'Werte.txt');
  reset(f);

  for x:=0 to 900 do
   begin
    readln(f, s);
    sinWert[x] := strtofloat(s);
    readln(f, c);
    cosWert[x] := strtofloat(c);

   end;