StringOfChar, replicando caracteres.

Pessoal, essa é mais um funçãozinha muito interssante e muitos não conhecem. A sua utilidade é replicar um determinando caracter e sua sintaxe é muito simples, contendo apenas dois argumentos.

function StringOfChar(ch: AnsiChar; Count: Integer): AnsiString; overload;

• ch - Caracter a ser replicado.
• Count - Número de ocorrências

Exemplo:

procedure TForm1.Button1Click(Sender:TObject);
begin
ShowMessage(StringOfChar('*',20)+#13+'Atenção ocorreu um erro'+#13+StringOfChar('*',20));
end;

Abraços, e até a próxima!