Jump to content
Fórum Script Brasil

silvanirms

Membros
  • Content Count

    29
  • Joined

  • Last visited

Community Reputation

0 Neutro

About silvanirms

  1. não estou conseguindo, ele não consegue calcular os valores dos campos "numero1" e "numero2" corretamente, sera que existe algum erro nesse codigo que postei, de repente no $_GET? abs
  2. Pessoal preciso da ajuda de voces, tenho o codigo que segue abaixo, ele basicamente faz o seguinte: voce informa um intervalo, por exemplo, do numero 100 ao numero 200 e ele checka numa pagina se esses numeros são validos (pois nessa pagina se os numeros forem validos a pagina informa abrindo uma outra pagina informando que o numero existe) acho que da para entender melhor dando uma lhada no codigo, enfim, basicamente é uma busca. O problema que estou encontrando é fazer uma pagina de entrada com dois campos para se inserir os intervalos e que essa pagina chame o codigo abaixo no momento da
  3. Jhonas obrigado pela ajuda, fiz da segunda forma que voce indicou. Abs
  4. Pessoal, estou fazendo um programa com um form de busca, quando o usuario clica em 'buscar" e o campo de busca esta vazio ele retorna uma mensagem informando que o usuario deve preencher o campo busca para clicar no botao "buscar", porem, este aviso esta permanecendo no form, mesmo depois que o usuario faz novas buscas.. como faço para limpar esse aviso depois de que ele seja dado? (o aviso é dado no label4) Essa é a parte do codigo: procedure TForm1.Button1Click(Sender: TObject); var txt: TStringList; i: integer; begin if ( edit1.Text <> '' ) then begin txt := TStri
  5. Pessoal, estou elaborando um programa bem simples (o codigo esta em outro tópico criado há alguns dias) basicamente é um form onde voce digita certo numero ou palavra e ele faz a busca em um arquivo .txt, caso essa palavra esteja no .txt ele retorna a mensagem "encontrada" e caso não esteja ele retorna a mensagem "não encontrada" e adiciona a novo palavra a lista do .txt. O que estou precisando para finaliza o programa é o seguinte: gostaria que fosse exibido na tela do programa o numero de linhas desse arquivo .txt (não sei se nesse caso seria um tlabel) que codigo eu poderia usar para que
  6. Como faço para que o programa exiba na propria janela do programa, algo como "numero de buscas:" e mostre quantas palavras foram buscadas (podendo ate ser quantas linhas existem no arquivo .txt que foi gerado contendo as palavras que foram buscadas). Abs
  7. Estava tendo alguns problemas com as permissoes (alguns sistemas como o vista, geralmente apenas o administrador tem a permissao de modificar/criar um arquivo) resolvi o problema salvando o arquivo na pasta "meus documentos": txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); //salva arquivo
  8. Consegui apos adicionar a unit 'SysUtils' (para usar o FileExists) obrigado a todos pela ajuda, abs
  9. Micheus tentei da forma que voce indicou, mas tambem não deu.. esta retornando o erro: Abraco
  10. Refiz o programa, procedure por procedure e não consegui que o codigo fizesse o programa fechar.. alguém poderia dar uma olhada nesse codigo que postei acima se esta tudo correto? (acho que deve ser algum detalhe que esteja passando despercebido e esta evitando que o codigo de fechar o programa funcione). Obrigado, abs s
  11. ok, vou fazer isso sim, mais uma vez obrigado pela ajuda. abs
  12. 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..
  13. O programa ate compilou, mas não deu o resultado esperado (fechar na ausencia do arquivo teste.dll) vou te postar o codigo, ok? ahh e obrigado pela paciencia. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, ShellApi; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Image1: TImage; Shape1: TShape; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  14. Jhonas coloquei a imagem em outro lugar, o que eu posso estar fazendo de errado? (estou abrindo o form e colando o codigo que voce me passou depois dos outros procedures) foto
  15. Tinha colocado uma imagem sim, o link é esse: http://www.uploadimagens.com/upload/fd8348...fb8d17f855a.jpg aqui não ta dando certo, retorna um erro na hora de compilar, o codigo ta certo acho que eu q não estou sabendo onde por. abs
×
×
  • Create New...