唉!!怎么办.

Question

元旦快乐,可我有一事相求.
我定义了一个子界，然后想edit.text中只能输入我定义的子界内容，为什么却总不行呢？
litt='a'..'z';
var
  cot:litt;
eidt1.text;=cot;
帮帮忙了。多谢

Answer 1

载edit1.keypress里面判断procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['a'..'z'] then
    showmessage('在子界内');
end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['a'..'z']) then
    key :=#0;
end;

Answer 3

因为DELPHI中数据类型有严格的定义，子界类型与string类型是不同的。
可以用以下方法实现：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['a'..'z']) then
    key :=#0;
end;