Buscar por:

Repetição de caracteres

Código

Olá, não sei se está dica já existe aqui, porém lá vai:

Para Repetir um determinado caracter X vezes numa string (comando semelhando ao Replicate do clipper ao invés de criarmos funções basta usar a do Delphi.

Função => StringOfChar(Caracter, Quantidade) 

Exemplo

StringofChar('*', 20) = '********************'

-----------------------------------------------------------------

Outra função é para substituir o StrZero do clipper que Formata um determinado Inteiro preenchendo as posições não significativas com Zero.

Função => FormatFloat('000000', Codigo) ou 

FormatFloat(StringofChar('0', 6), Codigo)

Exemplo 

FormatFloat('000000', 10) = '000010'

Espero ter ajudado em alguma coisa.

Abraços 

Reinaldo