Entrada de caracteres
Como faco para a seguinte entrada.: 555259663 da direita para a esquerda e compretar os numeros que faltam antes do digitado. Ficando 000555259663.
Como faco isto? Allgurem pode me Ajudar?
Como faco isto? Allgurem pode me Ajudar?
Marcelo Batista
Curtidas 0
Respostas
Emerson Nascimento
28/10/2004
faça uma coisa assim:
Resultado := RightStr(´000000000000´+Trim(Texto),12); // onde 12 é o tamanho desejado para a string
Resultado := RightStr(´000000000000´+Trim(Texto),12); // onde 12 é o tamanho desejado para a string
GOSTEI 0
Emerson Nascimento
28/10/2004
ou melhor, crie uma funçao para isso:
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;
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
Paulo_amorim
28/10/2004
Olá
POde-se utilizar a função Format
Espero que ajude
Até+
POde-se utilizar a função Format
Espero que ajude
Até+
GOSTEI 0