Delphi dicas

Alinhar texto muito util para relatorios

Terao que acrescentar uma edit para o tamanho do texto.



/ para texto a esquerda

function AlinhaE(Texto : String; Tamanho : Integer) : String;

begin

        Texto := Trim(Texto);

        while length(Texto) < Tamanho do

        begin

                Texto := Texto + ' ';

        end;

        Result := Texto;

end;



// para texto centralizado

function AlinhaC(Texto : String; Tamanho : integer) : String;

var

metade: integer;

begin

        Texto := Trim(Texto);

        metade := ((Tamanho-Length(Texto)) div 2);

        while Length(Texto)+metade < Tamanho do

        Texto := ' ' + Texto;

        result := Texto;

end;



// para texto a direita

function AlinhaD(Texto : String; Tamanho : Integer) : String;

begin

        Texto := Trim(Texto);

        while length(Texto) < Tamanho do

        begin

                Texto := ' ' + Texto;

        end;

        Result := Texto;

end;