Jhonas

So o codigo funcionou, mas já procurei aqui e não existe nenhum teste.dll e mesmo assim ele não ta fechando, deve ter algum erro nesse meu codigo, algum detalhe que esteja impedindo o programa de fechar.. então sugiro a voce criar uma nova aplicação e criar as procedures uma a uma e ir executando o programa ( começando pelo OnActive do Form ) colocando uma a uma voce poderá achar o erro. abraço

Voce pode fazer o seguinte teste... crie uma nova aplicação e coloque somente este código unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; end; end. Ao executar o programa, ele nem vai chegar a abrir se não encontrar o arquivo Teste.dll no diretório do windows OBS: O seu código está correto, e se não estiver fechando é porque está encontrando o arquivo Teste.dll no diretório do windows... se for assim, voce deve deleta-lo para fazer o teste. abraço

Olhe o seu erro: Voce colocou uma procedure dentro da outra ( seria até possivel mas não dessa maneira ) procedure TForm1.FormCreate(Sender: TObject); begin procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; end; end; Apague o código acima e use desta maneira procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; end; abraço

Crie 3 tabelas 1 - Titular : campos ( Cod , Titular ) Estrutura da tabela: Cod - Numerico Titular - Alfanumerico tamanho = 60 2 - Patrocinador : campos ( Cod, Patrocinador1, Patrocinador2, Patrocinador3 ) Estrutura da tabela: Cod - Numerico Patrocinador1 - Alfanumerico tamanho = 60 Patrocinador2 - Alfanumerico tamanho = 60 Patrocinador2 - Alfanumerico tamanho = 60 3 - Colaborador : campos ( Cod, Colaborado1, Colaborador2, Colaborador3 ) Cod - Numerico Colaborador1 - Alfanumerico tamanho = 60 Colaborador2 - Alfanumerico tamanho = 60 Colaborador2 - Alfanumerico tamanho = 60 A construção da sua SQL para pesquisa e impressão seria ( exemplo ) SELECT Titular.Cod, Titular.Titular, Patrocinador.Patrocinador1, Patrocinador.Patrocinador2, Patrocinador.Patrocinador3, Colaborador.Colaborador1, Colaborador.Colaborador2, Colaborador.Colaborador3 FROM "D:\\Titular.db" Titular INNER JOIN "D:\\Patrocinador.db" Patrocinador ON (Titular.Cod = Patrocinador.Cod) INNER JOIN "D:\\Colaborador.db" Colaborador ON (Titular.Cod = Colaborador.Cod) WHERE Cod = :CODT // Passar por parametro o código do titular OBS: Como voce esta ainda no nível básico de programação, sugiro a voce ler apostilas sobre o delphi, para poder entender melhor sobre o assunto http://www.apostilasbr.com.br/linkmenu.asp?acao=133 http://scriptbrasil.com.br/forum/index.php...st&p=527773 abraço

O seu link não está funcionando A página não pode ser exibida desculpe a falta de atenção Evento OnActive do Form abraço

Micheus ao me referir que não vai acontecer nada ... seria não ver nada no form onde está o TImage, a menos que um form estivesse um ao lado do outro. rs abraço

Se voce colocou uma figura não esta aparecendo Mas não tem erro... o código funciona perfeitamente abraço

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

Uma vez formatado é muito dificil mas não impossivel ... existem empresas especializadas em recuperar arquivos em um HD formatado.. entretanto não vai ficar barato. ( procure na Net ) a outra solução é fazer tudo novamente abraço

O componente OpenDialog por si só não encerra a aplicação, a menos que o código seja parecido com este procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Application.Terminate; end; OBS: Quando voce chama o OpenDialog, ele abre a janela de pesquisa e quando voce clica no arquivo desejado, ele encerra o programa abraço

