Henrique Mizael

tente este: if NUMERO mod 2 = 0 then ShowMessage('O número é par!') else ShowMessage('O número é impar!'); esta função é para numeros inteiros.... precisando de mais mais alguma... henrique.ams@bol.com.br

você está usando tabelas ou query?

este exemplo quendo você move o form ele não fica transparente, e sim fica com um bug de fundo transparente estático, que foi o pedaçõ do fundo onde o form foi criado... tem uns melhores que são (só de windows 2000 pra cima), alphablende.... mude a propriedade do form AlphaBlend pra true, e AlphaBlendeValues pra +- 100, o valor que você achar melhor... espero ter ajudado... abraços...

tente isto: procedure TForm1.Button1Click(Sender: TObject); var ---data: tdate; ---dia, ano, mes: word; begin ------data := StrToDate(DBEdit1.Text); ------DecodeDate(data, ano, mes, dia); ------inc(dia); ------data := StrToDate(IntToStr(dia) + '/' + IntToStr(mes) + '/' + IntToStr(ano)); end; este codigo vai dar erro se o dia passar de 30 ou 31 dependendo do mes... se quiser um código comleto post denovo que eu te retorno, ou manda um e-mail... fiz só um exemplo do que você queria...

pode fazer também usando tables... se quiser saber me avisa...

a maneira mais fácil de fazer isto seria usando sql... posso tentar dar um exemplo... for I := 0 to ListBox.Count -1 do begin ------with Query1 do ------begin ------------Close; ------------with SQL do ------------begin ------------------Add('insert into TBExemplo (codigo, nome) values (123, QuotedStr(ListBox.Items.Strings))'); ------------end; ------------ExecSQL; end; end; Espero ter ajuda... pense um pouco neste código, acho que poderá te ajudar....

procedure TForm1.(...........); var data: TDate; //variável que vai receber a data digitada dia: word; //receberá o dia mes: word; //receberá o mês ano: word //receberá o ano begin try data := StrToDate(Edit1.Text); //receberá a data digitada DecodeDate(data, ano, mes, dia); //quebrará a data... não é nacessário usar este comando except ShowMessage('a data digitada é inválida!'); //se não for uma data válida retornará uma menssagem end; end;

do modo convencional não tem como, só a base de programação... mas um modo fácil é você utilizar um ActionList, fazer o código nele e colocar para o BitButton receber a action dele... henrique.ams@bol.com.br

tente este: try seila.color := clAzul; except showmessage('Cor inválida'); end; henrique.ams@bol.com.br

tente este: //Inserção de dados da tabela entrada qryentrada.close; qryentrada.SQL.clear; qryentrada.sql.Add('insert into entrada(Data,Hora,Qutentrada,Nome,Modelo) values(quotedstr(edtdata.text),quotedstr(edthora.text),quotedstr(EDTENTRADA.text),quotedstr(edtnome.text),quotedstr(edtmodelo.text))'); qryentrada.execSQL; qryentrada.open; //fim do codigo henrique.ams@bol.com.br