Discussion :

[joreveur]

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 :

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

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

[anapurna]

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 :

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

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;

[joreveur]

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 :

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

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

[anapurna]

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

Code :

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

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 :

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

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

ou

[tintinux]

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.

[gvasseur58]

Bonjour,

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

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

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 ) :

Code :

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

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.