Comment obtenir le resultat du premier coup ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment obtenir le resultat du premier coup ?

coline

Bonsoir à tous ,

j'ai fais une procedure, mais elle ne marche pas correctement.La procedure doit afficher , en cas de mauvais chiffre, le premier chiffre superieur à celui entrer dans l'edit qui est divisible par 3 : la voici

Code :

procedure TForm1.TesterClick(Sender: TObject);
var
Chiffre: Integer;
begin
Chiffre := StrToInt(Edit1.Text);
if (Chiffre mod 3 ) = 0 then exit
else
begin
inc(Chiffre , 1);
end;
Edit1.Text := IntToStr( Chiffre);
// ShowMessage(inttostr(chiffre));
end;
end.

le probleme , comment afficher le bon chiffre du premier coup en cliquant qu'une fois sur le bouton .Si je rentre le chiffre "13" par exemple , il m'affiche "14" , je reclique et il m'affiche "15". mais comment lui faire afficher "15" sans recliquer ? :??:

Merci :sol:

Publicité

antp

Super Administrateur
Champion des excuses bidons

procedure TForm1.TesterClick(Sender: TObject);
var
Chiffre: Integer;
begin
Chiffre := StrToInt(Edit1.Text);
Inc(Chiffre, Chiffre mod 3);
Edit1.Text := IntToStr(Chiffre);
end;

Message édité par antp le 24-07-2004 à 22:41:41

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

coline

j'ai failli crier de joie :cry: .
Si je rentre le chiffre "11" il me met "13" au lieu de "12" . Si je mets "13" il met "14" , je reclique et il passe à "16" .

Merci

antp

Super Administrateur
Champion des excuses bidons

Ha ouais j'ai fait le truc à l'envers.
Il faut ajouter ce qu'il manque pour en faire un multiple de 3, et non pas ajouter ce qu'il a de plus que le multiple inférieur

var
Chiffre: Integer;
begin
Chiffre := StrToInt(Edit1.Text);
if (Chiffre mod 3) <> 0 then
Inc(Chiffre, 3 - (Chiffre mod 3));
Edit1.Text := IntToStr(Chiffre);
end;

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

coline

:jap: :jap: chapeau bas . tant dans l'optimisation que dans la competence du code :jap:

coline

oups , j'oubliais ,

Merci antp

FORUM HardWare.fr

Programmation

Delphi/Pascal

Comment obtenir le resultat du premier coup ?

Sujets relatifs
traitement du résultat d'un ping	replace seulement sur le premier élément
ranger le résultat d'une requete dans un formulaire	[RESOLU] - [VB6] Obtenir le nombre de dimensions d'un tableau ?
PHP MySql : revenir au début d'un résultat de requete	Requête SQL et résultat
[RESOLU] Obtenir le resultat d'une requete et le nombre de reponse	[vbs] Comment ouvrir un fichier et récupérer le résultat d'une cmd
[PHP] Obtenir une image transparente malgré imagecreatetruecolor ???
Plus de sujets relatifs à : Comment obtenir le resultat du premier coup ?

Page générée en 0.041 secondes