Jhonas

Parando o relogio do sistema unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, RXClock; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; RxClock1: TRxClock; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; lig : integer = 0; implementation {$R *.DFM} function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 1; // mantem o relogio parado entre um segundo e outro hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end; procedure TForm1.Button1Click(Sender: TObject); begin lig := lig + 1; if lig = 1 then Timer1.Enabled := true else begin Timer1.Enabled := false; lig := 0; end; end; end. Procure no forum .. tem varias apostilas sobre delphi abraço

Voce precisa ler um pouco mais sobre delphi... voce não esta sabendo nem o nivel basico O aprendizado antes da pratica começa pela leitura. var Form1: TForm1; lig : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin lig := lig + 1; if lig = 1 then Timer1.Enabled := true else begin Timer1.Enabled := false; lig := 0; end; end; abraço

comando de abertura de arquivo OPEN(UNIT=fileref,FILE='filename',OPTIONS) exemplo open(unit=1,file='test.dat',status='old') usando paramentos unit_no = 1 filename = 'test.dat' file_age = 'old' open(unit=unit_no,file=filename,status=file_age) Veja pagina 37 deste manual http://www.inf.ufes.br/~avalli/pd2/08_1/ap...Fortran7790.pdf abraço

Realmente os valores serão sempre diferentes Timing Intrinsic real :: start_time, end_time call cpu_time( start_time ) [..] call cpu_time( end_time ) Exemplo: http://tyne.dl.ac.uk/ReDRESS/CodeDev/codedev_doc/node56.html abraço

Exemplo simples: Resolvendo uma equação de 2o. grau C 1 2 3 4 5 6 C2345678901234567890123456789012345678901234567890123456789012345 PROGRAM BASKHARA C REAL A,B,C, DELTA, X1,X2, RE, IM C PRINT *, "Este programa resolve uma equação de 2o.grau" PRINT *, "no formato: a*x**2 + b*x + c = 0" C PRINT 10, "Digite a,b,c: " 10 FORMAT(A,1X,$) 20 READ(*,*,ERR=20) A,B,C // Leitura de dados pelo teclado C DELTA=B*B-4.*A*C C IF (DELTA.GT.0) THEN ! (DUAS RAIZES REAIS) X1=(-B-SQRT(DELTA))/(2.*A) X2=(-B+SQRT(DELTA))/(2.*A) PRINT *, "RAIZES: X1=",X1 PRINT *, " X2=",X2 ELSE IF (DELTA.EQ.0) THEN ! (DUAS RAIZES REAIS IGUAIS) X1=-B/(2.*A) X2=X1 PRINT *, "RAIZES: X1=X2=",X1 ELSE ! (DUAS RAIZES COMPLEXAS) RE=-B/(2.*A) IM=SQRT(-DELTA)/(2.*A) PRINT *, "RAIZES COMPLEXAS: X1=",RE," -",IM,"i" PRINT *, " X2=",RE," +",IM,"i" ENDIF C END Cartão de Referencia do Fortran77 ( Comandos ) http://basalto.ifsc.usp.br/download/cartaoRefFortran.pdf Manual do Fortran77 http://www.geocities.com/helder_pc/fortran/ abraço

exatamente. a function vem antes da procedure TForm1.Timer1Timer(Sender: TObject); abraço

function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 1; // mantem o relogio parado entre um segundo e outro hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end; abraço

Tutorial de uso dos componentes DBExpress do Delphi http://www.devmedia.com.br/download/down.a...213be0a&cb= Teclando F1 ( Help ) sobre o componente voce tera a seguinte informação abraço

Claro que sim ... este programa tem que ser instalado no computador que voce pretende recuperar o arquivo, não funciona em rede, somente local. abraço

Exprimente usar um rotedor para a internet e um hub switch para os servidores e firewall, vai resolver o seu problema http://www.imdetect.com/faq.htm http://www.forumpcs.com.br/viewtopic.php?t=208080 abraço

O correto é : procedure TForm1.BitBtn1Click(Sender: TObject); begin if MaskEdit1.Text <> ' / / ' then begin // comandos end; end; abraço

