[DELPHI] Проблема с командой Goto

[Mits]

Здравствуйте форумчане .
У меня проблема с командой goto
Как я описал

implementation
 label
  gotolabel,gotolabelwin,gotolabelend;

А сдесь ошибка

read (z);
      if (z<>4) then goto gotolabel
      else

ошибка label 'gotolabel' is not declared in current procedure

[Serge_Bliznykov]

судя по ошибке, метку нужно объявить в той процедуре, где Вы её пытаетесь использовать.

А зачем Вам вообще goto ?! Вас не учили, что это не кузявно?!

[Mits]

Учили ,но обойтись без него не могу
Да я понял что обявить нужно, также не получалось .Можно пример как ее обявить правельно

[Serge_Bliznykov]

Учили ,но обойтись без него не могу

пример кода, где Вы не можетесь обойтись дайте, подумаем вместе!

Да я понял что обявить нужно, также не получалось .Можно пример как ее обявить правельно

легко:

procedure TForm5.Button2Click(Sender: TObject);
label gotolabel;
var
   z : integer;
   f : file of integer;
begin

  gotolabel:
    Read(f, z);
    if (z<>4) then goto gotolabel
    else
       Read(f,z);

end;

[Mits]

Нам задали сделать игру на подобии миллионера. Надо чтобы при правильном ответе игра продолжалась а при неправильном ответе высвечивалось сообщение о то что вы проиграли и программа закрывалась.

writeln ('2+2= ?');
      read (z);
      if (z<>4) then goto gotolabel
      else

[type_Oleg]

Что-то не пойму, у вас оконное или консольное приложение.
Если оконное, то вот так можно

 if (z<>4) then 
  begin
   ShowMessage(' Hasta la vista, baby  ');
   Close;
  end
else  // продолжение

[Mits]

Консольное , но в консоле не интересно .Консольную версию я сделал .
Какая команда аналог консольной команды read .

[type_Oleg]

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

Какая команда аналог консольной команды read .

Полного аналога, наверное нет. Для ввода обычно используют компонент Edit
например

var otvet:string;
     z:Integer;
begin 
 otvet:=Edit1.Text;        // или так
 z:=StrToInt(Edit1.Text); // или так
// ....

Это имели ввиду ?

[Vad33]

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

Консольное , но в консоле не интересно .Консольную версию я сделал .
Какая команда аналог консольной команды read .

InputBox, InputQuery ?

[Mits]

Вот как возможно заменить сдесь read ?
showmessage ('Enter s if you want to start the game');
read (choos);
if (choos = start) then begin
writeln ('2+2= ?');
read (answer);