Primeiro e ultimo nome da String

Delphi

22/05/2007

Boa tarde galera!

Alguem ae conhece alguma função para pegar o nome e ultmimo nome de uma STRING????

Ex.:

STRING:= CARLOS SILVA PEREIRA
Apos aplicar a função a STRING fica assim: CARLOS PEREIRA

Abraço


Nango Xus

Nango Xus

Curtidas 0

Mais Respostas

Marco Salles

Marco Salles

22/05/2007

pode melhorar a gosto

function PrimeiroUltimoNome(texto:string):string;
var
primeiro,ultimo:string;
indice,fim:integer;
begin
texto:=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;



GOSTEI 0
Nango Xus

Nango Xus

22/05/2007

Marcos,

:D :D :D Muito obrigado funcionou perfeitamente!!! :D :D :D


GOSTEI 0
Ara.es

Ara.es

22/05/2007

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;



GOSTEI 0
Marco Salles

Marco Salles

22/05/2007

LastDelimiter do delphi que retorna a ultima ocorrencia do caractere..


bommmmmm


GOSTEI 0
POSTAR