ScrollBar et TEdit liés

Bonjour
j'ai un TEdit dans lequel je peux rentrer des valeurs comprises entre 1 et 100 et qui fait varier un TScrollBar de 1 à 100 ou inversement en modifiant le TScrollbar

voici un bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Edit5Change(Sender: TObject); var cr:integer; r:real;   begin val(edit5.text,r,cr); if cr=0 then begin ScrollBar5.Position:=round(r); end; end;   procedure TForm1.ScrollBar5Change(Sender: TObject); begin edit5.text:=FormatFloat('#####0.##',scrollbar5.Position); end;

---

mais ce que je souhaiterais, ce serait de pouvoir faire varier les valeurs par "pas" de 0.1 (par exemple) soit dans le TEdit soit dans le ScrollBar, mais comme TScrollBar.position n'admet que des entiers, je ne vois pas trop...

Merci de vos conseils

Cordialement

salut

il te suffit de lui appliquer une coef multiplicateur par exemple dans ton cas 10
donc dans ton cas le pas de 1 reviendra 1/10 = 0.1

reprenons ton code et modifions le

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Edit5Change(Sender: TObject); var cr:integer; r:real; begin val(edit5.text,r,cr); if cr=0 then begin ScrollBar5.Position:=round(r*10); end; end; procedure TForm1.ScrollBar5Change(Sender: TObject); begin edit5.text:=FormatFloat('#####0.##',scrollbar5.Position/10); end;

---

Bonjour et merci de ta réponse rapide.
Oui effectivement c'est la bonne solution et ça fonctionne. :)
cependant en récupérant la valeur des Tedit je n'arrivais pas à la convertir en numérique sauf pour les entiers.
alors en cherchant un peu, j'ai constaté que les virgules et les points (notation française/américaine) me mettaient la panique.
j'ai contourné le problème de cette façon mais il y a peut-être plus simple, à moins que ce soit des paramètres de Lazarus ?

Code:

---

1 2 3 4 5

s:=edit5.text; for i:=1 to length(s) do if s[i]=',' then s[i]:='.'; val(s,r,cr); etc...

---

Bien cordialement

salut
oui beaucoup plus simple
on créé une petite fonction qui peut servir souvent si ce n'est pas déjà fait ;)

Code:

---

1 2 3 4 5 6 7 8

fonction IIF(Test : Boolean;TrueValue, FalseValue : String ) : String; begin if Test then Result := TrueValue else Result := FalseValue; end;

---

Le code pour le remplacement au final est :

Code:

---

StringReplace(st,iif(DECIMALSEPARATEUR='.',',','.'),DECIMALSEPARATEUR)

---

ou

Bonjour

Il faut mieux décoder les chaînes numériques avec StrToFloat ou TryStrToFloat, ou StrToCurr, ou TryStrToCurr.
De cette manière les programmes fonctionneront dans tous les environnements quelque soit le séparateur décimal, qui n'est pas fixé par Lazarus, mais par le Système.
Évidemment ça n'arrivera pas dans le cas soumis, mais si on tape 1,000 avec un système anglo-saxon, cela doit être interprété comme mille.

Bonjour,

Citation:

---

Envoyé par tintinux

Bonjour

Il faut mieux décoder les chaînes numériques avec StrToFloat ou TryStrToFloat, ou StrToCurr, ou TryStrToCurr.

---

C'est la solution que je choisirais aussi ;)

Citation:

---

Envoyé par anapurna

salut
oui beaucoup plus simple
on créé une petite fonction qui peut servir souvent si ce n'est pas déjà fait :wink:

---

Encore plus simple : il est inutile de créer la fonction puisqu'elle existe déjà (et en un peu mieux puisque le "si faux" est optionnel :mouarf:) :

Code:

---

1 2 3 4 5 6

function IfThen( AValue: Boolean; const ATrue: string; const AFalse: string = '' ):string; overload;

---

Elle est disponible dans l'unité strutils. La version pour les nombres (d'où le overload) est dans l'unité math.