Numero por extenso mas com Asteristico.
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
Curtidas 0
Respostas
Motta
28/09/2003
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
GOSTEI 0