Buscar

Função para formatar Strings

Código

{ Função muito útil para a geração de arquivos
de texto para diversos layouts. }


Para utilizar a função é necessário criar um tipo
enumerado.
  TLocal = (lcLeft, lcRight, lcCenter);

Como usar a função:

O primeiro parametro é a String a ser formatada,
o segundo é o caracter que irá preencher a string,
o terceiro indica o tamanho da string a ser retornada,
e o quarto indica a posição do preenchimento.


function StrFormat(AText, Caracter: String; Size: Word; Local: TLocal): String;
var
  X: Integer;
begin
  Result := Copy(AText, 1, Size);

  for X := Length( AText ) to Size - 1 do
  begin
    case Local of
      lcLeft: Result := Caracter + Result;
      lcRight: Result := Result + Caracter;
      lcCenter: if (X mod 2) = 0 then
                  Result := Result + Caracter
                else
                  Result := Caracter + Result;
    end;
  end;
end;
 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 10/01/11
Por: Giovani Da Cruz
Visualizada: 7139 vezes

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