Fórum Importar arquivo TXT #274270

procedure TForm1.Button1Click(Sender: TObject);
var
  ARQ : TextFile;
  Linha : string;
begin
  Table1.Open;
  AssignFile(ARQ,Edit1.Text);// aqui estou indicando através de um Edit que tenho no form onde está o arquivo texto
  Reset(ARQ);

  while not Eof(ARQ) do
  begin
    ReadLn(ARQ,Linha);
    if Table1.FindKey([StrToInt(copy(Linha,1,5))]) then
      Table1.Edit
    else
      Table1.Insert;
    Table1Cd_item.value    := strtofloat(copy(Linha,1,14));
    Table1Nm_item.Value    := UpperCase(copy(Linha,15,60));
    TblItens.Post;
    TblItens.Refresh;
  end;
  CloseFile(ARQ);

end;