Delphi dicas

Função para centralizar uma string num espaço especificado.

Função simples para centralizar uma String num espaço especificado.



Exemplo: Gostaria de centralizar a String='TESTES' EM 18 COLUNAS.



S := Centraliza('TESTES',18);



S seria = '      TESTES      '



(* Função Centraliza



Centraliza uma String



Parametros Tipo     Objetivo

wStr1          String   Especificar a String a ser centralizada

wTama       Integer Tamanho em que deve ser centralizado

Retorno     String    A String centralizada com espaços

brancos a direita e a esquerda.         *)



function Centraliza (wStr1: String; wTama: Integer): String;

var i: Integer;

wSpac: String;

begin



        wSpac := '';

        For i:=1 to wTama do wSpac := wSpac + ' ';



        wStr1 := Trim(wStr1);



        Result := Copy(wSpac,1,(wTama div 2)-(Length(wStr1) div 2))+

        wStr1                                            +

        Copy(wSpac,1,(wTama div 2)-(Length(wStr1) div 2));



end;