主页 / 问题 / 1146745
Accepted
Артем Ливинов
Asked:2020-06-29 03:07:46 +0000 UTC2020-06-29 03:07:46 +0000 UTC

在旧的 Delphi 7 中是否有类似于 php explode 的函数来处理字符串并通过分隔符将它们拆分为数组？

  • 772

我承诺在 Delphi 7 上纠正一个项目，在那里我必须拆分来自网络的大量数据，以便将它们插入正确的位置。

当然，我已经做了一切copy pos，但事实证明，在项目中它占用了太多的代码空间。我的意思是我copy也pos曾经在一行中找到必要的片段并将它们复制到数组或所需的组件，一般来说，复制到哪里......

真的不是在第 7 个 Delphi 中像 php-shnogo 这样的功能爆炸了吗？这会将我编写的代码减少 2 倍......也许有什么？我希望代码更具可读性且尺寸更小。

строки

2 个回答

  1. 有几个选项可用于访问分隔字符串的各个元素。

    1. SplitString转换为字符串数组的函数
    uses
  SysUtils, StrUtils, Types;

var
  vList: TStringDynArray;
  i: Integer;
begin
  vList := SplitString('Один; Два; Три', ';');

  for i := Low(vList) to High(vList) do
    WriteLn(Trim(vList[i]));

  ReadLn;
end.
    1. 表示为字符串列表的DelimitedText类属性TStrings
    uses
  SysUtils, StrUtils, Classes;

var
  vList: TStrings;
  i: Integer;
begin
  vList := TStringList.Create;
  try
    vList.Delimiter       := ';';
    //vList.StrictDelimiter := True; //вроде с D2006
    vList.DelimitedText   := 'Один; Два; Три';

    for i := 0 to vList.Count - 1 do
      WriteLn(Trim(vList[i]));
  finally
    vList.Free;
  end;

  ReadLn;
end.
    • 3
  2. Best Answer

    根据链接-http://blog.ivru.net/ ?id=195有一个自写的函数explode，以此类推类似于php。

    procedure myExplode(sourceText: string; separator: string; var outMass: array of string; var outMassLen: integer);
var position,separatorLen: integer;
begin
  outMassLen:= 0;//Количеству элементов выходного массива присвоим 0(в любом случаи выходной массив будет содержать как минимум элемент с индексом 0, такой результат будет если разделитель не будет найден в исходном тексте вовсе)
  separatorLen:= Length(separator);//Определяем длину разделителя
  Repeat//Цикл с постусловием
    position:= Pos(separator,sourceText);//Пробуем найти позицию вхождения разделителя в исходный текст(или очередной фрагмент исходного текста)
    if (position <> 0) then//Если найдена позиция вхождения разделителя в исходный текст(или очередной фрагмент исходного текста)
    begin
      outMass[outMassLen]:= Copy(sourceText,1,position-1);//Добавим в массив участно
      sourceText:= Copy(sourceText,position+separatorLen,(Length(sourceText)-position-separatorLen+1));//Теперь исходный текст будет начинаться с следующего фрагмента
      Inc(outMassLen);//Увеличиваем значение на 1
    end;
  Until (position = 0);//Здесь условие выхода из цикла а не продолжения
  outMass[outMassLen]:= sourceText;//Добавим в массив последний участок или весь исходный текст если разделитель не был найден вовсе
end;

    仅当您突然使用它时，请注意其中元素数量的计算方式不同。

    该函数有 4 个参数：

    myExplode（sourceText：字符串；分隔符：字符串；var outMass：字符串数组；var outMassLen：整数）

    选项：

    1. 这是您要拆分的原始字符串
    2. 字符串分隔符（您拆分的依据）
    3. 使用此参数，您传递一个预先准备好的变量，结果数组将被写入其中
    4. 也是一个将返回结果的变量——数组中有多少个元素，或者更确切地说，它的索引是最后一个，你还需要在整数类型之前创建这个变量

    也就是说，我再次注意 php 中的差异，例如，explode("a|b","|") 将返回一个索引为 0 和 1 的数组，并且从数组中计数将显示 2。当使用我在delphi中指定的函数您还将获得具有相同索引的相同数组，只有outMassLen将包含值1而不是2（即outMass数组的结束元素的索引，您将其传递给指定的函数Delphi 作为第三个参数）。

    也就是说，根据你的问题：类似于PHP for Delphi的explode过程已经写好了：）如果你愿意，就用它，如果你愿意，写你自己的过程或函数。如果您不想放置和使用建议的爆炸程序，那么 Alex R. 也回答了您。

    • 2

相关问题