Olá..
Uma vez usei essa rotina para isso se não servir te dará uma boa
ideia.
Carlos Fernando
Wiz Sistemas
// Swaps first and second names in the passed name string
// Raises an exception if the name is invalid
function TForm1.SwapNames(name: string): string;
var
blankPos : Integer;
i
Gente,
posso estar dizendo besteira, mas
se vc pegar o tamanho do nome
faça um loop pegando o ultimo - 1 até encontrar um branco
aí vc tem a partir da onde até o fim é o sobrenome
e o 1o. até apartir de onde -1 é o nome.
eu faria assim.
Otavio
-Mensagem original-
De: delphi-br@yahoogr
2 matches
Mail list logo
