Buscar por:

Centralizar string texto

Código

Escrevi essa dica quando senti a necessidade de centralizar uma string para que pudesse imprimir o mesmo em impressora matricial, para imprimir direto na porta de impressão;

function TForm1.centraliza(texto: String; tamanho: Integer): String;

var aux: Integer;

    textoCentralizado: String;

begin

  if (tamanho > length(texto)) then

    begin

      aux := trunc((tamanho - length(texto))/ 2);

      textoCentralizado := stringOfchar('#',aux) + texto + stringOfchar('#',aux);

      if (Length(textoCentralizado) < tamanho) then

        textoCentralizado := textoCentralizado+'#';

    end

    else

      textoCentralizado := texto;

  Result := textoCentralizado;

end;

Para utilizar a função:

texto =  centraliza('essa dica é boa', 40);

o primeiro parâmetro  é a frase e o segundo parâmetro é o tamanho disponível para centralizar a frase.