Discussion :

[wafiflicha]

salut les amis,
je cherche un petit exemple sur une "rappel récursive" dirigé sur delphi avec procedure,
merci d'avance.

[ShaiLeTroll]

??? As-tu regardé ce Cours ???
La récursivité c'est valable pour n'importe quel langage, et en plus c'est fourni en Delphi !

Google : "delphi récursivité" me renvoie :
Cours : Algorithmes et Récursivité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function RecurseA(Param1: Integer): Integer;
begin
  if Param1 < 100 then
    Result := RecurseA(Param1 + 1)
  else
    Result := Param1;
end;

Dans un Bouton, si j'ai pas fait de boulette (j'ai tapé directement sur le forum), ça donne 99

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowMessage(IntToStr(RecurseA(0));

[Dr.Who]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
function RecurseA(Param1: Integer): Integer;
begin
  if Param1 < 100 then
    Result := 100
  else
    Result := Param1;
end;

huhuhu

[wafiflicha]

merci ami, j'ai trouve la solution