ActiveDelphi

[F.K.C]

Bom dia a todos
estou com a seguinte dúvida, com este código que não estou conseguindo entender o que estou fazendo de errado, este é o código:
var
txt:TextFile;
Linha:string;
begin
if opendialog1.Execute then
begin
AssignFile(Txt,opendialog1.FileName);
Reset(Txt);
While not Eoln(Txt) do
ReadLn(txt,Linha);
Table1.Insert;
Table1Fornecedor.value:=copy(linha,01,20);
Table1PartNumber.value:=copy(linha,21,40);
Table1Quatidade.value:=copy(linha,41,67);
Table1DayCode.value:=copy(linha,68,72);
Table1Fabricante.value:=copy(linha,73,97);
Table1Valorunitario.value:=copy(linha,98,11);
Table1.Post;
end;
end;
A minha dúvida é o seguinte, este código é para importar como vcs viram arquivos textos para dentro do Paradox, mas tem um porém este código só lê a primeira linha, e não Lê a sengunda e assim sucessivamente, sendo que o arquivo texto contém 10 Linhas!
Alguém poderia me ajudar
Obrigado a Todos

[adrielrsilva]

Olá!

Tente usar:

While not [b] EOF[/b](Txt) do



Adriel

[adriano_servitec]

Olah amigo serah que nao esta faltando um [b]NEXT[/b] depois do [b]POST[/b]?


_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[Borland_Linuxer]

var
Txt: TextFile;
Entrada: string;
LIMITE: real;
begin
AssignFile(Txt,\'C:\\RN\\IMP\\CLIENTES.TXT\');
Reset(Txt);
while not eoln(txt) do begin
ReadLn(Txt,Entrada);
qrImpClientes1.Parameters.ParamByName(\'TIPCLI\').Value:=Copy(Entrada,01,01);
qrImpClientes1.Parameters.ParamByName(\'NRO_CONVENIO\').Value:=Copy(Entrada,02,06);
qrImpClientes1.Parameters.ParamByName(\'NRO_CONVENIADO\').Value:=Copy(Entrada,12,10);
qrImpClientes1.Parameters.ParamByName(\'NOMCLI\').Value:=Copy(Entrada,22,40);
qrImpClientes1.Parameters.ParamByName(\'END1\').Value:=Copy(Entrada,71,40);
qrImpClientes1.Parameters.ParamByName(\'REF1\').Value:=Copy(Entrada,112,40);
qrImpClientes1.Parameters.ParamByName(\'BAIDADOS\').Value:=Copy(Entrada,241,20);
qrImpClientes1.Parameters.ParamByName(\'LIMITE\').Value:=StrToCurr(Copy(Entrada,211,10));
// limite:= qrImpClientes1.Parameters.ParamByName(\'LIMITE\').Value;
// qrImpClientes1.Parameters.ParamByName(\'SALDO\').Value:=Copy(Entrada,226,10);
// qrImpClientes1.Parameters.ParamByName(\'INATIVO\').Value:=Copy(Entrada,001,xx);
// qrImpClientes1.Parameters.ParamByName(\'DTAINATIVO\').Value:=Copy(Entrada,001,xx);
// qrImpClientes1.Parameters.ParamByName(\'MOTIVO\').Value:=Copy(Entrada,001,xx);
// qrImpClientes1.Parameters.ParamByName(\'DTACAD\').Value:=Copy(Entrada,001,xx);
qrImpClientes1.Close;
qrImpClientes1.ExecSql;
end;
CloseFile(Txt);
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[fabiofs]

Troca o EoLn por EOF(txt). Você está testando se está no fim de uma linha e não se chegou ao fim de um arquivo.
_________________
MBA. Fábio Ferreira da Silva
fabiofs@hotmail.com

[F.K.C]

Dae pessoal Beleza
Duas Pessoas me Falaram para trocar o Eoln por Eof, mas ocorre o mesmo problema, jah tentei de várias formas, mas não vai para a próxima linha, se possível alguém tem outra sugestão?
Valeu a todos..
Até

[gustavocco]

Olá, dah uma olhada no seu while, falta o begin, dessa forma ele lê as 10 linhas e grava somente a ultima.

[code]

While not EoF(Txt) do [b]begin[/b]
ReadLn(txt,Linha);
[/code]
e adicione um end; no final.

Abraço.
_________________
Top System - www.topsystem.com.br

[johnny-walker]

EOln é final de linha amigo por isso que ele le apenas a primeira linha....

Tem de ser End Of File EOF...

bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[F.K.C]

Valeu a todos que deram uma força e funcionou perfeitamente
Até

[gustavocco]

blz...

Abraço.
_________________
Top System - www.topsystem.com.br