Fórum Numero por extenso mas com Asteristico. #184800
28/09/2003
0
Galera, estou precisando de uma rotina para imprimir numeros por extenso mas que complete no final com asteristico. ou outro jeito de termino da frase.
Estou desenvolvendo uma rotina de impressao de cheques, baixei a rotina no site do clubedelphi, para preencher extenso, mas ela nao termina com nenhum tipo.
No cheque eh obrigado a terminar a frase e naum sei como fazer, se alguem puder me ajudar ficarei muito grato.
Valnei.
Estou desenvolvendo uma rotina de impressao de cheques, baixei a rotina no site do clubedelphi, para preencher extenso, mas ela nao termina com nenhum tipo.
No cheque eh obrigado a terminar a frase e naum sei como fazer, se alguem puder me ajudar ficarei muito grato.
Valnei.
Objetivacreator
Curtir tópico
+ 0
Responder
Posts
29/09/2003
Motta
preencha o resto da string com *
function Retast(ast:string;QUANT:integer):String;
var
I,Tamanho:integer;
aux: string;
begin
aux:=ast;
Tamanho:=length(ast);
ast:=´´;
for I:=1 to quant-tamanho do
ast:=ast+´*´;
aux:=ast+aux;
result:=aux;
end;
memo1.text := retast(extenso(123,45),1000);
+- isto
function Retast(ast:string;QUANT:integer):String;
var
I,Tamanho:integer;
aux: string;
begin
aux:=ast;
Tamanho:=length(ast);
ast:=´´;
for I:=1 to quant-tamanho do
ast:=ast+´*´;
aux:=ast+aux;
result:=aux;
end;
memo1.text := retast(extenso(123,45),1000);
+- isto
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)