Importar arquivo.txt

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fArq: TextFile; // tipo texto
  Caminho: String; // armazena o caminho
  Linha: String; // lê a linha do tipo texto
  mTexto: TStringList;
begin
  Caminho := Edit1.Text; // variavel recebe os dados do edit
  AssignFile(fArq,Caminho);
  Reset(fArq);
  mTexto := TStringList.Create;
  mTexto.LoadFromFile(Caminho);
  ProgressBar1.Max := mTexto.Count - 1;
  mTexto.Free;

  // fecha a tabela e atribui a instrução sql
  ClientDataSet1.Close; 
  ClientDataSet1.CommandText := ´select * from tabela where codigo = :codigo ´;

  while not Eof(fArq) do // faça enquanto não chegar ao fim do arquivo
  begin
    Application.ProcessMessages;
    Readln(fArq, linha); // lê a linha e joga o conteúdo na variável linha

    // buscando pelo parâmetro código
    ClientDataSet1.Close; // fechando a tabela
    ClientDataSet1.Params.ParamByName(´CODIGO´).AsString := Trim(copy(Linha,1,6));
    ClientDataSet1.Open; // abrindo a tabela

    if ClientDataSet1.IsEmpty then // se a tabela estiver vazia
    begin
      ClientDataSet1.Append; // insira um registro vazio
      ClientDataSet1CODIGO.AsString := Trim(copy(Linha,1,6));
    end
    else // senao
      ClientDataSet1.edit; // edita o registro encontrado

    // aqui os campos recebem os valores lidos
    ClientDataSet1NOME.AsString := Trim(copy(Linha,7,32));
    ClientDataSet1.Post; // salva
    ClientDataSet1.ApplyUpdates(0); //atualiza no banco

    ProgressBar1.Position := ProgressBar1.Position + 1;
  end;

  MessageBeep(65);
  ShowMessage(´Processo Concluído com êxito´);
  ProgressBar1.Position := 0;

  ClientDataSet1.Close; // fecha a tabela
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fArq: TextFile; // tipo texto
  Caminho: String; // armazena o caminho
  Linha: String; // lê a linha do tipo texto
  mTexto: TStringList;
begin
  Caminho := Edit1.Text; // variavel recebe os dados do edit
  AssignFile(fArq,Caminho);
  Reset(fArq);
  mTexto := TStringList.Create;
  mTexto.LoadFromFile(Caminho);
  ProgressBar1.Max := mTexto.Count - 1;
  mTexto.Free;

  lCancelou := False; // variável private

  // fecha a tabela e atribui a instrução sql
  ClientDataSet1.Close;
  ClientDataSet1.CommandText := ´select * from tabela where codigo = :codigo ´;

  // faça enquanto não chegar ao fim do arquivo e não for cancelado pelo usuário
  while not Eof(fArq) and not lCancelou do
  begin
    Application.ProcessMessages;
    Readln(fArq, linha); // lê a linha e joga o conteúdo na variável linha

    // buscando pelo parâmetro código
    ClientDataSet1.Close; // fechando a tabela
    ClientDataSet1.Params.ParamByName(´CODIGO´).AsString := Trim(copy(Linha,1,6));
    ClientDataSet1.Open; // abrindo a tabela

    if ClientDataSet1.IsEmpty then // se a tabela estiver vazia
    begin
      ClientDataSet1.Append; // insira um registro vazio
      ClientDataSet1CODIGO.AsString := Trim(copy(Linha,1,6));
    end
    else // senao
      ClientDataSet1.edit; // edita o registro encontrado

    // aqui os campos recebem os valores lidos
    ClientDataSet1NOME.AsString := Trim(copy(Linha,7,32));
    ClientDataSet1.Post; // salva
    ClientDataSet1.ApplyUpdates(0); //atualiza no banco

    ProgressBar1.Position := ProgressBar1.Position + 1;
  end;

  MessageBeep(65);
  if not lCancelou then
    ShowMessage(´Processo Concluído com êxito´)
  else
    ShowMessage(
      Format(´Processo CANCELADO pelo usuário.´#13´Foram processados ¬d registros de um total de ¬d´,
        [ProgressBar1.Position, ProgressBar1.Max]));

  ProgressBar1.Position := 0;

  ClientDataSet1.Close; // fecha a tabela
end;

procedure TForm1.ButtonCancelarClick(Sender: TObject);
begin
  lCancelou := Application.MessageBox(´Deseja realmente cancelar a importação?´,
    ´Cancelar´, mb_TaskModal + mb_IconQuestion + mb_YesNo) = mrYes;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  if Edit3.Text <> ´´ then
  begin
    Edit3.Text := RightStr(´000000´+Trim(Edit3.Text),6);
    if not ClientDataSet1.Locate(´CODIGO´,Edit3.Text,[]) then
      ShowMessage(´Código Não encontrado!´);
  end
  else
    ClientDataSet1.First;

  Edit3.SetFocus;
end;