Buscar por:

Alinhar texto muito util para relatorios

Código

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;