begin process at 2008 05 16 07:10:15
1 173 219 membres
61 nouveaux aujourd'hui
13 970 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Aide sur delphi [ Système / Exécution ] (zakilebleu)

Aide sur delphi le 01/05/2008 18:22:18

zakilebleu


slt j'ai un petit soucis sur mon programme que j'ai achevé je veut que j'ecrit le nembre de fois qu'il répete l'action en boucle dans un edit text et lui il le répet en clickant sur un boutton

exuser moi si il y'a des faute car je suis d'algerie

Re : Aide sur delphi le 01/05/2008 19:30:43

f0xi
Membre Club
(Admin CS)
Réponse acceptée !

procedure Loop(const ReLoop: integer = 1);
var N : integer;
begin
  for N := 0 to ReLoop-1 do
  begin
    {...}
  end;
end;

procedure TFormX.ButtonXClick(Sender: TObject);
var ReLoop : integer;
begin
  (Sender as Tbutton).Enabled := false;

  ReLoop := StrToIntDef(EditX.Text, 0);
  Loop(ReLoop);

  (Sender as Tbutton).Enabled := true;
end;




Re : Aide sur delphi le 02/05/2008 16:46:55

zakilebleu


slt mon frere foxi un remercimentne suffit pas pour ton aide

Re : Aide sur delphi le 02/05/2008 21:11:04

f0xi
Membre Club
(Admin CS)

bah pour me remercier, evite juste de m'appeler "mon frere" ...
moi je prefere avoir que des soeurs...







Classé sous : aide, delphi

Participer à cet échange

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS