joao_arthur Profissional
Registrado: Sexta-Feira, 10 de Novembro de 2006 Mensagens: 687 Localização: Fortaleza-CE
|
Enviada: Dom Set 30, 2007 6:51 pm Assunto: |
|
|
ok maxm.ro perfeito queria jogar o valor das linha do arquivo PorgressBar.Max ficou assim:
Código: |
var
arq: textFile;
linha: string;
Lista: TStringList;
Linhas: integer;
begin
AssignFile(arq, 'c:\Fontes delphi\Produtos.txt');
reset (arq);
readLn (arq, linha);
Lista := TStringList.Create;
try
Lista.LoadFromFile('c:\Fontes delphi\Produtos.txt');
Linhas:= Lista.Count;
ProgressBar1.Max:= lista.Count;
finally
Lista.Free;
end;
ProgressBar1.Position:= 0;
while not eof (arq) do
begin
with IBQuery1 do
begin
SQL.Clear;
SQL.Add('insert into produtos (prod_cod, prod_descricao, prod_codbarra)');
SQL.Add(' values (:pCod, :pDescricao, :pCodBarra)');
ParamByName('pCod').Value:= copy(linha,1,6);
ParamByName('pDescricao').Value:= copy(linha,7,40);
ParamByName('pCodBarra').Value:= copy(linha,57,15);
ExecSQL;
Readln(arq, linha);
ProgressBar1.Position:= ProgressBar1.Position + 1;
end;
end;
ShowMessage('Arquivo OK');
end; |
grato cara pela ajuda té mais... _________________ João Arthur. |
|