★★★★★★★★多个EDIT共用一个EDIT的事件的问题？★★★★★★★★

Question

有多个EDIT。edit1....edit14.
希望当焦点移到不同的EDIT中。事件代码中的名字能够对印的变成出当前EDIT的名字。以下代码：If edit（这里怎么动态的变）.text<>'' THEN
      begin
   IF (strtoint(edit（这里）.text)>100) Then
      begin
    messagebox(handle,'输入越界！','错误',mb_ok+mb_ICONerror);
    edit14（这里）.setfocus;
         end;
      end;

Answer 1

if Sender=Edit1 then
 begin
   
 end
else if .......

Answer 2

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if (Sender as TEdit).Text then         // 就是这里了
  begin
    ...
  end;
end;

Answer 3

使用Edit的Name来判断就行了。比如'Edit1'='Edit'+'1'...

Answer 4

///////////with TEdit(FindComponent('Edit' + 'IntToStr(I))) do
(Sender as TEdit).Text;

Answer 5

TEdit(Sender).Text;
强制转换比AS 好