Pesquisa entre duas tableas
Caros Amigos,
Estou com um problema e gostaria que vocês me ajudassem. Diariamente recebo um arquivo texto com várias linhas, onde preciso procurar o codigo de cada linha correspondente na table2 e após isso gerar um outro arquivo texto. A rotina que estou fazendo é a seguinte Criei a table1, importo o arquivo texto, na table 2 estão os códigos:
Primeira dúvida como faço para começara importar o arquivo texto da segunda linha ? Após a importação deste arquivo texto preciso comparar todas as linhas deste arquivo importado com a table2
var
TXT:TextFile;
Entrada:String;
begin
AssignFile(TXT,´F:\RENATO\DELPHI\DEBITOAUTOMATICO\DEBI2707.TXT´);
Reset(TXT);
while not eoln (TXT) do
begin
Readln(TXT,entrada);
Table1.Insert;
Table1Codigo.Value:=Copy(Entrada,01,18);
Table1Data.Value:=Copy(Entrada,30,37);
Table1Descricao.Value:=Copy(Entrada,53,82);
Table1Valor.Value:=Copy(Entrada,38,52);
ProgressBar1.Position:=ProgressBar1.Position+1;
end;
CloseFile(TXT);
ProgressBar1.Position:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
table1.First;
while not Table1.Eof do
begin
if table1Codigo.Value=Table2CODIGO.Value then
Showmessage(´O cooperado´+ Table2NConta.Value+ ´numero de
conta´
+ Table2Cooperado.Value);
end;
end;
Estou com um problema e gostaria que vocês me ajudassem. Diariamente recebo um arquivo texto com várias linhas, onde preciso procurar o codigo de cada linha correspondente na table2 e após isso gerar um outro arquivo texto. A rotina que estou fazendo é a seguinte Criei a table1, importo o arquivo texto, na table 2 estão os códigos:
Primeira dúvida como faço para começara importar o arquivo texto da segunda linha ? Após a importação deste arquivo texto preciso comparar todas as linhas deste arquivo importado com a table2
var
TXT:TextFile;
Entrada:String;
begin
AssignFile(TXT,´F:\RENATO\DELPHI\DEBITOAUTOMATICO\DEBI2707.TXT´);
Reset(TXT);
while not eoln (TXT) do
begin
Readln(TXT,entrada);
Table1.Insert;
Table1Codigo.Value:=Copy(Entrada,01,18);
Table1Data.Value:=Copy(Entrada,30,37);
Table1Descricao.Value:=Copy(Entrada,53,82);
Table1Valor.Value:=Copy(Entrada,38,52);
ProgressBar1.Position:=ProgressBar1.Position+1;
end;
CloseFile(TXT);
ProgressBar1.Position:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
table1.First;
while not Table1.Eof do
begin
if table1Codigo.Value=Table2CODIGO.Value then
Showmessage(´O cooperado´+ Table2NConta.Value+ ´numero de
conta´
+ Table2Cooperado.Value);
end;
end;
Rfp170
Curtidas 0