中英文按视觉长度分割

--中英文按视觉长度分割
unit TextSplitHelper;

interface

uses
System.SysUtils, System.Classes, System.Character;

type
TTextSplitHelper = class
public
// 按指定视觉长度分割中英混合文本
// 参数:
// ASourceText: 待分割的源文本
// ATargetLength: 每个片段的目标视觉长度（中文字符计2，英文计1）
// 返回: 分割后的文本片段列表
class function SplitTextByVisualLength(const ASourceText: string; ATargetLength: Integer): TStringList;
private
// 计算单个字符的视觉长度
class function GetCharVisualLength(const AChar: Char): Integer;
end;

implementation

{ TTextSplitHelper }

class function TTextSplitHelper.GetCharVisualLength(const AChar: Char): Integer;
begin
// 判断是否为中文字符（Unicode基本汉字区）
if (AChar >= #$4E00) and (AChar <= #$9FFF) then
Result := 2 // 中文字符计2个长度单位
else
Result := 1; // 其他字符计1个长度单位
end;

class function TTextSplitHelper.SplitTextByVisualLength(const ASourceText: string; ATargetLength: Integer): TStringList;
var
CurrentLength: Integer; // 当前累计长度
CurrentSegment: string; // 当前拼接的文本片段
I: Integer; // 循环变量
CharLen: Integer; // 当前字符的视觉长度
begin
Result := TStringList.Create;
try
// 边界处理：目标长度≤0或源文本为空，直接返回空列表
if (ATargetLength <= 0) or (ASourceText.IsEmpty) then
Exit;

CurrentLength := 0;
CurrentSegment := '';

// 逐字符遍历源文本
for I := 1 to Length(ASourceText) do
begin
CharLen := GetCharVisualLength(ASourceText[I]);

// 如果添加当前字符后超过目标长度，则先保存当前片段
if (CurrentLength + CharLen) > ATargetLength then
begin
if CurrentSegment <> '' then
Result.Add(CurrentSegment);

// 重置当前片段和累计长度
CurrentSegment := ASourceText[I];
CurrentLength := CharLen;
end
else
begin
// 未超过长度，继续拼接
CurrentSegment := CurrentSegment + ASourceText[I];
CurrentLength := CurrentLength + CharLen;
end;
end;

// 添加最后一个未完成的片段
if CurrentSegment <> '' then
Result.Add(CurrentSegment);
except
Result.Free;
raise;
end;
end;

end.

----------------------调用--------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
SplitList: TStringList;
I: Integer;
begin
// 待分割的中英混合文本
const SourceText = 'Delphi10中文混合文本分割测试123456';
// 指定分割长度为8（视觉宽度）
SplitList := TTextSplitHelper.SplitTextByVisualLength(SourceText, 8);
try
// 输出分割结果
Memo1.Clear;
for I := 0 to SplitList.Count - 1 do
Memo1.Lines.Add(Format('片段%d: %s', [I+1, SplitList[I]]));
finally
SplitList.Free;
end;
end;