Fórum Importar arquivo txt com Delimitador | com campos vazios #572764

Boa tarde pessoal,

Hoje estava fazendo uma integração com o meu sistema e preciso ler alguns arquivos de texto dentro de uma pasta e importar para meu sistema, as linhas são delimitadas separando assim seus campos, segue abaixo exemplo;

18|4|08.370.499/0001-30||||||3501608|1|A S MANTOVANI SUPERMERCADO - ME|SUPERMERCADO PEROLA|J||| ||||||R URUGUAI|JARDIM GIRASSOL|

Porem quando eu vou ler um campo que está vazio " Em branco " ele pula para o próximo campo, exemplo indice[0] = 18, indice[1] = 4, indice[2] = 08.370.499/0001-30, indice[3] ele já pula os campos |||||| e vai direto para o 3501608, e a importação acaba não dando certo.

Se alguém puder me ajudar eu agradeço!

Segue abaixo código que estou usando;

procedure Tfrmcarga.ImportarDados;
var
e:TextFile;
linha, dir:String;
Arquivos :TStringList;
j:Integer;
begin
Arquivos:= TStringList.Create;
dir := Caminhoimportacao;
FileListBox1.Directory := dir;
FileListBox1.Mask := '*.txt';

for J := 0 to FileListBox1.Count - 1 do
Begin
AssignFile(e, dir+'\\'+FileListBox1.Items.Strings[J]);
Reset(e); //abre o arquivo para leitura;

While not eof(e) do begin
Arquivos.Clear;
Readln(e,linha);
ExtractStrings(['|'], [], PChar(Linha),Arquivos);

if Arquivos[0] = '18' then
begin
with QinsCapa do
begin
Close;
SQL.Clear;
SQL.Add('insert into pedidos(COD_EMP, DATA, COD_VENDEDOR, COD_FORNECEDOR, ' +
'VENDA, DESCONTO, TOTAL, FORMAPG, COD_PEDIDO, CANCELADO, MOTIVO, ROMANEIO, ' +
'CNPJ, OBS, OBS2, COD_CLI, FRETE_CONTA, END_ENTREGA, COD_TPV, COD_TRA, ' +
'VALOR_FRETE, VR_FRETE_NA_FATURA, DATA_ENTREGA)values' +
'(:COD_EMP, :DATA, :COD_VENDEDOR, null, null, :DESCONTO, :TOTAL, :FORMAPG, ' +
':COD_PEDIDO, null, null, null, :CNPJ, :OBS, null, :COD_CLI, :FRETE_CONTA, ' +
':END_ENTREGA, :COD_TPV, null, null, null, null)');
ParamByName('COD_EMP').AsInteger := 1;
ParamByName('DATA').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy',StrToDate(Arquivos[14])));
ParamByName('COD_VENDEDOR').AsInteger := StrToInt(Arquivos[10]);
ParamByName('DESCONTO').AsFloat := StrToFloat(Arquivos[40]);
ParamByName('TOTAL').AsFloat := StrToFloat(Arquivos[32]);

Qaux.Close;
Qaux.SQL.Clear;
Qaux.SQL.Add('select f.descricao from formas_pagamento f where f.codigo =:codigo');
Qaux.ParamByName('codigo').AsInteger := StrToInt(Arquivos[3]);
Qaux.Open;

ParamByName('FORMAPG').AsString := Qaux.FieldByName('descricao').AsString;
ParamByName('COD_PEDIDO').AsInteger := StrToInt(Arquivos[2]);
ParamByName('CNPJ').AsString := Arquivos[8];
ParamByName('OBS').AsString := Arquivos[37];

Qaux.Close;
Qaux.SQL.Clear;
Qaux.SQL.Add('select cod_cli from cliente where cnpj_cli =:cnpj');
Qaux.ParamByName('cnpj').AsString := Arquivos[8];
Qaux.Open;

ParamByName('COD_CLI').AsInteger := Qaux.FieldByName('cod_cli').AsInteger;
ParamByName('FRETE_CONTA').AsInteger := 0;
ParamByName('END_ENTREGA').AsString := 'P';
ParamByName('COD_TPV').AsInteger := StrToInt(Arquivos[4]);
ExecSQL;

IBTR.CommitRetaining;
end;
end;
End;
End;

ShowMessage('Ok');

Closefile(e);
End;