Separador de unidades
23/02/2013
0
Bom dia amigos !
Estou tendo fazer um comando para separar unidade de dezena e centena, por exemplo:
Dbedit1 possui 345
no Dbedit2 preciso que mostre a unidade 5
Se Dbedit1 possuir dezena 45
no Dbedit2 preciso que mostre a unidade 5
Independente do valor que tenha no Dbedit1, no Dbedit2 preciso que retorne apenas a unidade
Uso delphi7 banco de dados firebird, componente ClientDataset
Desde já agradeço a ajuda de todos.
Estou tendo fazer um comando para separar unidade de dezena e centena, por exemplo:
Dbedit1 possui 345
no Dbedit2 preciso que mostre a unidade 5
Se Dbedit1 possuir dezena 45
no Dbedit2 preciso que mostre a unidade 5
Independente do valor que tenha no Dbedit1, no Dbedit2 preciso que retorne apenas a unidade
Uso delphi7 banco de dados firebird, componente ClientDataset
Desde já agradeço a ajuda de todos.
Lao
Curtir tópico
+ 0
Responder
Posts
23/02/2013
Alessandro Folk
Já pensou em utilizar o comando COPY ???
DBEdit2.Text := copy(DBEdit1.text,(Length(DBEdit1.Text)),1);
Responder
23/02/2013
Joel Rodrigues
Acho que a solução apresentada pelo amigo acima é a mais viável, principalmente por ser algo fixo, sempre a unidade.
Responder
Clique aqui para fazer login e interagir na Comunidade :)