Separador de unidades

23/02/2013

1

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.
Responder

Posts

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira