Fórum Função pegar Primeiro Nome #459838

procedure TForm1.Button1Click(Sender: TObject);
var
   i, Contador: Integer;
   s: String;
begin
     Contador := 0;
     s := '';

     for i := 0 to Length(Edit1.Text) - 1 do
     begin
          if Copy(Edit1.Text,i+1,1) = ' ' then
          begin
               Inc(Contador);
               if Contador > 1 then
                  Break
          end;
          s := s + Copy(Edit1.Text,i+1,1);
     end;
     ShowMessage(Trim(s));
end;

function TForm1.LimitaNome(Nome: String): String;
var
  i : integer;
  Nome2 : String;
begin
  i := pos(' ', Nome);
  if i = 0 then
    Nome2 := Nome
  else
    begin
      Nome2 := copy(Nome, 1, i);
      delete(Nome, 1, i);
      i := pos(' ', Nome);
      if i = 0 then
       Nome2 := Nome2 + Nome
      else
        Nome2 := Nome2 + copy(Nome, 1, i);
    end;
  i := length(Nome2);
  if (copy(Nome2, i, 1) = ' ') then
    Nome2 := copy(Nome2, 1, i - 1);
  result := Nome2;
end;

if Pos(' ', Nome) > 0 then
  begin
    PNome := Copy(S, 1, Pos(' ', Nome) -1);
    Nome := Copy(S, Pos(' ', Nome), Length(Nome));
    while Pos(' ', Nome[1]) <> 0 do
      Nome := Copy(Nome, Pos(' ', Nome) + 1, Length(Nome));
    Nome := Copy(Nome, 1, Pos(' ', Nome) - 1);
    Result := PNome + ' ' + Nome;
  end;