控件数组，控件动态感知

[Bob7946]

大虾们，那位知道如何动态感知控件？举个例子：我在窗体上有很多EDIT，我想验证每个的输入有效性，只用一个过程，怎样动态判断呢？要用控件数组吗？望给详尽解释。定然给分，不够再加，小弟谢过了先！

[Bob7946]

高手呢?

[长弓落日]

var myedit:array[0..10] of Tedit;
在myedit[i]建立时，指定不同的tag值,根据TAG值来判断。

[王集鹄]

//制片大人看招
function IsNumber(mStr: string): Boolean;
var
I: Real;
E: Integer;
begin
Val(mStr, I, E);
Result := E = 0;
end; { IsNumber }

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
if Controls[I] is TEdit then
if not IsNumber(TEdit(Controls[I]).Text){ 不合法 } then begin
{ 提示用户 }
TEdit(Controls[I]).SetFocus;
Break;
end;
end;

[王集鹄]

//制片大人看招
function IsInteger(mStr: string): Boolean;
var
I: Integer;
begin
Result := TryStrToInt(mStr, I);
end; { IsNumber }

function IsDate(mStr: string): Boolean;
var
Date: TDateTime;
begin
Result := TryStrToDate(mStr, Date);
end; { IsDate }

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
if Controls[I] is TEdit then
case TEdit(Controls[I]).Tag of
1: //数字
if not IsInteger(TEdit(Controls[I]).Text){ 不合法 } then begin
{ 提示用户 }
TEdit(Controls[I]).SetFocus;
ShowMessage('无效整数');
Break;
end;
2: //日期
if not IsDate(TEdit(Controls[I]).Text){ 不合法 } then begin
{ 提示用户 }
TEdit(Controls[I]).SetFocus;
ShowMessage('无效日期');
Break;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with TEdit.Create(Self) do begin
Parent := Self;
Left := 100;
Top := 10;
Tag := 1;
end;
with TEdit.Create(Self) do begin
Parent := Self;
Left := 100;
Top := 40;
Tag := 2;
end;
end;