-
Основы 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. Начинаем программировать самостоятельно |
Цикл for… to… do… в Delphi оформляется следующим образом: for счетчик := начальное значение to конечное значение do действие; После слова for нужно присвоить какой-нибудь переменной начальное значение. Эта переменная будет использоваться в качестве счетчика выполнения цикла. После каждого выполнения действия этот счетчик будет увеличиваться на единицу, пока переменная не превысит конечного значения. В качестве счетчика, очень часто используют переменные с именами index или i, но некоторые специалисты считают, что и счетчикам нужно давать более понятные имена. В общем виде цикл выглядит так: Код var index:Integer; sum: Integer; EndCount:Integer; begin Sum:=0; for index:=0 to 5 do Sum: =Sum+ index; end; В этом примере объявляются две переменные index и sum типа "целое число". Сначала переменной sum присваивается значение 0. После этого запускается цикл, в котором переменная index будет изменяться от 0 до 5. Давайте рассмотрим поэтапно, что происходит в этом примере. 1. На первом этапе переменная index равна 0, sum также равна нулю, значит, будет выполнена операция sum:=0+0. Результат sum = 0; 2. На втором этапе index увеличена на 1, а значит, будет выполнено действие sum:=0+1. И мы получим результат sum = 1. 3. На третьем этапе index увеличена на 1 и уже равна 2, a sum = l. Значит, выполнится действие Sum: =1+2. Результат Sum = 3. 4. На четвертом этапе index увеличена на 1 и уже равна 3, a sum = з. Значит, выполнится действие sum: =3+3. Результат sum = 6. 5. Здесь index увеличена на 1 и уже равна 4, a sum = б. Значит, выполнится действие Sum: =4 + 6. Результат Sum = 10. 6. Здесь index увеличена на 1 и уже равна 5, a sum = 10. Значит, выполнится действие Sum: =5+10. Результат sum = 15. Заметьте, что мы не увеличиваем значение переменной index, используя для этого определенные команды. Значение увеличивается автоматически, потому что эта переменная объявлена счетчиком в цикле for. Давайте перенесем рассмотренный выше программный код непосредственно в программу, чтобы можно было убедиться в этом на реальном примере. Создаем новое приложение. На форме помещаем два компонента TLabel, два компонента TEdit и одну кнопку. Форма будущей программы показана на рисунке. Рисунок. Пример использования цикла Циклы for to do в Delphi Компонент Edit1 переименовываем в EndEdit, a Edit2 переименовываем в ResuitEdit. Заголовки надписей (свойство Caption компонентов TLabel) меняем на «Конечное значение» и «Результат». Заголовок кнопки меняем на «Подсчитать». Теперь, по нажатии на кнопку (обработчик события OnClick для кнопки, который генерируется, когда пользователь нажал на кнопке) пишем следующий код: procedure TForml.CalculateButtonClick(Sender: TObj ect); Код var index:Integer; sum: Integer; EndCount:Integer; begin Sum:=0; EndCount:=StrToInt(EndEdit.Text); for index:=0 to EndCount do Sum:=Sum+ index; ResuitEdit.Text:=IntToStr(Sum) ; end; В принципе, текст тот же самый. Единственная разница заключается в том, что цикл запускается, начиная от 0 до числа, которое мы введем в компонент EndEdit. В EndEdit содержится текст, а нам нужно превратить его в число, поэтому мы используем функцию StrToInt для преобразования строки в число. Эта функция работает так же, как и IntToStr, которая наоборот преобразовывала число в строку. Результат преобразования сохраняется в переменной EndCount. EndCount := StrToInt(EndEdit.Text); После этого запускается цикл, в котором переменная index будет изменятся от 0 до Значения EndCount (в котором находится число, введенное в EndEdit). for index:=0 to EndCount do Давайте запустим созданную нами программу и введем в строку Конечное значение число 5. После этого, если мы нажмем на кнопку, то в строке результата у нас должно появиться число 15. Здесь необходимо еще отметить то, что после цикла for будет выполняться только одно действие. Например, если мы захотим выполнить два действия подряд, то мы должны заключить их в скобки begin и end, как это показано в следующем примере. Код for index:=0 to EndCount do begin Sum: = Sum+Index; Sum:=Sum+l; end; Здесь на каждом шаге цикла sum увеличивается еще на единицу. Если мы попробуем написать так: Код for index:=0 to EndCount do Sum:=Sum+Index; Sum:=Sum+l; то выполняться в цикле будет только строка sum:=sum+index. Вторая строка sum:=sum+i выполнится только по окончании цикла. К уроку (статье) Циклы for… to… do… в Delphi прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Циклы for… to… do… в Delphi | |
Добавить Циклы for… to… do… в 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. Пример работы с панелями в Делфи |
Всего комментариев: 5 | |||
|