Ir para conteúdo
Fórum Script Brasil

silvanirms

Membros
  • Total de itens

    29
  • Registro em

  • Última visita

Tudo que silvanirms postou

  1. Criei um botao e no onclick postei o codigo que voces me passaram, mas esta retornando esse erro da imagem na hora de compilar:
  2. to tentando fazer dessa forma (já sabendo que esta errado) porq na verdade so preciso de um campo de busca onde digitar a palavra, n precisa de visual bonito e de nada disso, o mais simples possivel: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin var txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt)>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; end; end.
  3. Obrigado pela ajuda, mas não estou conseguindo usar, se não fosse pedir demais voce poderia me ajudar a encaixa-lo no codigo?
  4. Pessoal, estou precisando de um form que busque por determinada palavra em um .txt caso essa palavra já exista ele mostra a mensagem que já existe, caso não exista ele informe que não existe e insere o codigo nesse .txt Estou há 1 semana tentanto resolver essa minha duvida e não consigo, agradeco muito a quem puder me ajudar. Abs
×
×
  • Criar Novo...