如何在字符串截取中避免分割到半个汉字(26分)

G

gongfs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-26

• #1

如何在字符串截取中避免分割到半个汉字

 

P

power255

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-26

• #2

字符串定义为WideString

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-26

• #3

判断一下是否是汉字
function ByteType(const S: string; Index: Integer): TMbcsByteType;
begin
Result := mbSingleByte; //默认为英文字符
if SysLocale.FarEast then //操作系统是亚洲版本
Result := ByteTypeTest(PChar(S), Index-1);
end;

 

M

man8888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-26

• #4

function Copy2(aStr: string; Index: integer; Count: integer): string;
var
ws: WideString;
begin
ws:= aStr;
Result:= Copy(ws, Index, Count);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= 'Hello老外们!';
ShowMessage(Copy2(Edit1.Text, 1, 7));
end;

 

G

gongfs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-26

• #5

多人接受答案了。