Fórum inserção de caracter dentro de um edit...da direita para esq #149928
26/03/2003
0
Oi, alguém sabe me dizer como faço para que quando vá preencher um numero a inserção começa da esq p/ direita....queria fazer o contrário...principalmente porque pra calculo facilita esse formato....
e gostaria de formatar esse numero com tamanho 4...por exemplo:
se eu digitar 1...ele vai mostrar 0001.
Sei que é básico, mas agradeço qualquer ajuda! :wink:
e gostaria de formatar esse numero com tamanho 4...por exemplo:
se eu digitar 1...ele vai mostrar 0001.
Sei que é básico, mas agradeço qualquer ajuda! :wink:
Diana
Curtir tópico
+ 0
Responder
Posts
26/03/2003
Okama
Se entedi direito...
procedure TForm1.Edit1Exit(Sender: TObject);
Var S: String;
begin
S := ´0000´+Trim(Edit1.Text);
Edit1.Text := Copy( S, Length(S)-3,4);
end;
procedure TForm1.Edit1Exit(Sender: TObject);
Var S: String;
begin
S := ´0000´+Trim(Edit1.Text);
Edit1.Text := Copy( S, Length(S)-3,4);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)