Vou ver se encontro alguma coisa no meu baú ... qualquer coisa depois informo abraço

esse problema sempre vai acontecer em uma maquina com menos recursos de hardware, não tem jeito. abraço

Campo1, campo2 ... etc são os campos da sua tabela para que sejam exibidas somente as movimentaçoes do mes selecionado, voce deve fazer um select por periodo procure pela palavra select no forum .. já existem varios exemplos abraço

Colega .. no momento estou com o tempo curto para poder te dar uma melhor ajuda... veja o codigo do arquivo e procure por algum comando de fechar a janela. quando puder te dou uma resposta melhor. abraço

Voce pode alterar o arquivo dialogs.pas onde estão estas funções C:\Arquivos de programas\Borland\Delphi5\Source\Vcl\dialogs.pas ou pode criar a sua propria janela de mensagem sem o botão fechar abraço

Vamos lá Gafanhoto 1 - Usar uma Função para pegar o serial físico do hd, e não o serial do volume do hd, pois o serial do volume do hd sempre que o hd é formatado ele muda e também fazendo uma copia do hd pelo ghost esse número do volume também é copiado. Então para um controle do programa o ideal é pegar o serial físico do hd. http://www.activedelphi.com.br/print.php?sid=214 2 - Usar um Componente de criptografia para o delphi http://imasters.uol.com.br/download/224/pr...o/linuxcrypt_10 3 - Na primeira utilização do programa, Criptografar o resultado da função e guarda-la em um arquivo do seu programa 4 - A partir da segunda utilização, montar uma rotina para descriptografar o arquivo e comparar novamente com o resultado da função para pegar o serial do hd 5 - Se os valores forem iguais, libera o programa para uso, caso contrário não deixar executa-lo OBS: Se voce conseguir montar esta primeira etapa, passaremos para a segunda, que é , montar uma fechadura e uma chave para instalação.. ok ? abraço

Este arquivo faz parte da biblioteca dos componentes RX Endereço para download ( RX Library v. 2.75 ) http://br.geocities.com/all_software/download.htm abraço

Usando um exemplo bem simples ( usando codigo em um botao ) procedure TForm1.Button2Click(Sender: TObject); var i : integer; valor : real; begin Query1.Active := false; Query1.Active := true; for i := 1 to Query1.RecordCount do valor := valor + Query1Valor.Value; // somar todos os campos chamado Valor edit1.Text := format('%8.2f',[valor]); // mostrar o total acumulado formatado de Valor end; voce Tambem pode fazer isso via instrução SQL exemplo SELECT SUM(Valor) FROM SuaTabela ou ainda SELECT CAMPO1, CAMPO2, SUM( (case when VL_PAGO is null then 0.0 else VL_PAGO end) + (case when VL_MULTA is null then 0.0 else VL_MULTA end) + (case when VLDESP is null then 0.0 else VLDESP end) ) TotalPago ou ainda select sum(Valor), Campo1, Campo2 from Tabela group by Debito select sum(Valor), Campo1, Campo2 from Tabela group by Credito abraço

Soube sim ... inclusive soube que copia do meu programa foi parar em outra cidade, isso porque o programa não rodou em outra maquina e o cliente me ligou, e acabei fazendo o cliente me pagar por outra licença de uso. Como disse a técnica de Identidade Única, funciona muito bem, além do que, o cliente não sabia que o programa tinha embutido este tipo de código. abraço

Tenta dessa maneira: 00000\-999;1;_ abraço

Oi João ... se voce não tem muita experiencia com o QR da uma olha nos exemplos o delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr2 C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr3 abraço

Esse é o contra ... mas nunca tive problemas abraço

MASSA := PESO / (ALTURA * ALTURA); abraço

Clique no Iniciar e depois em executar ... digite cmd ( abrira a janela do DOS ) nela digite Dir /? ( veja as instruções ) depois digite IF /? ( veja as instruções ) depois digite Del /? ( veja as instruções ) para ver todos os comandos digite somente /? com estes comandos voce conseguira montar a sua bat abraço