Verificando se ha virgula
: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
Curtidas 0
Respostas
Marcelo.l
07/01/2004
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+
GOSTEI 0
Teoprog
07/01/2004
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
GOSTEI 0
Marcelo.l
07/01/2004
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.
GOSTEI 0