| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
nacht21
Experiente
Registrado: Segunda-Feira, 5 de Julho de 2010
Mensagens: 481
|
 Enviada: Qui Jul 08, 2010 3:31 pm Assunto: limpar todas as edits |
 |
|
Fala pessoal!
Bom eu fiz um mainmenu e coloquei um opção para limpar todos os edits, segue o código:
| Código: | var
count:integer;
begin
for count:=0 to pred (Self.ComponentCount) do
begin
if Self.Components[Count].ClassType=TEdit then
(Self.Components[count] as TEdit).Text:='';
end;
end; |
Ele limpa todas as edits, menos uma e diz que o valor '' não é inteiro.
Estou fazendo por função minha programação e no Oncharge da edit está esse código:
| Código: | | Edit2.Text := IntToBin(StrToInt(Edit1.Text)); |
O que fazer nessa situação? |
|
| Voltar ao Topo |
|
 |
rafmattos
Colaborador
Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS
|
| Enviada: Qui Jul 08, 2010 3:42 pm Assunto: |
|
|
acrecenta um if
verificando se é diferente de vazio,
o erro é por causa disso, ele está convertanto
''
| Código: |
if Edit1.text <> '' then
Edit2.Text := IntToBin(StrToInt(Edit1.Text));
|
Editado pela última vez por rafmattos em Qui Jul 08, 2010 4:02 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
nacht21
Experiente
Registrado: Segunda-Feira, 5 de Julho de 2010
Mensagens: 481
|
| Enviada: Qui Jul 08, 2010 3:50 pm Assunto: |
|
|
Muito obrigado raf...
Resolveu meu problema. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
