Separador de unidades
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
Curtidas 0
Respostas
Alessandro Folk
23/02/2013
Já pensou em utilizar o comando COPY ???
DBEdit2.Text := copy(DBEdit1.text,(Length(DBEdit1.Text)),1);
GOSTEI 0
Joel Rodrigues
23/02/2013
Acho que a solução apresentada pelo amigo acima é a mais viável, principalmente por ser algo fixo, sempre a unidade.
GOSTEI 0