Analitcs

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

segunda-feira, 1 de outubro de 2012

DELPHI - Retirarndo Caracteres a Esquerda

Reações: 
function TrimCaracLeft(Carac: String; const S: string): string;
var
  I, L: Integer;
begin
  Carac := Carac[1];
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= Carac) do Inc(I);
  Result := Copy(S, I, Maxint);
end;

Nenhum comentário:

Postar um comentário

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

Max Gehringer