Jhonas

Algumas informações adicionais: como fica no seu codigo Uses Crt; Var ALTURA, PESO, MASSA : Real; Begin Writeln('Qual a sua altura?'); Readln(ALTURA); Writeln('E o peso?'); Readln(PESO); MASSA := PESO / ALTURA * ALTURA; If MASSA < 24.9 then Writeln('Normal.') Else If (MASSA => 25) and (MASSA <= 29.9) then Writeln('Você está acima de seu peso (sobrepeso).') Else If (MASSA => 30) and (MASSA <= 34.9) then Writeln(Obesidade grau I.') Else If (MASSA => 35) and (MASSA <= 39.9) then Writeln(Obesidade grau II.') Else If (MASSA => 40) then Writeln(Obesidade grau III.') End. abraço

Em relação ao artigo No meu caso eu usei a técnica de Identidade Única acho que no seu caso voce pode optar pelas duas: Identidade Única e Habilitação Pela Internet Passos para o desevolvimento 1 - Gerar uma fechadura aleatória e uma chave, usando um sistema de criptografia pelo seu programa Componente de criptografia para o delphi http://imasters.uol.com.br/download/224/pr...o/linuxcrypt_10 2 - Pedir para o usuário digitar na pagina do site, o numero ou codigo da fechadura gerado pelo programa 3 - De posse da chave, voce habilita o programa para o usuario 4 - Ao habilitar o programa, voce usa a tecnica de Identidade unica, salvando em um arquivo local os dados criptografados do hardware 5 - O programa ao ser executado, fara novamente uma varredura do hardware e fara uma comparação com os dados criptografados 6 - Se as informações baterem, voce libera o uso do programa. basicamente a idéia é esta. abraço

Existem programas prontos que fazem isto http://imasters.uol.com.br/download/83/ger...older_guard_411 http://hack-one.org/forum/viewtopic.php?f=...=602&p=2788 Para o dephi voce pode usar APIs do windows, da um certo trabalho para fazer, mas é possivel outra maneira seria modificando o registry do windows abraço

Veja estes posts ... vai te dar um ideia de como fazer http://scriptbrasil.com.br/forum/index.php...st&p=274882 http://scriptbrasil.com.br/forum/index.php...st&p=457084 abraço

voce pode usar estes componentes para o delphi http://www.teflamar.com.br/down/vkdbf.zip http://vlad-karpov.narod.ru/Components.html componentes pagos http://www.filebuzz.com/files/Dbase_Delphi/1.html abraço

claro que pode .... te passei o exemplo exp1:{if(uf='GO','Goias',uf)} //verifica se campo uf é igual a "Go" se for mostra "goias" se não mostra o conteudo do campo da tabela existe tambem um exemplo no delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr3 veja tambem http://www.quickreport.co.uk/QuickReportFAQ.doc abraço

Vejam estes artigos http://www.fernandoamaral.com.br/SQL_sqlxinterbase.pdf http://www.edmilson.eti.br/publicacoes/monografia.pdf abraço

Acho que voce vai precisar de 3 dlls crpe32_res_xx.dll crpe32_res_PTB.dll crpe32_res_PT.dll elas deverão estar no diretorio do executavel ou no diretorio system32 do windows voce tambem pode instalar em outra maquina e ver quais arquivos ele vai pedir. abraço

Veja neste endereço http://www.plugmasters.com.br/sys/materias...a-e-o-seu-bolso abraço

A borland já deu a solução para este tipo de erro ( previlegios de administrador ) e de como burlar o erro // O usuário não pode ter acesso ao registro. // Silencia a exceção a menos que peça para registrar explicitamente. veja novamente a solução da Borland e tente modificar o seu codigo, ou tente uma outra solução abraço

Colega, clicando com o mouse sobre o comando e clicando na tecla F1 (Help) temos a seguinte informação: abraço

Vai um exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Uses Registry; function GetComputerNameFunc : string; var ipbuffer : string; nsize : dword; begin nsize := 255; SetLength(ipbuffer,nsize); if GetComputerName(pchar(ipbuffer),nsize) then result := ipbuffer; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.caption := GetComputerNameFunc; end; end. abraço

algumas dicas abraço

Esta limitação quem colocou foi o programador que fez o sistema Voce pode desenvolver um sistema usando mysql e delphi, e tambem podera definir quantas copias poderão ser executadas ao mesmo tempo e por quanto tempo Mais informações: http://www.forumweb.com.br/foruns/lofivers...x.php/t303.html abraço

Oi Eder .. tente fazer a seguinte experiencia .... faça um backup do seu projeto em outro lugar, delete o seu form Menu e crie um novo, coloque as opções de menu sem os codigos ( somente o usado para fechar o aplicativo ) compile o programa e execute-o ... se funcionar va adicionando os comandos aos poucos ao form menu... creio que vai achar o problema. abraço

O que o colega K!ko mencionou está correto, mas se preferir use o componente DSpack para capturar imagens da webcam... muito bom e com exemplos http://www.progdigy.com/modules.php?name=DSPack abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=461116 abraço

tenta desta maneira: abraço

exatamente o que voce perguntou .... voce vai usar o comando break para pausar o while e o comando continue para continuar outro exemplo for I := 1 to 10 do if I = 9 do begin while x < 50 do begin Inc(x) if X = 45 then Break; // sai do while end; Break; // sai do for end; outro Procedure Tform1.Button1Click(Sender: TObject); var S: String; begin While true Do begin S := Edit1.text; If S = ' ' Then Break; { Interrompe o loop } Label1.Caption := S; end; end; Procedure Tform1.Button1Click(Sender: TObject); var S: String; begin While true Do begin S := Edit1.text; If S = ' ' Then Continue; { Voltará para o próximo loop } Label1.Caption := S; end; end; ficou mais claro ? abraço

De uma lida atentamente neste artigo, vai sanar a sua dúvida e de outros membros http://www.comunidade-firebird.org/cflp/do...s/CFLP_T032.PDF abraço

Exemplo: var S: string; begin while True do begin ReadLn(S); try if S = '' then Break; WriteLn(S); finally { do something for all cases } { faça algo para todos os casos } end; end; end; Obs: veja no help do delphi os comandos break e continue; abraço

Voce deve desinstalar o software e fazer uma limpeza nos registros use o Easy-Cleaner para isto http://baixaki.ig.com.br/download/Easy-Cleaner.htm depois voce instala novamente

Eu uso o Restoration.. muito bom .. espero que voce não tenha feito outra coisa no seu micro depois da exclusão http://portatil.jaca.com.br/2006/03/30/restoration/ http://www.pc-facile.com/software.php?id=9...action=settings http://www.snapfiles.com/opinions/Restorat...estoration.html http://www.gratis.com.br/index.mv?pagina=d...hes&pos=395 abraço

Faça uma busca no forum pela palavra regedit http://scriptbrasil.com.br/forum/index.php...st&p=150305 abraço

Veja se este post ajuda http://scriptbrasil.com.br/forum/index.php...st&p=150305 abraço