一个吉利分，88，帮我解决一个简单问题。

Question

在一个窗体上我有好多个Edit控件，在每个Edit控件中输入内容的时候，我都要判断输入字符的长度是否等于8，我如何写一个公用的事件，供不同的edit控件调用呢？大虾帮忙，着急啊！

Answer 1

你线选择当前所有的Edit控件
然后在[事件选择栏中]
选择同一个过程就可以了！

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
begin
    if JudgeEditLength(Sender as TEdit) then
        ShowMessage('OK');
end;function TForm1.JudgeEditLength(Sender: TEdit): boolean;
begin
    result := Length(sender.Text) = 8;
end;Edit2-Edit8的onChange都指定为Edit1OnChange；其他的68分呢？

Answer 3

procedure TForm1.addchar(Sender: TObject);
begin
  if length((Sender as TEdit).text)=6 then
    showmessage('ok');
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
  Form1.addchar(Sender);
end;end.