3 Вопрос
синтаксис:
1 |
var имя массива: array[интервал] of тип; |
Теперь открываем Delphi и кидаем на форму компонент Button, Label и Memo. Компонент Memo находится на 6 месте на вкладке Standard.
Компонент Memo имеет свойство под названием Lines. Оно схоже со свойством Caption у компонента Label. Найдите это свойство в инспекторе объектов и нажмите на кнопочку с тремя точками: После нажатия на кнопку с тремя точками появится редактор: Сотрите всё, что написано в редакторе и создайте событие OnClick на кнопке. Объявим массив с именем mas, интервалом от 1 до 3 и типом string. Да, и еще нам нужно объявить переменную i типа integer, она нам пригодиться позже.
1 |
procedure TForm1.Button1Click(Sender: TObject); |
|
2 |
var mas: array[1..3] of string; |
|
3 |
i:integer; |
|
4 |
begin |
|
5 |
... |
Сейчас запишем в наши воображаемые вагоны массива значения:
1 |
mas[1]:='Первая строка'; |
2 |
mas[2]:='Вторая строка'; |
3 |
mas[3]:='Третья строка'; |
А сейчас выводим второй элемент массива в Label и все 3 элемента в Memo. В лабел:
1 |
Label1.Caption:=mas[2]; //Лабел отобразит содержимое второго элемента массива |
Теперь, для того чтобы вывести все 3 значения в Memo, нужно воспользоваться циклом For:
1 |
for i:=1 to 3 do |
|
2 |
Memo1.Lines.Add(mas[i]); |
|
Так как в теле цикла выполняется всего одна строка, то можно опустить ключевые слова begin и end. Строка Memo1.Lines.Add(mas[i]); при первом круге цикла добавит в memo первый элемент массива, так как переменная i равна 1. При втором круге переменная i равна 2 и строка Memo1.Lines.Add(mas[i]); добавит второй элемент массива. Точно так же и с третьим.