Fórum Entrada de caracteres #256452
28/10/2004
0
Como faco isto? Allgurem pode me Ajudar?
Marcelo Batista
Curtir tópico
+ 0Posts
28/10/2004
Emerson Nascimento
Resultado := RightStr(´000000000000´+Trim(Texto),12); // onde 12 é o tamanho desejado para a string
Gostei + 0
28/10/2004
Emerson Nascimento
function FormataString( Texto: string; Tamanho: integer ): string;
var i: integer;
begin
Result := Texto;
for i := Length(Texto) to Tamanho-1 do
Result := ´0´+Result;
end;
Gostei + 0
28/10/2004
Paulo_amorim
POde-se utilizar a função Format
Espero que ajude
Até+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)