Fehler im Quelltext

[p80286]

Zitat von Sir Rufo:

Hier mal formatiert und in Delphi-Tags
(nur damit der TE sieht, wie das aussehen könnte bzw. sollte)

Das sieht ja noch immer Gruselig aus. Sprechende Variablennahmen scheinen noch nicht bis in den Unterricht vorgedrungen zu sein.
Und dies hier scheint auch aus TP-Zeiten übrig geblieben zu sein:

Delphi-Quellcode:

  reflektor := 'Reflektor' + Edit1.Text + '.dat';
  ASSIGNFILE( freflektor, reflektor );
  RESET( freflektor );
  SEEK( freflektor, STRTOINT( Edit2.Text ) - 1 );
  FOR zaehler := 0 TO 25 - ( STRTOINT( Edit2.Text ) - 1 ) DO
    BEGIN

Gruß
K-H