Fórum Verificando se ha virgula #204835
07/01/2004
0
:shock: Ola galera do bem!!!
Como faço para verificar se ha virgulas no conteúdo do text de um edit,
para que eu faça o seguinte código
if edit1.text (não possuir virgula em seu conteúdo text) then begin
edit1.text := edit1.text + ´,00´
end;
Como faço para verificar se ha virgulas no conteúdo do text de um edit,
para que eu faça o seguinte código
if edit1.text (não possuir virgula em seu conteúdo text) then begin
edit1.text := edit1.text + ´,00´
end;
Teoprog
Curtir tópico
+ 0
Responder
Posts
07/01/2004
Marcelo.l
Olá.
Use assim
if Pos(´,´, Edit1.Text) = 0 then
begin
edit1.text := edit1.text + ´,00´
.
.
.
A função Pos retorna a posição de uma substring dentro de outra.
T+
Use assim
if Pos(´,´, Edit1.Text) = 0 then
begin
edit1.text := edit1.text + ´,00´
.
.
.
A função Pos retorna a posição de uma substring dentro de outra.
T+
Responder
Gostei + 0
07/01/2004
Teoprog
Valeu cara, é isto mesmo, testei e deu certo.
Agora só mais uma pergunta tem como eu fazer isto
será deletado do edit2.text oque for > que Pos(´,´, Edit1.Text) + 2;
Exemplo;
50,3256985
50,32
Agora só mais uma pergunta tem como eu fazer isto
será deletado do edit2.text oque for > que Pos(´,´, Edit1.Text) + 2;
Exemplo;
50,3256985
50,32
Responder
Gostei + 0
07/01/2004
Marcelo.l
Use isto
Edit1.Text := Copy(Edit1.Text, 1, Pos(´,´, Edit1.Text) - 1);
Boa sorte.
Edit1.Text := Copy(Edit1.Text, 1, Pos(´,´, Edit1.Text) - 1);
Boa sorte.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)