В этом уроке мы познакомимся с одномерными массивами.
Массивом называется фиксированный упорядоченный набор элементов одного типа, снабженных индексами.
Чтобы было более понятнее, массивы — это вагончики основного поезда которые имеют свой порядковый номер.
var <имя массива>: array[интервал] of <тип>;
Чтобы было понятно, рассмотрим все это на конкретном примере. Создадим новый проект, кинем на форму Edit1 с вкладки Standart, Memo1 с той же вкладки, и Button1.
Теперь очистим Memo1.
И очищаем Edit1 старым способом, который упоминали в предыдущих уроках, и изменяем название кнопки.Теперь создайте событие OnClick на кнопке. Объявим массив с именем pro, интервалом от 1 до 3 и типом string. Да, и еще нам нужно объявить переменную i типа integer, она нам пригодиться позже.
procedure TForm1.Button1Click(Sender: TObject);
var pro: array[1..3] of string;
i:integer;
begin
…
Теперь присвоим массиву значения таким образом:
pro[1]:=’Первая строка’;
pro[2]:=’Вторая строка’;
pro[3]:=’Третья строка’;
А теперь выводим третий элемент массива в Edit1 , и все 3 элемента в Memo1:
Edit1.text:=pro[3];
for i:=1 to 3 do
Memo1.Lines.Add(pro[i]);
Так как в теле цикла выполняется всего одна строка, то можно опустить ключевые слова begin и end.
Строка Memo1.Lines.Add(mas
); при первом круге цикла добавит в memo первый элемент массива, так как переменная i равна 1. При втором круге переменная i равна 2 и строка Memo1.Lines.Add(mas[i]); добавит второй элемент массива. Точно так же и с третьим.
[DELPHI]procedure TForm1.Button1Click(Sender: TObject);
var pro: array[1..3] of string;
i:integer;
begin
pro[1]:=’Первая строка’;
pro[2]:=’Вторая строка’;
pro[3]:=’Третья строка’;
Edit1.Text:=pro[2];
for i:=1 to 3 do
Memo1.Lines.Add(pro[i]);
end;
А если вы хотите выполнить все это без цикла For, то это будет выглядеть так:
Memo1.Lines.Add(pro[1]);
Memo1.Lines.Add(pro[2]);
Memo1.Lines.Add(pro[3]);
Только это мучительный способ, если у вас к примеру элементов будет больше 100. Легче воспользоваться циклом :)
Ничего сложного :)