??? - Помощь студентам

torrtik · 21.04.2011, 18:11

procedure TForm36.Button1Click(Sender: TObject);
begin
if edit1.Text:='tokar'and edit2.Text:='123456'
then form1.showmodal and form36.Visible:=false
else
label3.Visible:=true;
end;
ошибка:[Error] Unit36.pas(38): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
Может поможет кто?

_-Re@l-_ · 21.04.2011, 18:18

Ловите и учитесь...

Код:

procedure TForm36.Button1Click(Sender: TObject);
begin
       if (edit1.Text = 'tokar') and 
          (edit2.Text = '123456') then
       begin
               form1.showmodal;
               form36.Visible:=false;
       end
       else  label3.Visible:=true;
end;

torrtik · 21.04.2011, 19:19

Пасиба, только 36 форма не исчезает((((((

21.04.2011, 18:11	#1
torrtik Пользователь Регистрация: 13.03.2011 Сообщений: 19	??? procedure TForm36.Button1Click(Sender: TObject); begin if edit1.Text:='tokar'and edit2.Text:='123456' then form1.showmodal and form36.Visible:=false else label3.Visible:=true; end; ошибка:[Error] Unit36.pas(38): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' Может поможет кто?

21.04.2011, 18:18	#2
_-Re@l-_ C++, Java Старожил Регистрация: 10.04.2010 Сообщений: 2,665	Ловите и учитесь... Код: `procedure TForm36.Button1Click(Sender: TObject); begin if (edit1.Text = 'tokar') and (edit2.Text = '123456') then begin form1.showmodal; form36.Visible:=false; end else label3.Visible:=true; end;`

21.04.2011, 19:19	#3
torrtik Пользователь Регистрация: 13.03.2011 Сообщений: 19	Пасиба, только 36 форма не исчезает((((((