invalid poiter und access violation

[Chris.R]

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