Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 1 de outubro de 2012

DELPHI - Retirando Caracteres a Direita

Reações: 
function TrimCaracRight(Carac: String;const S: string): string;
var
  I: Integer;
begin
  I := Length(S);
  while (I > 0) and (S[I] <= Carac) do Dec(I);
  Result := Copy(S, 1, I);
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer