-
Основы Delphi
- Основы программирования на Delphi
- Компоненты Delphi. Начинаем писать свои первые приложения на Delphi
- Основные принципы программирования в Delphi. Начинаем программировать самостоятельно
- Delphi и Microsoft Word
- Delphi и Microsoft Excel
- Delphi и Microsoft Access
- Delphi и OpenOffice Writer
- Delphi и OpenOffice Calc
- Создание игр на Delphi
- Игра Пристрели птичку
Delphi и MSOffice
Delphi и OpenOffice
Delphi и Интернет
Delphi и игры
Delphi Android
Школа программирования Delphi
Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.
Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!
| Главная » Уроки Delphi » Основы Delphi » Основные принципы программирования в Delphi. Начинаем программировать самостоятельно |
 Слово while переводится как "пока". Это означает, что цикл будет выполняться до тех пор, пока будет выполняться условие. У цикла While нет переменной счетчика, а есть только условие. Если мы хотим иметь счетчик, то мы должны объявить переменную и самостоятельно увеличивать ее во время выполнения цикла. В общем виде цикл While выглядит следующим образом: while условие do действие Такой цикл выполняется до тех пор, пока указанное условие возвращает истину. Сразу же рассмотрим пример: Код var index:integer; begin index:=0; while index<10 do index:=index+1; end; В этом примере мы объявляем переменную index. В первой строке кода присваиваем ей значение 0. После этого запускается цикл. В условии записан код - index<10. Это означает, что будет выполняться следующее действие (index: =index+1), пока переменная index меньше 10. В данном случае в качестве счетчика используется переменная index и цикл выполняется, пока верно условие. В отличие от цикла for, этот цикл не увеличивает автоматически счетчик, поэтому мы должны это сделать самостоятельно. Примечание. Если забыть про увеличение счетчика в цикле, то он может стать бесконечным и "подвесить" программу, так как условие окажется вечно истинным. В таком случае программа не сможет прервать цикл. В цикле while также выполняется только одно действие. Если мы захотим выполнить в цикле сразу два действия, то должны заключить их в операторные скобки begin и end. Давайте перепишем пример который мы делали в прошлом уроке Циклы for… to… do… в Delphi, но уже с использованием цикла while. Для этого добавим на нашу форму еще одну кнопку. У первой кнопки я поменял свойство Caption на «Цикл For To Do», а у второй – на «Цикл While». Для второй кнопки «Цикл While», создаем обработчик события OnClick и пишем следующее: Код procedure TForm1.Button2Click(Sender: TObject); var index:Integer; Sum: Integer; EndCount:Integer; begin Sum:=0; index:=0; EndCount:=StrToInt(EndEdit.Text); while index<EndCount do begin Sum:=Sum+index; index:=index+1; end; ResultEdit.Text:=IntToStr(Sum); end; В данном примере нужно обнулять не только переменную sum, но и index, чтобы начальное значение было равно нулю, и цикл шел от нуля до введенного значения. Следует также обратить внимание на то, что здесь нужно самостоятельно увеличивать переменную index (index:=index+1). Для этого данная строка добавлена в цикл. Она объединена с расчетом суммы при помощи операторных скобок begin и end. Если запустить программу и ввести число 5 в поле «Конечное значение», то результатом расчета будет 10. Если вспомнить пример из предыдущего урока и нажать на кнопку «Цикл For To Do», то там результат будет 15. Возникает вопрос, почему у нас получились разные результаты? В прошлом примере мы выполняли цикл от 0 до 5 включительно. Здесь же цикл будет выполняться от 0 и до того момента, пока выполняется условие index<5. Когда index=5, условие уже не выполнится, и расчет с цифрой 5 не будет производиться. Для решения этой проблемы можно поменять условие цикла на index<=5 (переменная index меньше или равна EndCount). В этом случае расчет с цифрой 5 также будет произведен. Или можно вводить цифру 6 вместо 5.  Рисунок. Пример цикла While в Delphi К уроку (статье) Циклы While в Delphi прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Циклы While в Delphi | |
Добавить Циклы While в Delphi в закладки: |
| Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery |
| Delphi и RadioGroup. Пример работы с группой компонентов RadioButton в Делфи |
| Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi |
| Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки |
| Delphi и ComboBox. Пример работы с ниспадающими списками в Делфи |
| Delphi и TEdit. Пример работы со строками ввода в Делфи |
| Константы в Delphi. Объявление констант в Делфи |
| Управление циклами в Delphi. Операторы Continue и Break. |
| Delphi и CheckBox. Пример работы с CheckBox в Делфи |
| Delphi и TPanel. Пример работы с панелями в Делфи |
| Всего комментариев: 0 | |