秋·風

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;

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;

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;