>
> At 12:46 PM 3/20/2002 +0100, you wrote:
> >bei mir herrscht heute der Blackout, ich brauche mal Eure Hilfe.
> >Habe eine rekursive Funktion geschreiben, die beim erreichen
> eines Wert find
> >= true abbrechen soll. Wenn die weiterlaufen w�rde, wird der
> Wert wieder auf
> >false gesetzt, was keine Ausgabe zu Folge h�tte.
>
> Sub Recursive(ByRef TerminateCriteria)
> If TerminateCriteria Then
> Exit Sub
> Else
> ' do some calc, then call recursive
> Call RecursiveSub(TerminateCriteria)
> End If
> End Sub
>
> In etwa so.
>
> Chris
>
Interesannter ansatz ;-)
Wenn ich beim aufruf der funktion ein true �bergebe, dann passiert
nichts, ansonsten bekomme ich eine endlos-Schleife, bis der Stack
�berl�uft...
Gemeint war wohl sowas:
Sub Recursive(parameter...)
'suche: berechne die variable find, ergebnis
...
...
If find then
Recursive = ergebnis
else
Recursive = Recursive(parameter...)
end if
End Sub
Claudius
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
