recuperar valores de um txt?

05/02/2003

0

Boa tarde a todos!!

Gostaria de saber como faço para recuperar um determinado valor em um arquivo txt. Acho q fazer uma busca em um arquivo txt seria o termo mais correto e colocar o resultado desta busca em uma variavel

Desde já aradeço

Luiz Jesuz Pires da Silva Jr.


Kandrus

Kandrus

Responder

Posts

05/02/2003

Anonymous

Amigo se vc estiver uzando um Edit por exemplo vc pode usar consulta em SQL usando parametros.

é mais ou menos assim

Select * from (tabela) where (Like´Campo da Tabela´);

params[0]edit.txt

mais ou menos isso os parametros vai armazenar os dados digitados no edit e vai procura-lo na tabela via consulta sql.

espero ter ajudado


Responder

06/02/2003

Dantonds

Neste exemplo vc digita uma palavra em um edit aperta o botão procurar e vc seleciona o arquivo texto desejado.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileToFind : TextFile;
StrToCompare: string;
linha : integer;
Achou : boolean;
begin
if length(Trim(Edit1.Text)) > 0 then begin
if OpenDialog1.Execute then begin
AssignFile(FileToFind,OpenDialog1.FileName);
Label1.Caption := OpenDialog1.FileName;
end else exit;
Achou := False;
linha := 0;
Reset(FileToFind);
while not Eof(FileToFind) do
begin
linha := linha + 1;
Readln(FileToFind,StrToCompare);
if Pos(Edit1.Text,StrToCompare) > 0 then begin
ShowMessage(´Achei a palavra na linha : ´ + IntToStr(linha));
Achou := True;
end;
end;
CloseFile(FileToFind);
if not(Achou) then
ShowMessage(´Palavra não encontrada!´);
end
else ShowMessage(´Digite a palavra a ser pesquisada!´);
end;

end.

Espero ter ajudado


Responder

06/02/2003

Dor_poa

Coloca um memo em teu projeto, mande ele abrir o arquivo TXT...

Para ler o conteudo faça assim
edit1.text := memo1.lines.string[1];


Obs.: o nº 1 equivale a linha onde esta sendo lido o arquivo...
para ler todo o arquivo faça assim

var i> integer;
begin
I= 1 // ou 0 eu nao me lembro direito
Repeat
edit1.text := memo1.lines.string[1];
inc(i)
until i >= memo1.lines.count;


Responder

06/02/2003

Anonymous

Ué ? se vc precisa gravar um valor em uma arquivo texto e recupera-lo
não é bem mais facil usar um ini ?


Responder

07/02/2003

Kandrus

Valew galera pela a ajuda!!!!


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar