如何知道文本框里输入的是中文还是英文？DELPHI7的打印实现

Question

1、如何知道文本框里输入的是中文还是英文？2、我现在用的是DELPHI7，如果实现打印功能？要求有源代码。

Answer 1

1:
     i := 1;
　　leng := Length(str);
　　//计算字符串长度
　　while(i<=leng) do
    begin
　　  //判断是否是汉字，汉字占两行
　　  if (i and boolean(byte(str[i＋1]) and ＄80) then '含有汉字'
    end;
　　
2:建议用第三方控件:如dbgrideh,fastreport,reportmachine(据说是从fastReport改过来的)
3.没有源码

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; str:string;
begin
    str:=Edit1.Text;
    for i:=1 to Length(Edit1.Text) do
    begin
        if ord(str[i])>127 then
        begin
        showmessage('有汉字');
        break;
        end;
    end;
end;