Discussion :

[itmak]

je cherche la liste des fonctions de delphi. (une sorte d'index quoi)
merci

[ero-sennin]

Salut,

Je ne vois qu'une chose, l'aide
Tu recherches une fonction précise ?

[itmak]

ça y est j'ai trouvé la fonction
merci

j'ai un autre pb: pour saisir des nombres réels Quel composant et comment utiliser RzEdit ou RzNumercEdit?

sans avoir convertir...

merci

[itmak]

"RzNumerciEdit" arrondi toujours les réels en entier!
que dois je faire?

[ero-sennin]

Re,

Pourquoi ne veux tu pas faire de conversion ?
Il serait simple d'implémenter le OnKeyPress du TEdit comme ceci :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((Key = ',') or (Key='.')) then
    Key := DecimalSeparator;
  if ((not(Key in ['0'..'9',Chr(VK_DELETE),Chr(VK_BACK),DecimalSeparator])) or ((Key=DecimalSeparator) and (Pos(DecimalSeparator,Edit1.Text)>0)))  then
    Key:=#0;
end;

Et pour avoir le résultat dans une variable de type real:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
MonReel:Real;
begin
  MonReel:=StrToFloat(Edit1.Text);
  ShowMessage(FloatToStr(MonReel));
end;

Ca ne te convient pas ?
A+

[itmak]

slt ero
je vais tester.
en lisant le code...c exactement ce que je veux.
merci a++