Каким окажется итог выполнения приводимого ниже фрагмента Delphi-модуля, если Panel1.Tag= 100, Panel2.Tag= 150, Panel3.Tag= 0?
- 0
- 1
- 2
- 250
- End;
- begin t0:= 0;
- var t0: byte;
- Edit1.Text:= IntToStr(t0);
- if Panel1.Tag > 0 then t0:= t0+1;
- if Panel2.Tag > 0 then t0:= t0+1;
- if Panel3.Tag > 0 then t0:= t0+1;
- procedure TForm1.Timer1Timer(Sender: TObject);
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.