Hallo,

ich habe eine Delphi-Funktion gebastelt, die mir Stücklisten in einem Report auflöst. Damit das nun auf mehreren Ebenen geht, wollte ich die Funktion gerne rekursiv aufrufen.

Das ganze sieht so aus:

function StuecklisteRekursiv(ArtNo: String): String;
var
ArtID : integer;
PosNum: integer;
IDMat : integer;
ArtIDMat : integer;
TextMat: string;
ArtNoMat: string;
begin
Result:= '';

………

{ Rekursiver Aufruf }
Result := Result + StuecklisteRekursiv(ArtNoMat);
{ Material_1.Lines.Add(StuecklisteRekursiv('11000011')); }

………

end;

Bei der fett markierten Zeile kommt der Fehler: StuecklisteRekursiv, Zeile 38: Undefinierter Bezeichner: ‘StuecklisteRekursiv‘.

Es sieht so aus, als wäre dem Kompiler die Funktion StuecklisteRekursiv nicht bekannt, wenn sie sich selbst aufruft.

Die Funktion an sich funktioniert ohne Probleme.

Hat da jemand ne Idee? Muss die Funktion irgendwie anders definiert werden? Oder gibt es irgendwo ein globales Flag, das rekursive Aufrufe verbietet?

Grüße,

Jochen