请问如何读取edit里的第一个字

Question

var
a:string;
begin
a:=copy(edit1.text,1,1) ;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=copy(edit1.text,1,1);
end;
不行？

Answer 2

如果是汉字,copy(edit1.text,1,2),一个汉字占两个字节.
最好写成
  if length(edit.text)>=2 then label1.Caption:=copy(edit1.text,1,2)
  else label1.Caption:='未输入汉字';

Answer 3

判断一下edit1.text[1]的ASC码值
如果〉127 就为汉字 第一个字就是copy(edit1.text,1,2);否则 第一个字就是copy(edit1.text,1,1);