Fórum Separar string com pipe #499991

ReadLn(txt, line);
if True then
  if (Pos('|0200|', line)) = 1 then
  begin
    fArq.Add(line);
    //fdquery....
  end;
  if (pos('|0000|', line)) = 1 then
  begin
    //fdquery....
    fArq.Add(line);
  end;
  if (pos('|0005|', line)) = 1 then
  begin
    //fdquery....
    fArq.Add(line);
  end;
  if (pos('|C460|', line)) = 1 then
  begin
    //fdquery....
    fArq.Add(line);
    flagCF := True;
  end
  else
  begin
    if flagCF = True then
      if (pos('|C490|', line)) = 0 then
        //fdquery....
        fArq.Add(line)
      else
        flagCF := False;
  end