Social Icons

^^

sexta-feira, 25 de fevereiro de 2011

Função para completar String

Estou trazendo novamente uma função simples porem muito boa para facilitar o desenvolvimento em Delphi.
A função abaixo (funCompletaCampo) serve para preencher automaticamente um campo com um valor String padrão.
Por exemplo: Completar com zeros a esquerda ou a direita de um determinado campo.

Segue abaixo a função e um pequeno exemplo de utilização.

function TFrmPrincipal.funCompletaCampo(pStrValor, pStrMascara, pStrLado: String; pIntTamanho: Integer): String;
var
  lIntCont: Integer;
begin
  Result := '';
  for lIntCont := 1 to (pIntTamanho - Length(pStrValor)) do
    Result := Result + pStrMascara;

  if UpperCase(pStrLado) = 'E' then
    Result := Result + pStrValor
  else
    Result := pStrValor + Result;
end;

procedure TFrmPrincipal.BtnTeste(Sender: TObject);
begin
  EdtTeste.Text := funCompletaCampo(EdtTeste.Text, '0', 'E', 6);
end;

Os parametros da função são o seguinte:
pStrValor: Valor original
pStrMascara: Qual o caracter que será adicionado ao valor original
pStrLado: Qual lado será adicionado o pStrMascara, 'D' -> Direita, 'E' -> Esquerda
pIntTamanho: Qual o tamanho que o campo deve ter
O Result dessa função é um String preenchido pelo valor original mais a mascara adicionada.

Obrigado e até a próxima.


2 comentários:

  1. Muito bom cara, é bom saber que tem gente do brasil criando funções, porque geralmente tudo que se vê por ai é em inglês, tá de parabéns.

    ResponderExcluir

Popular Posts

 

Seguidores

Hora exata:

Total de visualizações de página