Hi,
I have a Form which contains six TEdit component, i would like to check whether the TEdit field is empty or not, i can do it with the following code
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text<>'')and (Edit2.Text<>'') and (Edit3.text<>'')
and (Edit4.Text<>'')and (Edit5.Text<>'') and (Edit6.text<>'')then
ShowMessage('Edit field not empty ')
else
ShowMessage('Edit fieldempty ')
end;
is it possible to do it in another way, for example
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
If (TEdit(Sender).Text <>'') then
ShowMessage('Edit field not empty ')
else
ShowMessage('Edit fieldempty ')
end;