Hallo,
die Benutzung von label und goto ist eher unschön, besser wäre es so in der Art:
Delphi-Quellcode:
while not eof(f) Do
Begin
//if akt_pos<headerL+1 Then goto weiter_st;
if akt_pos >= headerL + 1 then
begin
...
//If schuss=0 Then goto fertig_st;
if schluss = 0 then Break;
end;
weiter_st:
Begin
End;
End;
fertig_st:
Ciao Chris