delphi - 如何用管道分隔字符串

Question

我有一行具有以下描述:“|0200|4|SALGADOS|||KG|00|19051000||||17|”

我想分离管道在数据库中保存数据的位置。

我错误地使用了 pos 函数。但我正在获取数据。

在 if then 中我会将数据插入数据库。

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

Answer 1

您还可以使用 TStringList:

lStringList := TStringList.Create;
lStringList.delimiter := '|';
lStringList.DelimitedText := '|0200|4|SALGADOS|||KG|00|19051000||||17|';

现在您可以使用 lStringList.Items[ index ] 访问每个字段

<小时/>

注意(来自注释):如果字符串中包含空格字符，请将 StrictDelimiter 设置为 true 以避免将它们视为分隔符。