Endlosschleife

[xineohp]

Delphi-Quellcode:

  if Halter^.text = Text then 
  begin 
    // wenn das zu löschende item am anfang(Halter) ist 
    i := Halter^.next; 
    Dispose(Halter); 
    Halter := i; 
  end 
  else 
  begin 
    // wenn das zu löschende item in der mitte oder am ende ist 
    i := Halter; 
    while (i^.next <> nil) do  // i wurde nie geändert!
    begin 
      if i^.next^.text = Text then 
      begin 
        p := i^.next^.next; 
        Dispose(i^.next); 
        i^.next := p; 
      end
      else i := i^.next;  // diese Zeile fehlte! 
    end; 
  end;