inserção de caracter dentro de um edit...da direita para esq
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
Curtidas 0
Respostas
Okama
26/03/2003
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;
GOSTEI 0