recuperar valores de um txt?
05/02/2003
0
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
Posts
05/02/2003
Anonymous
é 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
06/02/2003
Dantonds
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
06/02/2003
Dor_poa
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;
06/02/2003
Anonymous
não é bem mais facil usar um ini ?
Clique aqui para fazer login e interagir na Comunidade :)