É mais simples do que voce pensa. procedure TForm1.Button1Click(Sender: TObject); begin DBGrid1.Columns[0].FieldName := 'PAPEL'; // nome verdadeiro do Campo da sua tabela DBGrid1.Columns[1].FieldName := 'COD'; // nome verdadeiro do Campo da sua tabela DBGrid1.Columns[2].FieldName := 'NUM'; // nome verdadeiro do Campo da sua tabela DBGrid1.Columns[0].Title.Caption := 'BOLA'; // novo nome do campo PAPEL será BOLA DBGrid1.Columns[1].Title.Caption := 'PRATO'; // novo nome do campo COD será PRATO DBGrid1.Columns[2].Title.Caption := 'SABONETE'; // novo nome do campo NUM será SABONETE end; obs: Os valores de Columns representa os indices dos campos de sua tabela ... começando por 0 abraço

Propriedade OnActive do Form procedure TForm1.FormActivate(Sender: TObject); abraço

Instale o DsPack do delphi 5 no delphi 4...e veja o que acontece http://www.progdigy.com/files/DSPACK234.zip abraço

Bem.. consegui esse codigo para a situacao acima, alguém poderia me indicar em que parte do projeto esse codigo entra? já tentei em varias e sempre da erro.. if not FileExists(c:\windows\teste.dll) then ShowMessage('Arquivo "'+NomeFalso+'" não existe') Application.Terminate; Exit; Não é necessário voce informar um arquivo falso, basta não informar nada... se o arquivo não for encontrado, simplesmente ele é abortado. coloque o código no OnActive do primeiro form chamado pela sua aplicação procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; OBS: O erro no seu código é porque voce não colocou aspas no caminho para o arquivo abraço

Instale o drive da Epson RX 80 que resolve o problema abraço

Veja neste endereço ... vai ajudar http://www.arquivodecodigos.net/arquivo/di...p;categoria2=35 abraço

Monte uma tabela com exemplo real S T Q Q S 1ª 2ª 3ª 4ª 5ª 6ª depois voce define uma matriz dimensional ou tridimensional ( conforme o caso ) guarda os valores em seu indices depois aplica-os em um relatório ( Horário de Aulas ) Se voce tivesse alguma pronta seria mais fácil te ajudar abraço

eu não tenho o RDPrint 4.0 .. esta versão é paga. abraço

maiores informações http://www.indyproject.org/docsite/html/fr...lException.html abraço

Se voce está usando a versão 2.5.14 do Restoration vá em drives e selecione o drive que deseja fazer a pesquisa em All or Part of the file ( Tudo ou parte do arquivo ) digite o nome do arquivo ou parte dele que deseja procurar clique no botão < Search Deleted Files > para iniciar procura Encontrado o arquivo clique para seleciona-lo e clique no botão < Restore by Copying > OBS: Caso voce tenha feito alguma instalação ou desfragmentação de disco, seus arquivos deletados não poderão mais ser recuperados abraço

Voce deve colocar este código em todas as janelas abraço

Realmente ... se fosse somente TStringList seria a unit Classes Veja a versão do indy ... se for o nativo que vem com o delphi 7 não tem abraço

De mais uma olhada neste post http://scriptbrasil.com.br/forum/index.php...st&p=455884 ou então tente esses IdHTTP1 http://groups.google.com.br/group/borland....49072e?lnk=raot http://www.delphi.eti.br/ver_dica.php?id=6764 http://www.delphi.eti.br/ver_dica.php?id=7032 http://www.tek-tips.com/viewthread.cfm?qid...5348&page=1 http://groups.google.com/group/borland.pub...1112c4525cdf7eb abraço

Voce está no caminho certo ... entretanto voce deve usar este código em um botão e não no evento OnCreate do Form procedure TForm1.Button1Click(Sender: TObject); var //quando se tem variaveis, elas ficam antes do primeiro begin txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo memo1.Clear; memo1.Lines.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt[i])>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end; OBS: Adicionei um componente memo para voce poder visualizar o conteudo do arquivo Txt. abraço

Voce deverá então implementar esta rotina em seu sistema ... se voce souber usar matrizes fica fácil coloque um exemplo do que voce esta querendo abraço