Problem mit einer Stringlist und Pointern

[sirius]

Zitat von Muetze1:

... wenn er deinem Rat folgt, hat er kein Result mehr in der Methode.

Das bezog sich auf die nested procedure.


Also nochmal zusammengefasst:

Delphi-Quellcode:

function TBauteilListe.GetLines: TStringlist; 

  procedure Rekursiv(p: PBauteil; const Lst: TStringlist); 
  var i: integer; 
  begin 
    if p <> nil 
      then 
        begin 
          if p^.Next <> nil 
            then 
              for i := low(p^.next) to high(p^.next) do 
                begin 
                  Rekursiv(p^.next[i],Lst); 

                end; 
          Lst.Add(p^.ID)
     end; 
  end; 

begin 
  result := TStringList.Create; 
  Rekursiv(FRoot,result); 
end;