Discussion :

[cincap]

Bonjour à toutes et à tous,

Je me demandais si cette condition (qui fonctionne !) est logiquement écrite.

Je teste si la hauteur de l'écran est plus petite que 767 alors mon checkBox est enabled sinon pas.

Code :

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

1
2
3
 
if inttostr(screen.height) <inttostr(767) then cb5.Enabled := true
 else cb5.Enabled := false;

Merci à tous.

@+,

Cincap

[Rayek]

Pourquoi ne serait elle pas logique ?

Sinon tu peux même en réduire l'écriture

Code :

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

1
2
 
cb5.Enabled := (inttostr(screen.height) <inttostr(767));

ca fera exactement la même chose sans le if else

[cincap]

@ Rayek, merci pour ta réponse, cela me semblait drôle au niveau visuel.

Je tiens naturellement compte de ta suggestion.

@+,

Cincap

[tenpigs]

La question est : est-ce que passé en string est vraiment ce que tu veux faire?
en effet il me semble que avec ton code un screenHeight de 8 par exemple sera plus grand que 767 car tu fais la comparaison en ayant converti en chaine de caractère (il me semble que dans ce cas la comparaison est faite entre les 1er caractères des deux chaines puis sur les 2e ... du coup '8' > '767' car '8' > '7')

Il me semble plus normal que tu ais cb5.Enabled := (screen.height<767);

dans le cas ou tu veux vraiment faire une comparaison entre deux chaines de caractères je veux bien en connaitre l'explication

[cincap]

@ tenpigs, en fait je détecte la résolution de l'écran actif, dans mon cas je suis en 1024 x 768, mon application s'affiche en entier, mon checkBox ne doit pas être enabled puisqu'il sert uniquement à diminuer la hauteur de ma fiche dans le cas d'un écran ayant une résolution de 1024 x 600 (petit notebook) car dans ce cas, forcément mon application ne s'affiche pas en entier.

Dans mes essais, j'utilisais un Tedit ou un Tlabel pour inscrire la valeur de 767.

Maintenant tu as aussi raison puisque ton code fonctionne.

@+,

Cincap

[tenpigs]

Je voulais juste attirer ton attention sur le fait que si tu fait des inttostr() la comparaison sera une comparaison de type alphabétique (donc '8' > '750' comme 'z'>'aspirateur') pour que 8<750 il faut que tu compare deux valeurs numériques (en l'occurence screen.height et 767 sont de type integer et sont déjà des valeurs numériques).

[Dr.Who]

effectivement, rien ne sert de convertir en chaine, surtout que cela invalide la comparaison, Delphi n'interpretant en rien les chaines représentant des valeurs numérique.

donc :

Code :

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

1
2
 
cb5.Enabled := screen.height < 768;

puisque la résolution N x 767 n'existe pas.

[cincap]

@ Dr.Who, en effet dans ce cas, mais comme mes essais se faisait à partir d'un TLabel et d'un TEdit, integer et string provoquait une erreur.

Maintenant en utilisant directement votre code, cela semble fonctionner.

Merci à vous pour ce complément d'infos.

@+,

Cincap

[Dr.Who]

ah oui d'accord je vois, alors, juste pour info, quand tu as une chaine (label, edit etc) tu peux faire ces combinaisons :

chaine et chiffre :

Code :

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

1
2
3
4
if TryStrToInt(EditN.Text {string}, V {integer}) then
  B {Boolean} := V < 768
else
  B := false;

ou, chaine et chaine :

Code :

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

1
2
3
4
5
 
if TryStrToInt(EditN.Text, eV) and TryStrToInt(LabelN.Caption, lV) then
  B := eV < lV
else
  B := false;

[cincap]

@ Dr.Who, merci pour l'info et bien entendu pour ta présence active sur ce forum.

@+,

Cincap