Создание своей процедуры

[kuzmich]

я пишу тестированную программу. создал свою процедуру для заполнения одного поля. но когда я прописовал команду в BitBtn1:

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Form2.Ank then begin Form3.Show else
MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
end;
end;

посматрите где ошибка и подскажите где ошибка.
а моя процедура такая:

procedure TForm2.Ank;
begin
fio.Text:='';
klass.Text:='';
minute.Text:='';
pred.Text:='';
teacher.Text:='';
voprese.Text:='';
end;

[Levhik]

Попробуй вот так:
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Form2.Ank then begin Form3.Show else
MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
end;
end;

function TForm2.Ank:boolean;
begin
if (fio.Text='')or
(klass.Text='')or
(minute.Text='')or
(pred.Text:='')or
(teacher.Text='')or
(voprese.Text='') then result:=false
else result:=true;
end;

[kuzmich]

Сообщение от Levhik

Попробуй вот так:
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Form2.Ank then begin Form3.Show else
MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
end;
end;

здеся у меня ошибка.

[Квэнди]

begin
if Form2.Ank then begin Form3.Show else
MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
end;

внимательно присмотритесь, ну глупость же написали....

if Form2.Ank then
   begin
      Form3.Show
      else  //Это явно не здесь должно быть. Внимательно следите за открытыми скобками...
         MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
   end;

[goblinyara]

if Form2.Ank then
   begin //хмм... а вы не находите, что begin здесь явно лишний???
      Form3.Show
      else  
         MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
   end;

Делать тогда уж надо вот так -

if Form2.Ank then
  Form3.Show
  else
    MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);

либо вот так, если уж нужен begin:

if Form2.Ank then 
  begin
     Form3.Show;
  end
  else
    MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);

[kuzmich]

Сообщение от Квэнди

begin
if Form2.Ank then begin Form3.Show else
MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
end;

внимательно присмотритесь, ну глупость же написали....

if Form2.Ank then
   begin
      Form3.Show
      else  //Это явно не здесь должно быть. Внимательно следите за открытыми скобками...
         MessageDlg('Введите все поле!', mtInformation, [mdOk], 0);
   end;

так и так дает ошибку. здесь разнецы нет в одну строчку написать или по одному колу в новой строки......

[Deight]

begin end убери.
#6 это не готовый пример дали, а подсказали где ошибка.

[goblinyara]

kuzmich у тебя else попал вовнутрь begin..end, то есть он относится не к оператору if..then..else, если б к моему коду предыдущему повнимательнее присмотрелся, увидел бы..