中英文、中英标点及数字按视觉长度分割

--中英文、中英标点及数字按视觉长度分割
unit TextSplitByVisualWidth;

interface

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

type
TVisualTextSplitter = class
public
{ 按视觉宽度分割混合文本
ASourceText: 待分割的源文本（中英/标点/数字混合）
AVisualWidth: 每个片段的目标视觉宽度（中文/全角符=2，英文/半角符=1）
返回值: 分割后的文本片段列表（需手动释放） }
class function SplitByVisualWidth(const ASourceText: string; AVisualWidth: Integer): TStringList;
private
{ 计算单个字符的视觉宽度 }
class function GetCharVisualWidth(const AChar: Char): Integer;
{ 判断是否为全角标点/符号 }
class function IsFullWidthPunctuation(const AChar: Char): Boolean;
end;

implementation

{ TVisualTextSplitter }

class function TVisualTextSplitter.GetCharVisualWidth(const AChar: Char): Integer;
begin
// 1. 中文字符（基本汉字区）→ 2单位
if (AChar >= #$4E00) and (AChar <= #$9FFF) then
Result := 2
// 2. 全角标点/符号 → 2单位
else if IsFullWidthPunctuation(AChar) then
Result := 2
// 3. 英文/数字/半角标点等 → 1单位
else
Result := 1;
end;

class function TVisualTextSplitter.IsFullWidthPunctuation(const AChar: Char): Boolean;
begin
// 覆盖常见全角标点/符号的Unicode范围
Result := (AChar >= #$FF01) and (AChar <= #$FF60) // 全角标点/符号区
or (AChar >= #$3000) and (AChar <= #$303F) // 中文标点/符号区
or (AChar >= #$FFE0) and (AChar <= #$FFEF); // 全角符号（￥、￠等）
end;

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

CurrentWidth := 0;
CurrentSegment := '';

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

// 新增当前字符会超宽度 → 保存当前片段，重置
if (CurrentWidth + CharWidth) > AVisualWidth then
begin
if CurrentSegment <> '' then
Result.Add(CurrentSegment);

CurrentSegment := ASourceText[I];
CurrentWidth := CharWidth;
end
else
begin
// 未超宽度，继续拼接
CurrentSegment := CurrentSegment + ASourceText[I];
CurrentWidth := CurrentWidth + CharWidth;
end;
end;

// 添加最后一个未完成的片段
if CurrentSegment <> '' then
Result.Add(CurrentSegment);
except
Result.Free;
raise; // 抛出异常，让上层处理
end;
end;

end.

--------------------------------调用-----------------------------
procedure TForm1.btnSplitClick(Sender: TObject);
var
SplitResult: TStringList;
I: Integer;
SourceText: string;
TargetWidth: Integer;
begin
// 测试文本（包含中文、英文、数字、全/半角标点）
SourceText := 'Delphi10编程：中文+英文+数字123，全角标点。半角标点,！';
// 指定目标视觉宽度为10
TargetWidth := 10;

// 执行分割
SplitResult := TVisualTextSplitter.SplitByVisualWidth(SourceText, TargetWidth);
try
// 显示分割结果
Memo1.Clear;
Memo1.Lines.Add(Format('源文本：%s', [SourceText]));
Memo1.Lines.Add(Format('目标视觉宽度：%d', [TargetWidth]));
Memo1.Lines.Add('————分割结果————');
for I := 0 to SplitResult.Count - 1 do
Memo1.Lines.Add(Format('片段%d：%s', [I+1, SplitResult[I]]));
finally
SplitResult.Free; // 必须释放，避免内存泄漏
end;
end;