| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
weberismael
Novato
Registrado: Segunda-Feira, 19 de Julho de 2010
Mensagens: 14
|
 Enviada: Qua Jan 18, 2012 5:37 pm Assunto: [RESOLVIDO] Pegar conteúdo digitado em um TEdit criado... |
 |
|
Boa tarde pessoal,
Como faço para pegar o conteúdo digitado em um TEdit criado em Run-Time ?
Por exemplo eu crio o Edit1 e Edit2 e depois preciso pegar o que foi digitado neles e inserir em uma tabela:
código para criar os campos:
| Código: | if Assigned(FindComponent('Edit1')) then TEdit(FindComponent('Edit1')).Free;
with TEdit.Create(Self) do
begin
Parent := Self;
SetBounds(110,25,100,22);
Text := 'Edit1';
Name := 'Edit1';
end;
if Assigned(FindComponent('Edit2')) then TEdit(FindComponent('Edit2')).Free;
with TEdit.Create(Self) do
begin
Parent := Self;
SetBounds(110,50,100,22);
Text := 'Edit2';
Name := 'Edit2';
end;
|
Editado pela última vez por weberismael em Qui Jan 19, 2012 7:42 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
marcosalles
Moderador
Registrado: Quarta-Feira, 26 de Março de 2008
Mensagens: 1695
Localização: Muriaé Mg
|
| Enviada: Qua Jan 18, 2012 5:43 pm Assunto: |
|
|
ele tem um Nome ... Name := 'Edit1';
ele tem um proprietário .. Self
e so retornar comn a função FindComponent()
Talves te ajude
| Código: | if Assigned(Tedit(FindComponent('Edit1'))) then
showmessage(Tedit(FindComponent('Edit1')).Text); |
_________________
http://marcosalles.wordpress.com
Desenvolvo FreeLancer e presto Consultoria
Orientação Online DataSnap DbX ClientDataSet
POO , Padrões de Projeto e dúvidas de Delphi em
Geral |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qua Jan 18, 2012 8:51 pm Assunto: |
|
|
no seu codigo tem a resposta. reparou?
vc não deu o free nele?
como vc fez pra dar o free?
sacou? |
|
| Voltar ao Topo |
|
|
marcosalles
Moderador
Registrado: Quarta-Feira, 26 de Março de 2008
Mensagens: 1695
Localização: Muriaé Mg
|
| Enviada: Qua Jan 18, 2012 9:33 pm Assunto: |
|
|
| gilsonnrodrigues escreveu: | no seu codigo tem a resposta. reparou?
vc não deu o free nele?
como vc fez pra dar o free?
sacou? |
é... Ele usa para criar se nãi esta criado.. Logo ele t b deve usar para
pagar o valor
O free ele não precisa dar , por se tratar do owner se o proprio formulário
quando destruido sera responsável todos os seus objetos
È so "mete"r o pau
_________________
http://marcosalles.wordpress.com
Desenvolvo FreeLancer e presto Consultoria
Orientação Online DataSnap DbX ClientDataSet
POO , Padrões de Projeto e dúvidas de Delphi em
Geral |
|
| Voltar ao Topo |
|
|
weberismael
Novato
Registrado: Segunda-Feira, 19 de Julho de 2010
Mensagens: 14
|
| Enviada: Qui Jan 19, 2012 7:40 am Assunto: [RESOLVIDO] |
|
|
Bom dia pessoal,
Com as dicas acima consegui resolver meu problema, não havia me ligado na questão do .Text.
Agradeço a atenção de todos.
Valeu ! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
