Problem mit einer Stringlist und Pointern

[sirius]

Doch, ich habs ja mit dem Debugger durchlaufen lassen.

Denk immer daran, die Funktion ist Rekursiv, ruft sich also selber wieder auf. Und das kann n-mal passieren (bis der Stack voll ist)
In unserem Fall reichen zwei Ebenen. Also angenommen es gibt rekursiv1 und rekursiv2:

Delphi-Quellcode:

procedure Rekursiv2(p: PBauteil; Search: string; var MyResult: PBauteil); 
  var i: integer; 
  begin 
    if p <> nil 
      then 
        if p^.ID = Search 
          then 
            MyResult := p  //hier veränderst du MyResult und damit p in Rekursiv1
          else 
        if length(p^.Next) > 0 
          then 
            for i := low(p^.next) to high(p^.next) do 
              Rekursiv3(p^.next[i],Search,p); 
  end;

Delphi-Quellcode:

procedure Rekursiv1(p: PBauteil; Search: string; var MyResult: PBauteil); 
  var i: integer; 
  begin 
    if p <> nil 
      then 
        if p^.ID = Search 
          then 
            MyResult := p 
          else 
        if length(p^.Next) > 0 
          then 
            for i := low(p^.next) to high(p^.next) do 
              Rekursiv2(p^.next[i],Search,p); //<--- hier ist der Absturz beim 2. Schleifendurchlauf
  end;

Versuch jetzt mal gedanklich durch den Code durchzusteigen. Das Problem liegt innerhalb von Rekursiv1, und zwar beim Aufruf von Rekursiv2.
Ob nun Rekursiv 1, sich selber oder Rekursiv2 aufruft, ist dabei egal. Man programmiert natürlich so, dass er sich selber aufruft. Darum nennt man es ja auch rekursiv.

Der Start der Rekursion erfolgt mit
Rekursiv1(FRoot,ID,FPBauteil); Edit: Leider habe ich nicht erkannt, was aus dieser Funktion, das Ergebnis sein soll, deswegen kann ich es dir auch nicht umschreiben.