Vamos dar uma otimizada neste algorítmo???
function Empty(Dados: string): boolean; begin Result := (Length(Trim(Dados)) = 0) or (Trim(Dados) = ' / /'); end; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: auristonlopes [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 11 de março de 2005 00:42 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] *** AJUDAR UM INICIANTE *** > > > > 1. > Antes do TableBancos.Post, insira IF empty(DBEDITNOME.TEXT) THEN > DBEDITNOME.SETFOCUS; > ***************** FUNCAO EMPTY > DEFINA > { Verifica se a string esta vazia } > function Empty( Dados: string ): boolean; > ** LISTAGEM DA FUNCAO > function Empty( Dados: string ): boolean; > begin > if ( Length( Trim( Dados ) ) = 0 ) or > ( Trim( Dados ) = ' / /' ) then > Empty := True > else > Empty := false; > end; > *****************FIM DA FUNCAO > 2. > EU UTILIZO A FUNCAO ABAIXO: > e_filtro:=InputBox('Filtragem por função','Informe o código da > função',''); > > > espero que te ajude. > sds > Auriston > ----- Original Message ----- > From: Cristiano Rodrigo Gomes > To: delphi-br@yahoogrupos.com.br > Sent: Thursday, March 10, 2005 2:15 PM > Subject: [delphi-br] *** AJUDAR UM INICIANTE *** > > > > Pessoal, sou iniciante e estou prestes a concluir minha > primeira rotina de > cadastro. > > Tenhos duas dúvidas. > > 1 - No botão gravar, além dos comandos > > TableBancos.Post; > BitBtnGravar.Enabled:=False > ..... > > > gostaria que nesse mesmo botão onde estão estes comandos, > antes de gravar > ele verificasse se o DBEditNome está vazio ou não, para que > ele não consiga > gravar o cadastro em branco. > > 2 - Coloquei do lado do DBEditCodigo, um botãozinho para que > qdo o usuário > clique sobre ele, abra uma janela para que seja efetuada uma > consulta caso > ele queira ir diretamente para um determinado código, li em > alguma apostila > sobre InputQuery, como utilizo. > > Espero ajudas > > Obs: = Estou usando o Paradox. > > Mais uma coisa, alguém de vcs possuem mais ícones para serem > usados em > aplicações. > > Cristiano. > > > [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, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > [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, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
