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