While do - Pascal

Формулировка задачи:

Как в условие после while записать текстовое выражение, при выводе которого в edit в действиях переменная типа integer будет увеличиваться на 1? Где ошибка?
var
  Form3: TForm3;
  i : integer;
  q : string;
 
  procedure TForm3.Button2Click(Sender: TObject);
begin
  i:=1;
while
 q :='Данные введены верно, вы можете перейти к расчёту зарплаты' do
begin Edit1.Text:=IntToStr(i+1)
end;
  end;
Заранее спасибо!

Код к задаче: «While do - Pascal»

textual
var
  Form3: TForm3;
  i : integer;
  q : string;
 
  procedure TForm3.Button2Click(Sender: TObject);
begin
  i:=1;
while (q ='Данные введены верно, вы можете перейти к расчёту зарплаты') do
begin Edit1.Text:=IntToStr(i+1)
end;
  end;

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