我写了一个procedure TForm1.Button7Click(Sender: TObject);
var str:string;
n: integer;
begin
str := ',';
n:= Length(str);
if n=1 then
//半角
else if n=2 then
//全角end;
var str:string;
n: integer;
begin
str := ',';
n:= Length(str);
if n=1 then
//半角
else if n=2 then
//全角end;
而且也有缺点,我没记错的话,在VB里汉字是一个字符的形式,delphi我没试过