Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

[Lesson #5] Одномерные массивы

Тема в разделе Delphi, создана пользователем Search, 23 июн 2016.

Войдите для ответа
  1. Search Заблокирован

    Search
    Статус:
    Вне сети
    Сообщения:
    151
    Симпатии:
    11
    Регистрация:
    22.06.16
    Одномерные массивы - записываются туда же, куда мы записываем обычные переменные.

    Синтаксис:
    Код:
    var имя массива: array[интервал] of тип;
    Открываем Delphi, кидаем на форму

    - Button[1],
    - Label[1]
    - Memo[1]

    После нажатия на кнопку с тремя точками у Memo[1] появится редактор:

    Сотрите всё, что написано в редакторе и создайте событие OnClick на кнопке. Объявим массив с именем lolz, интервалом от 1 до 3 и типом string. Да, и еще нам нужно объявить переменную i типа integer, она нам пригодиться позже.

    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var lolz: array[1..3] of string;
    i:integer;
    begin
    ...

    Код:
    lolz[1]:='Первая строка';
    lolz[2]:='Вторая строка';
    lolz[3]:='Третья строка';

    Код:
    Label1.Caption:=lolz[2];
    for i:=1 to 3 do
    Memo1.Lines.Add(lolz[i]);

    Так как в теле цикла выполняется всего одна строка, то можно опустить ключевые слова begin и end.
    Строка Memo1.Lines.Add(lolz); при первом круге цикла добавит в memo первый элемент массива, так как переменная i равна 1. При втором круге переменная i равна 2 и строка Memo1.Lines.Add(lolz); добавит второй элемент массива. Точно так же и с третьим.

    Без цикла For вывод элементов массива осуществлялся бы таким образом:

    Код:
    Memo1.Lines.Add(lolz[1]);
    Memo1.Lines.Add(lolz[2]);
    Memo1.Lines.Add(lolz[3]);
     
    23 июн 2016 #1
Загрузка...
Похожие темы
  1. Search
    Ответов:
    0
    Просмотров:
    104
  2. Search
    Ответов:
    0
    Просмотров:
    83
  3. Search
    Ответов:
    0
    Просмотров:
    72
  4. Search
    Ответов:
    2
    Просмотров:
    114
  5. #Light
    Ответов:
    0
    Просмотров:
    59
Top