Primeiro e ultimo nome da String

Question

Boa tarde galera!Alguem ae conhece alguma fun��o para pegar o nome e ultmimo nome de uma STRING????Ex.: STRING:= CARLOS SILVA PEREIRAApos aplicar a fun��o a STRING fica assim: CARLOS PEREIRAAbra�o...

Marco Salles · Answer

pode melhorar a gosto[code:1:d1dfed9e0c]function PrimeiroUltimoNome(texto:string):string;varprimeiro,ultimo:string;indice,fim:integer;begintexto:=Trim(texto);indice:=pos(� �,texto);primeiro:=copy(texto,1,indice);while indice > 0 do begin  fim:=indice;  indice:=PosEx(� �,texto,indice+1); end;Ultimo:=copy(texto,fim,length(texto));result:=primeiro+� �+ultimo;end;[/code:1:d1dfed9e0c]...

Nango Xus · Answer

Marcos,          :D  :D  :D   Muito obrigado funcionou perfeitamente!!! :D  :D  :D...

Ara.es · Answer

Tem esse codigo aqui tambem... nesse n�o uso o while para pegar o come�o do ultimo nome, uso a fun��o LastDelimiter do delphi que retorna a ultima ocorrencia do caractere..

function TForm1.PrimeiroUltimoNome(Value: String): String;
var
  retorno : String;
begin

  retorno := ��;
  retorno := copy(Value,0,pos(� �,Value)-1);
  retorno := retorno + � � + copy(Value,LastDelimiter(� �,Value),length(Value) - LastDelimiter(� �,Value) + 1);

  Result := retorno;

end;

Marco Salles · Answer

[quote:8a6b6b892b]LastDelimiter do delphi que retorna a ultima ocorrencia do caractere.. [/quote:8a6b6b892b]bommmmmm...

F�rum Primeiro e ultimo nome da String #342207