lazarus字符串按指定的分隔符分割示例

字符串分隔可以用以下3个方法：
方法1、使用Split(推荐)
Split将字符串按照指定的分隔符分割成多个子字符串，并存储在一个字符串数组中。Split 在 FPC 中不是一个单独的功能，它应按以下方式使用：

procedure TVersionForm.FormCreate(Sender: TObject);
var
  Parts:TStringArray;
  i:Integer;
begin
  Memo1.Clear;
  Parts:='12.0,13.12;23.22,344,南山 深圳/工程'.Split([' ',',',';','/']);
  for i:=0 to Length(r)-1 do
  Memo1.Append(Parts[i]);
end;

方法2、使用 SplitString：

uses
  StrUtils; // 引入 SplitString 函数
 
procedure Example;
var
  InputStr: string;
  Parts: TStringArray; // 动态字符串数组
  i: Integer;
begin
  InputStr := 'apple,banana,orange';
  // 按逗号分割字符串
  Parts := SplitString(InputStr, ',');
 
  // 遍历结果
  for i := 0 to High(Parts) do
    ShowMessage(Parts[i]); // 依次显示 apple, banana, orange
end;

方法3、使用 TStringList：

uses

  Classes; // 引入 TStringList
 
procedure Example;
var
  InputStr: string;
  StringList: TStringList;
  i: Integer;
begin
  InputStr := 'apple,banana,orange';
  StringList := TStringList.Create;
  try
    // 设置分隔符并分割
    StringList.Delimiter := ',';
    StringList.StrictDelimiter := True;// 禁止空格处理
    StringList.DelimitedText := InputStr;
 
    // 遍历结果
    for i := 0 to StringList.Count - 1 do
      ShowMessage(StringList[i]);// 依次显示 apple, banana, orange
  finally
    StringList.Free; // 释放资源
  end;
end;

个人认为第1种方法最简洁灵活。