用widestring，判断是否大于127
procedure TForm1.Button1Click(Sender: TObject);
var
str:widestring;
i:integer;
begin
str:='sd，。、f好呀';
for i:=1 to length(str)do
begin
if ord(str)>127 then
edit1.text:=Edit1.text+str;
end;
end;
我再补充两句，象BRAVE那样做看每个字符是否大于#127，然后如果大于的话
，再看这半个汉字是否是在str< #$a1 and str>#$a9 之间，一般来说这区间的
字符都是中文的全角标点符号，去掉之后就几乎可以去掉全角的非汉字字符了，不过
还有个别的字符，请查阅WINDOWS ME 的字符集，一看既知道了
例:
汉字由两个字节组成: 且第个字节的asc码大于128
function get_hz(str:string):string;
var i:integer;
begin
i:=1;
while I<=length(str)do
begin
if s>chr(127) then
begin
result:=result+str+str[i+1]);
i:=i+1;
end
else
result:=result+s;
i:=i+1;
end;
end;
上面的代码可能有点问题(是我随手写的没有测试)不过主要过程有了
其它的你自已改改就行了
