generer un nombre premier

Réponse acceptée !
Faut que tu trouve un nombre premier au hasard c ça ?

Sinon je croit voir d'ou viend ton probleme :
Je suppose que ce code est dans la procedure ButtonGenererClick et que si ton nombre n'est pas premier tu la relance ?
Si c'est le cas ya deux gros problemes :
- Deja tu teste si i divise ton nombre. Si NON ok on passe au suivant. Si OUI on relance une procedure ButtonGenererClick : mais la tu devrai deja faire un break pour pas tester les si les nombre après i divisent temp puiske t'en a trouvé un.
- Ensuite ce qui fait planté c'est le fait que tu fait un appel a ButtonGenererClick. Dans cette méthode si tu trouve pas de nombre premier, tu réapelle ButtonGenereClick, alors que la procedure n'est meme pas achevé, ce qui force le pc a mémoriser le fait que y'a une procedure ButtonGenererClick qui est démarrée et qu'il faudra la finir... On appele ça une fonction récursive puisque qu'elle sappelle elle-meme... Le prob c'est que a force de pas trouver de nombre premier il continu d'appeler cette procedure sans la finir, donc le pc doit memoriser de plus en plus pour savoir ou il en est, et au bou d'un moment ça sature...

Les info sur ou en est le programme dans les procedure on appelle ça la pile (stack), et la tu en demande trop donc dépassement (overflow).

Je sais pas si tu va comprendre ce que je te dit mais c dur a expliquer lol...

Ce qu'il faudrai plutot que tu fasse c'est un truc du genre :

TANT QUE on a pas trouvé de nombre premier FAIRE
BEGIN
    Generer un nombre premier;
    tester les diviseur et si on en trouve pas on dit que on a trouvé un nombre premier
END

neodelphi

Réponse acceptée !
voila, j ai reussi !!

[code]
var
  i, Temp, Reste: Integer;
begin
  Randomize;
  repeat
  Temp:= Random(10)*100+Random(10)*10+Random(10);
  for i:=2 to Floor(Sqrt(Temp)) do
  begin
    Reste:= Temp mod i;
    if Reste=0 then Break;
    if i= Floor(Sqrt(Temp)) then EditClePublique.Text:= IntToStr(Temp);
  end;
  until EditClePublique.Text<>'';
[\code]

j ai donc evite la recursivite... (cest plus facile)

merci a tous pour vos conseils