Buscar

Formatar um texto para um tamanho específico.

Código

Excelente para as situações em que é necessário passar um texto com tamanho específico.
FormatarTamanhoTexto(iTamanho: Integer;
  sTexto: String): String;
begin
    if (iTamanho > Length( sTexto )) then begin
        while(iTamanho > Length( sTexto ))do begin
            sTexto := sTexto + ' ';
        end;
    end else if(iTamanho < Length( sTexto ))then begin
        sTexto := copy(sTexto,1,iTamanho);
    end;
    Result := sTexto;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Impressão
Adicionada dia: 23/09/08
Por: Kildare Alexandre Pereira Da Silva
Visualizada: 2541 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009