Três Duvidas - Socorro hehehe Me ajude,,
:oops: Galera sou leigo em delphi e preciso mesmo da ajuda de vc.
1º pegar o ultimo nome
Ex. Jose Marcos Lucas Alves = pegar sobre o sobre nome Alves
2º Ao digitar em um edit ir colocando a primeira letra em maiuscula
EX. digitado [jose] vai colocando [Jose] [marcos [Marcos]
3º colocar em um painel uma mensagem aleatoria toda vez que uma pessoa entra no sistem.
estasmensagens estão em um arquivo txt.
EX.
Bom Dia
Como Vai
babababab
babababab
Galera conto mesmo com a ajuda de vc´s
Obrigado.
t++
MArcio
1º pegar o ultimo nome
Ex. Jose Marcos Lucas Alves = pegar sobre o sobre nome Alves
2º Ao digitar em um edit ir colocando a primeira letra em maiuscula
EX. digitado [jose] vai colocando [Jose] [marcos [Marcos]
3º colocar em um painel uma mensagem aleatoria toda vez que uma pessoa entra no sistem.
estasmensagens estão em um arquivo txt.
EX.
Bom Dia
Como Vai
babababab
babababab
Galera conto mesmo com a ajuda de vc´s
Obrigado.
t++
MArcio
Marcosdiirr
Curtidas 0
Respostas
Carlosrm
20/07/2003
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:
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:
GOSTEI 0
Marcosdiirr
20/07/2003
Valeu ... a 1º duvida ja esta resolvida.,
Valeu mesmo func perfentinho....
hehe
beleza tomara que todos me ajudem como vc.
Obrigado .
Marcos :P
Valeu mesmo func perfentinho....
hehe
beleza tomara que todos me ajudem como vc.
Obrigado .
Marcos :P
GOSTEI 0
Marcosdiirr
20/07/2003
Socorroooooooooooooooooooooooooooooooooooooooooooo
Marcos :( :( :( :( :( :oops:
Marcos :( :( :( :( :( :oops:
GOSTEI 0
Fcs-bh
20/07/2003
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,
ele me ajudoumuito quando comecei, e ainda hojeme ajuda muito.
http://www.lloydsoft.hpg.ig.com.br
Abraços,
GOSTEI 0