:50
To: grupo
Subject: [delphi-br] Limpar todos os edits de uma só vez!
Pessoal, bom dia!
Tenho um programa no delphi e quando clico no botão salvar, ele limpa os
dados no edit.text e insere no banco, porém, para limpar estou fazendo
desse jeito no código:
EdtCep.Text
faz um for de componentes
* for i := 0 to ComponentCount - 1 do*
* begin *
*if Components[i] is TEdit then*
* TEdit(Components[i]).Clear;*
* end;*
acho que isso resolve...
*Diego Garcia*
Twitter: http://www.twitter.com/drgarcia1986
2009/12/17 Jefferson Eduardo
>
>
> Pessoal, bo
Assunto: Res: [delphi-br] Limpar todos os edits de uma só vez!
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos
Eduardo
Para: grupo
Enviadas: Quinta-feira, 17 de Dezembro de 2009 8:49:47
Assunto: [delphi-br] Limpar todos os edits de uma só vez!
Pessoal, bom dia!
Tenho um programa no delphi e quando clico no botão salvar, ele limpa os dados
no edit.text e insere no banco, porém, para limpar estou
Pessoal, bom dia!
Tenho um programa no delphi e quando clico no botão salvar, ele limpa os dados
no edit.text e insere no banco, porém, para limpar estou fazendo desse jeito no
código:
EdtCep.Text:=' ';
EdtBairro.Text:=' ';
EdtCidade.Text:=' ';
EdtTelfixo.Text:=' ';
Existe
]
Enviada em: quinta-feira, 14 de outubro de 2004 13:30
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Limpar todos os edits
Daniel,
Nenhuma das duas formas deu certo!
Obrigado!
---
ComponentCount e Components são propriedades da classe TForm. Note que a
procedure que você
> Daniel,
> Nenhuma das duas formas deu certo!
Oras, então você não fez certo. Afinal eu não te passei tudo pronto, mas
apenas a idéia de como implementar. De qualquer forma, agora vai o "peixe já
assado", pronto para degustar.
Unit completa -
unit Unit1;
interface
use
14, 2004 1:04 PM
Subject: [delphi-br] Limpar todos os edits
alguém sabe qual o erro nesse código ?
procedure LimparCampos;
var
i : Integer;
begin
for i := 0 to
ComponentCount -1 do
if Components[i] is TEdit then
begin
mesmo"
Vitor Luiz Redes
Redsystem Informática
- Original Message -
From: Gercil Junio
To: Delphi BR
Sent: Thursday, October 14, 2004 1:04 PM
Subject: [delphi-br] Limpar todos os edits
alguém sabe qual o erro nesse código ?
procedure LimparCampos;
var
Ja deu galera
muito obrigado mesmo!
;)
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador
Daniel,
Nenhuma das duas formas deu certo!
Obrigado!
---
ComponentCount e Components são propriedades da classe TForm. Note que a
procedure que você escreveu (LimparCampos) não é um membro da classe que
corresponde ao seu formulário, pois isto os identificadores não estão
Junio" <[EMAIL PROTECTED]>
To: "Delphi BR" <[EMAIL PROTECTED]>
Sent: Thursday, October 14, 2004 12:04 PM
Subject: [delphi-br] Limpar todos os edits
alguém sabe qual o erro nesse código ?
procedure LimparCampos;
var
i : Integer;
begin
for i := 0 to
Co
-
From: "Gercil Junio" <[EMAIL PROTECTED]>
To: "Delphi BR" <[EMAIL PROTECTED]>
Sent: Thursday, October 14, 2004 1:04 PM
Subject: [delphi-br] Limpar todos os edits
alguém sabe qual o erro nesse código ?
procedure LimparCampos;
var
i : Integer;
begin
> alguém sabe qual o erro nesse código ?
>
> procedure LimparCampos;
> var
> i : Integer;
> begin
> for i := 0 to
> ComponentCount -1 do
> if Components[i] is TEdit then
> begin
> TEdit(Components[i]).Text := '';
> end;
> end;
>
>
> E
alguém sabe qual o erro nesse código ?
procedure LimparCampos;
var
i : Integer;
begin
for i := 0 to
ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := '';
end;
end;
ERRO:
[Error] URegVacas.pas(78
15 matches
Mail list logo
