recuperar valores de um txt?

Delphi

05/02/2003

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

Curtidas 0

Respostas

Anonymous

Anonymous

05/02/2003

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


GOSTEI 0
Dantonds

Dantonds

05/02/2003

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


GOSTEI 0
Dor_poa

Dor_poa

05/02/2003

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;


GOSTEI 0
Anonymous

Anonymous

05/02/2003

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


GOSTEI 0
Kandrus

Kandrus

05/02/2003

Valew galera pela a ajuda!!!!


GOSTEI 0
POSTAR