Fórum Três Duvidas - Socorro hehehe Me ajude,, #170349

marcosdiir,

A primeira dúvida pode ser resolvida assim:

Coloque no formulário:
um edit (editNomeCompleto)
um botão (button1)
um label (label1)
Obs: Usei o Delphi 6, mas deve funcionar em qualquer versão

procedure TForm1.Button1Click(Sender: TObject);
var
I : byte;
sobrenome : string;
begin
if editNomeCompleto.text = emptystr then
exit;
sobrenome := emptystr;

if Pos(´ ´,editNomeCompleto.Text)= 0 then
sobrenome := editNomeCompleto.Text
else begin
For I := 0 to length(editNomeCompleto.text) do begin
if (editNomeCompleto.text[length(editNomeCompleto.text) - I] = ´ ´) then
break;
sobrenome := editNomeCompleto.text[length(editNomeCompleto.text) - I] + sobrenome;
end;
end;
label1.caption := sobrenome;
end;

Muito provavelmente outros programadores terão soluções diferentes e até melhores. Mas serve de base para começar a fuçar. Os melhores programadores são os que conseguem aperfeiçoar os programas já existentes e perfeitamente funcionais. Estude, compreenda e aperfeiçoe.
carlosrm :wink:

Valeu ... a 1º duvida ja esta resolvida.,

Valeu mesmo func perfentinho....
hehe
beleza tomara que todos me ajudem como vc.

Obrigado .

Marcos :P

Socorroooooooooooooooooooooooooooooooooooooooooooo

Marcos :( :( :( :( :( :oops:

Carinha, vá nesse site. baixa umarquivo de dicas.

ele me ajudoumuito quando comecei, e ainda hojeme ajuda muito.

http://www.lloydsoft.hpg.ig.com.br

Abraços,