Question

delphi如何获取字符的大小？？

例如：英文字母等于1个字节，中文汉字等于两个字节？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
ansiStr:AnsiString;

i,iLen: Integer;
begin
ansistr:=Edit1.Text;
iLen:=Length(ansistr);
for i:=1 to iLen do
begin
if (ByteType(ansistr,i)=mbSingleByte) then
Memo1.Lines.Add(ansistr[i]+' 是英文字符，占 1 字节。')
else if (ByteType(ansistr,i)=mbLeadByte) then
continue
else if (ByteType(ansistr,i)=mbTrailByte) then
Memo1.Lines.Add(ansistr[i-1]+ansistr[i]+' 是全角字符，占 2 字节。')
else
Memo1.Lines.Add(ansistr[i]+' 是其它字符。');
end;
end;

Answer 2

用sizeof函数。

追问

返回的都是一个“4”

Answer 3

你试试 Length()

追问

length()是获取字符串的长度，我要的是获取一个字符串字节大小。