GARANTIR DESCONTO

Fórum Substituir virgula por ponto de um edit no Onclick??? #237920

16/06/2004

0

Olá Pessoal !
Estou com um dilema crucial :
Meu programa gera os cauculos de decontos para um determinado produto, jogando-os dentro de edits, para depois eu usando o UPDATE do sql, inserir os novos descontos.
O problema é: no sql eu não posso colocar por exemplo: SET preco_2 = 120,90 . deveria colocar 120.90.

Preciso de um comando que seja parecido com o:

if Key in [´,´,´.´] then Key := DecimalSeparator; ou o

if key= ´.´ then
key:=´,´;

que usamos nos Onkeypress da vida, mas infelizmente não sei como adptá-los pro meu caso.

Conto com vcs !

Obrigado


Cdteam

Cdteam

Responder

Posts

16/06/2004

Paulo_amorim

Olá

FormatFloat( ´0.00´, MyFloat);

Espero que ajude
Até+


Responder

Gostei + 0

16/06/2004

Nildo

Olá!
Você pode colocar assim no OnChange do Edit:

var
   UltPos: Integer;
begin
   UltPos := TEdit( Sender ).SelStart;
   TEdit( Sender ).Text := StringReplace( TEdit( Sender ).Text, ´,´, ´.´, [rfReplaceAll] );
   TEdit( Sender ).SelStart := UltPos;
end;



Responder

Gostei + 0

16/06/2004

Cdteam

Olá! Você pode colocar assim no OnChange do Edit:
var
   UltPos: Integer;
begin
   UltPos := TEdit( Sender ).SelStart;
   TEdit( Sender ).Text := StringReplace( TEdit( Sender ).Text, ´,´, ´.´, [rfReplaceAll] );
   TEdit( Sender ).SelStart := UltPos;
end;


Valewwwwwwwwwww !!! :D :D :D


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar