盒子论坛 v2.1

初学delphi不久，今天看到一个截取混合字符串的函数，我想把单字节拆分函数修改成拆分指定字数的多行字符串到TStringlist，但自己功力不够，如何循环切割呢？谢谢！！！

function odd_SubStr(s : AnsiString; len : Integer) : ansistring;
var
  w, r : widestring;
  i, p : Integer;
begin
  w := s;
  p := 0;
  for i := 1 to Length(w) do
  begin
    if p >= Len then
      Break;
    if Ord(w[i])>255 then  //遇到一个汉字被切割时的处理
      Inc(p, 2)
    else
      inc(p, 1);
    r := r + w[i];
  end;
  Result := r;
end;

ss:='回家wwewew啊圣诞节1212受打击啊时2323间的拿rtrtr手机回到家暗示大家撒谎5454545475到那时多久啊说的拿手机啥时tytytyyyty的话撒娇那就是到那时的骄傲和时间等哈健康很多手机tytytyty卡的时间看哈介绍客户大家好yuyuy54545代金卡说监督yy45454yy卡说健康的哈市即可获得454545健康汉口的哈萨克后';

按每行10个字符，拆分成多行数据到TStringlist。
----------------------------------------------
-

作者：

pcplayer (pcplayer)	★☆☆☆☆	-
	普通会员

2020/11/25 18:15:11

1楼：

你的问题很简单啊。现在的 Delphi 是 Unicode 支持的，因此不存在汉字英文的问题。比如：

S := 'Abc你好吗ABC' 就是 9 个字。你直接用 S[9] 就能取到最后一个字符。在这里，不会有一个汉字占2位的问题。一个汉字是一位，一个英文也是一位。

也就是说，碰到汉字，不需要切割处理。

你自己试试不就知道了？比如对上面那个 S，你这样测试：

for i := 1 to Length(S) do
begin
Memo1.Lines.Add(S[i]);
end;
----------------------------------------------
-

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2020/11/25 21:51:05

0楼：

直接用2009（含）之后的版本，支持unicode，不用考虑中英文，按所需长度分割即可。
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

wsywsywsy (初学)	▲▲△△△	-
	普通会员

2020/11/26 21:33:01

2楼：

谢谢楼上二位的回答。因为要考虑分割后，每行的字符串所占的宽度要基本差不多。一行10个数字和一行10个汉字所占位置的宽度相差一半了，由于应用的需要我只想到了单字节控制。有其他方法可以做到分割后，每行的字符串的所占的位置的宽度几乎差不许多吗？
----------------------------------------------
-

作者：

dbyoung (dbyoung)	★☆☆☆☆	-
	普通会员

2020/11/26 21:39:05

3楼：

GetTextExtentPoint32 函数可以获取到字符占用的宽度、高度。
----------------------------------------------
武汉天气不好

信息

登陆以后才能回复