DBGRID + Monétaire + Ado
Résolu
laksdjfhljka
Messages postés
1
Date d'inscription
samedi 12 juillet 2003
Statut
Membre
Dernière intervention
10 janvier 2008
-
10 janv. 2008 à 01:10
Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 - 10 janv. 2008 à 16:13
Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 - 10 janv. 2008 à 16:13
A voir également:
- DBGRID + Monétaire + Ado
- String ado - Forum C
- Ado mysql - Forum Visual Basic
- Asp.net ado - Forum ASP.NET
- Dbgrid selected row delphi - Forum Delphi / Pascal
- Delphi dbgrid get cell value - Forum Delphi / Pascal
1 réponse
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
10 janv. 2008 à 16:13
10 janv. 2008 à 16:13
Salut,
Un exemple :
Const CurrencyUnit : String = ' $';
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := CurrencyUnit;
Edit2.Text := CurrencyUnit;
end;
procedure TForm1.ControlEnter(Sender: TObject);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnEnter et OnClick de chaque Edit.}
begin
{On place le caret juste avant le symbole monétaire.}
(Sender as TEdit).SelStart := Length((Sender as TEdit).Text)-(Length(CurrencyUnit));
end;
procedure TForm1.ControlKeyPress(Sender: TObject; var Key: Char);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnKeyPress de chaque Edit.}
begin
{On filtre les saisies.}
if not(Key in ['0'..'9',#8 ,#46]) then Key := #0;
end;
procedure TForm1.ControlExit(Sender: TObject);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnExit de chaque Edit.}
var
V : Extended;
Code : Integer;
S : String;
begin
{On élimine le symbole monétaire.}
S := Copy((Sender as TEdit).Text,0,Length((Sender as TEdit).Text)-Length(CurrencyUnit));
{On évalue la chaîne restante en flottant.}
val(S,V,Code);
if Code=0 then //Si ça réussit..
(Sender as TEdit).Text := formatfloat('0.00' + CurrencyUnit,V)
else ShowMessage('caractère ' + IntToStr(Code) + ' erroné');
end;
@+
Un exemple :
Const CurrencyUnit : String = ' $';
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := CurrencyUnit;
Edit2.Text := CurrencyUnit;
end;
procedure TForm1.ControlEnter(Sender: TObject);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnEnter et OnClick de chaque Edit.}
begin
{On place le caret juste avant le symbole monétaire.}
(Sender as TEdit).SelStart := Length((Sender as TEdit).Text)-(Length(CurrencyUnit));
end;
procedure TForm1.ControlKeyPress(Sender: TObject; var Key: Char);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnKeyPress de chaque Edit.}
begin
{On filtre les saisies.}
if not(Key in ['0'..'9',#8 ,#46]) then Key := #0;
end;
procedure TForm1.ControlExit(Sender: TObject);
{Dans l'Inspecteur d'objet: à mettre dans l'évènement OnExit de chaque Edit.}
var
V : Extended;
Code : Integer;
S : String;
begin
{On élimine le symbole monétaire.}
S := Copy((Sender as TEdit).Text,0,Length((Sender as TEdit).Text)-Length(CurrencyUnit));
{On évalue la chaîne restante en flottant.}
val(S,V,Code);
if Code=0 then //Si ça réussit..
(Sender as TEdit).Text := formatfloat('0.00' + CurrencyUnit,V)
else ShowMessage('caractère ' + IntToStr(Code) + ' erroné');
end;
@+
