Урок 6 - едномерни масиви
Представете си един влак, който има определен брой вагони. Всяка кола има номер и в рамките на всеки, номерирани автомобил може да съхранява информация. масив Дък изглежда по този начин, но той не тренира :) масив е написано там, където пишем обичайните променливи.
Синтаксис: Сега отворете Delphi и хвърля форма на бутона компонент. Етикет и Memo. Memo компонент е на 6-то място в раздела стандарт.
Memo компонент има свойство Lines. Тя е подобна на Надпис имота в компонента Label. Намери имот в инспектора на обекта и кликнете върху бутона с три точки:
В Лабел: Сега, за да донесе 3-те ценности в бележката. което трябва да се използва за връзка. От цикъла се изпълнява само една линия, можете да пропуснете ключовите думи започват и свършват.
Memo1.Lines.Add низ (УО [Ь]); по време на първия кръг цикъл добавя бележка първи елемент, тъй като променлива и е равно на 1. Във втория кръг на променлива и е равно на 2 и линия Memo1.Lines.Add (УО [Ь]); добавяне на втори елемент на масива. По същия начин, третия.
Общ изглед на програмата е: За контур изход на масива ще се извършва по такъв начин: Имаме много време, за да копирате и променяте номера на позиция, ако няма да има сто, но има и повече от хиляда! Цикълът също така помага да се справят с това, цялата стойност на двете линии.
С това завършва урока, но преди това, моля, имайте програмата, тъй като е необходимо в следващия урок.
Задачата за консолидация: Напълнете масив от 100 числа с помощта на линия за продукцията в бележка от 20, 50, 70 на масива се използва за линия и условия в нея.
Е, това е всичко! На добър час!
Ще се видим в следващия урок!
единица Unit1; интерфейс използва Windows, Съобщения, SysUtils, варианти, Уроци, графика, контроли, форми, диалогови прозорци, StdCtrls; Типове TForm1 = клас (TForm) btn1: TButton; mmo1: TMemo; lbl1: TLabel; процедура btn1Click (Sender: TObject); частен
Добавен (а): adex348 [държава]
Ходя на екскурзия неразбрани функцията на линия за точка той е кода вътре в контура с начална стойност, която те помолих, и добавяне на 1 всеки път, когато тя започва отново, докато достигне крайната си стойност (която също трябва да попитам). за задача цикъл трябва да изглежда: защото: = 1 до 100 се започне Mas [I]: = I; ако (УО [Ь] = 20) или (УО [Ь] = 50) или (УО [I] = 70) след това Memo1.Lines.add (InttoStr (УО [I]); друго продължават; край;
Добавен (а): Shik007 [държава]
За да направи втория бутон за програмата с кода, за да изчистите съдържанието на компонента Memo след приключване на работния цикъл. Тя изглежда така: процедура TForm1.Button2Click (Sender: TObject); започнем memo1.Lines.Clear; приключи;