Liste von Arrays

[Sir Rufo]

Eine Möglichkeit (garantiert ohne MemLeaks) wäre

Delphi-Quellcode:

function TBaum.Traversiere( aElement: TElement): TStringList;
var
  lSubResult: TStrings;
begin
  Result := TStringList.Create;
  try
    if Assigned( aElement ) 
    then
      begin
        lSubResults := Traversiere( aElement.gibSohn( ToLinks ) );
        try
          Result.AddStrings( lSubResults ); 
        finally
          lSubResults.Free;
        end;

        if aElement <> Wurzel 
        then
          Result.Add( aElement.gibInhalt );

        lSubResults := Traversiere( aElement.gibSohn( ToRechts ) );
        try
          Result.AddStrings( lSubResults ); 
        finally
          lSubResults.Free;
        end;
     end;
  except
    Result.Free;
    raise;
  end; 
end;