Fórum Importar Txt Tamanho Fixo para MySQL #492837

procedure TFRM_PRINCIPAL.BT_PROCESSA_ARQUIVOClick(Sender: TObject);
var
  txt: TextFile;
  arq: String;
  codigo,descricao,dpto,oferta,preco : String;
begin
  AssignFile(txt,ED_URL_ARQUIVO.Text);
  Reset(txt);
  while not eoln(txt) do
begin
  ReadLn(txt,arq);
  codigo := Copy(arq,3,9);
  descricao := Copy(arq,19,68);
  dpto := Copy(arq,1,2);
  preco := Copy(arq,10,15);
    with DM_PRINCIPAL.SQLQ_IMPORTA_MGV do
    begin
      DM_PRINCIPAL.SQLQ_IMPORTA_MGV.SQL.Clear;
      DM_PRINCIPAL.SQLQ_IMPORTA_MGV.SQL.Add('insert into produtos(prod_codigo,prod_descricao,prod_dpto,prod_preco) values ('+#34+codigo+#34+','+#34+descricao+#34+','+#34+dpto+#34+','+#34+preco+#34+')');
      DM_PRINCIPAL.SQLQ_IMPORTA_MGV.ExecSQL;

    end;
  end;
  CloseFile(txt);
  ShowMessage('Arquivo Importado com sucesso!');



end;