frnd

coloquei desta maneira dentro de do onclick de um botão que irá add no listbox, mas ainda o mesmo numero aparece 2 vezes, porque será? procedure TForm3.BuscarClick(Sender: TObject); var LB: TStringList; begin if Edit1.Text = '' then begin ShowMessage('Digite o número da pedra!'); EDit1.SetFocus; exit; end; Form1.Table1.First; If Form1.Table1.Locate('CODBINGO',string(Edit1.Text), []) then // varrer a tabela para achar o numero da pedra begin Form5.Show; // se encontrou exibe o Form com o nome da empresa begin LB:= TStringList.Create; If not Tem(Form6.ListBox1, Form3.Edit1.Text) then LB.Add(Form3.Edit1.Text); Form6.ListBox1.Items.Add(Edit1.Text); end; end else begin ShowMessage('Esta pedra não está cadastrada!'); // se não encontrou Edit1.SetFocus; end; end;

onde eu coloco essa função? preciso colocar em algum evento do listbox para que funcione?? []s

Criei um listbox que irá receber alguns números e queria que eles não se repetissem, como eu faria? existe essa função: function Tem(SL: TStringList; Linha: String): Boolean; var a: Integer; b: Boolean; begin b := False; for a := 0 to SL.Count - 1 do begin if (SL[a] = Linha) then begin b := True; end; end; result := b; end; []s como eu a utilizo no listbox?

teria como no delphi ocupar a tela inteira, que nem nas apresentações do power point???? []s

Esse files EUROPE.BLL USA.BLL IDR20009.DLL IDAPI32.DLL BLW32.DLL IDAPI32.CFG eu encontro eles algum diretorio do delphi? tá dificil aqui! rs! []s

e colo aonde isso td? na system32?

Já fiz os passos acima mas não consigo rodar o .exe erro: Exception EDBEngine Error in module an error occurred while attempting to initialize the Borland Database Engine (error $2108); []s

Seguinte, terminei um programa que utiliza um banco de dados no INTERBASE. Se eu pegar o executável somente e colocar em outra maquina que não esteja rodando o delphi e nem o interbase irei conseguir rodar normalmente ou não? []s

ola, queria saber como construir um simples relogio digital a partir do componente TTimer! []s

Consegui resolver... Eu tinha colocado ao invés do Edit o DBEdit, por isso que estava funcinando errado.. foi só retornar pro Edit que funcionou ! obrigado []s

deixei assim: procedure TForm3.BuscarClick(Sender: TObject); begin if DBEdit1.Text = '' then begin ShowMessage('Digite o número da pedra!'); DBEDit1.SetFocus; exit; end; Form1.Table1.First; IF Form1.Table1.Locate('CODBINGO',string(DBEdit1.Text), []) THEN // varrer a tabela para achar o numero da pedra begin Form5.Show; // se encontrou exibe o Form com o nome da empresa end else begin ShowMessage('Esta pedra não está cadastrada!'); // se não encontrou DBEdit1.SetFocus; end; end; mas tá estranho, eu digito qualquer codigo q não existe e ele abre o form5 obs: CODBINGO é o campo da tabela que recebe o numero da pedra e ela é varchar, e para mostrar a tabela estou chamando do Form1 (não sei se isso é correto ou não mas funciona!) []s

procedure TForm3.BuscarClick(Sender: TObject); begin if Form3.DBEdit1.EditText = '' then ShowMessage('Digite o número da pedra!') else Form5.Show; end; Isso que eu fiz só fiz com que validasse o campo, só queria saber para validar no banco de dados também...... []s

Esse é o botao buscar

Eu mal comecei ainda... fiz algumas coisas bestas então resumindo: tenho o código botão BUSCAR que irá buscar na tabela se existe aquele código procedure TForm3.BitBtn1Click(Sender: TObject); begin Form5.Show; end; se existir o código ele mostra empresa que é outro form (Form5) obrigado. []s

Ah beleza.. Queria fazer o seguinte: Tenho um campo DBEdit que recebe o código que o usuario irá digitar para ver se existe ou não. Como eu faria com quando o usuário digitasse o código ele validaria se existe ou não aquele código lá da tabela do banco de dados? []s

Sim eu já fiz algumas coisas... agora só falta fazer o seguinte: Tenho o campo DBEdit1 q busca o código no banco se existis ele mostra a descricao se não ele mostra invalido! isso que eu quero! []s

hehe... ficaria legal pois é um jogo de bingo. por exemplo, o cara vai sortear a pedra B12 e digitar no programa. Ao digitar e encontrar a empresa, o programa avisa desta maneira. Foi assim que pensei, entendeu? []s

Seguinte, Preciso criar um campo código. Quando eu digitar um código válido na tabela do banco de dados o delphi me mostrará o nome da empresa maior em uma janela durante 5 segundos. Como eu faria? obs: sou novato []s

Agora sim funcionou.. fiz tudo denovo! Dica: http://www.oficinadanet.com.br/artigo/500/...phi_e_interbase Teria como no navigator quando eu conseguir fazer um cadastro ele mandar uma msg de 'cadastro efetuado com sucesso?' []s

nome do banco: bingo.gdb tabela do banco: sorteio no DataBaseName da Table está bingo no table name ele reconhece a tabela sorteio só que no Active coloco True e ele não consegue encontrar a tabela! o que será? algum erro besta? :\

Estou tentando colocar True no no active do Table mas dá como tabela não existente, sendo que ela existe! oque está havendo?? obs: sou novato ! []s

Seguinte, devo criar um jogo de bingo da seguinte maneira, em PHP (caso tenha como): 1 - Haverá um cadastro de pedras do bingo para 72 empresas. Cada empresa terá um código da pedra de sorteio diferente. 2 - O sorteador irá escolher a pedra na mão mesmo. Ele digitará o número da pedra em uma tela que mostra a empresa respectiva à aquela pedra sorteada. Caso ela seja cadastrada, mostrará o nome da empresa que possui esse seu número de sorteio. Isso com uma simples tabela no banco de dados consegue se resolver, mas teria como fazer sem banco de dados isso tudo? Tem como criar um .exe? Pois vou colocar esse programa em outro computador. T+

tente colocar no inicio da pagina <?php ob_start(); ?> e no final <?php ob_end_flush(); ?>

Funcionaria se o usuário voltasse ou fechasse o browser? Fiz assim <body onUnLoad="window.open("fechar.php");"> mas não aconteceu nada... []s

Estava pensando em resolver isso utilizando o unset. Mas como eu colocaria esse método no voltar ou no fechar do browser?