Analitcs

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

quinta-feira, 4 de outubro de 2012

DELPHI - Função - Copiar até o 1º Espaço da String

Reações: 
// Função - Copiar até o 1º Espaço da String
  Function CopiaAteEspaco(S : String) : String;
  var
    L : Integer;
  begin
    L := Pos(' ', S);
    if L <= 0 then // Caso não haja espaço
      L := MaxInt; // Iguala a Variavel ao Maior Inteiro Definido Pelo Sistema
    Result := Copy(S, 1, L - 1);
  end;

Nenhum comentário:

Postar um comentário

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

Max Gehringer