[code]
var
i: Integer;
Temp: Integer;
begin
Randomize;
Temp:= Random(10)+Random(10)*10+Random(10)*100+Random(10)*1000+Random(10)*10000;
for i:= 2 to Round(Power(Temp,0.5)) do
begin
if Temp mod i<>0
then ButtonGenererClick(Sender); // <============== ici
end;
EditClePublique.Text:=IntToStr(Temp);
[/code]
salut, jessaie de generer un nombre premier, seulement ca plante
apparement une erreur de stackoverflow ou quelque chose comme ca...
peut etre que ca vient de l appel a elle meme (la procedure) si le nombre n est pas premier...