|
Что такое
динамический массив? Динамический массив есть контейнер, содержащий определенное
число данных, которые могут быть записаны либо извлечены для каких-нибудь с ними
действий. Проще говоря, это лимитированный список различных значений одной
переменной (Integer, String
и т.д.), каждый из которых можно затребовать простым указанием порядкового
номера. Зачем он нужен? как с ним работать? — читайте далее и всё поймете.
Прежде всего,
надо продекларировать наш массив (то бишь записать его название). Название
массива имеет такой вид:
<Имя_Массива>: Array[<область_определения>] of <Тип_переменных>
Идентификаторы Array
и of постоянны, так что их нужно указывать в
любом случае. Имя массива зависит только от вашей фантазии. Область определения
имеет вид [X..Y], где
первая величина — наименьшее значение числа определяемых параметров, вторая —
наибольшее. Заметьте, данное свойство указывается именно в квадратных скобках —
собственно значения X и Y
входят в область определения массива. Повторю, что эти значения
определяют именно порядковые номера хранящихся в массиве значений и
предназначены для их чтения («вытаскивания» из массива) посредством указания
порядкового номера. X и Y
могут быть только простыми числами. Так же они могут быть частями какого-либо
упорядоченного целого: например, можно указать [‘а’..’я’], и массив будет
состоять из тридцати трех значений (по числу букв алфавита).
Далее после
идентификатора of
указывается тип переменных, в котором хранятся данные в массиве. Если это
Boolean, то всякий параметр может иметь значение
только True или False. Если
Integer — то этот же параметр является простым числом,
и т.д.
Сейчас мы по
всем правилам продекларируем какой-нибудь массив:
EditArray: Array[1..5] of String
Наметанным
глазом можно прочитать здесь следующее: имеется массив с именем
EditArray, в котором хранится пять различных значений
типа String (текст). Кажется, всё правильно :). Но
этот массив пуст: в нем нет еще никаких данных. Сейчас мы используем его, чтобы
запомнить строковую информацию, содержащуюся в TEdit’ах
и, когда нужно, достать ее.
Выложите на
форму пять компонентов TEdit и две кнопки. Назовите их
GetBtn и ResultBtn. Чтобы
можно было отличать строки ввода друг от друга, измените им в редакторе свойств
параметр Tag: у Edit1 на
«1», у Edit2 на «2» и так далее вплоть до «5» у
Edit5.
//...
var
Form1: TForm1;
EditArray: Array[1..5] of String;
//...
//записываем информацию в массив
procedure TForm1.GetBtnClick(Sender: TObject);
var
i: integer;
begin
//перебираем все компоненты
for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
EditArray[TEdit(Components[i]).Tag]:=TEdit(Components[i]).Text;
end;
//читаем информацию из массива
procedure TForm1.SetBtnClick(Sender: TObject);
var
i: integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
TEdit(Components[i]).Text:=EditArray[TEdit(Components[i]).Tag];
end;
Теперь введите в Edit’ы
какой-нибудь текст и нажмите
GetBtn. Сотрите текст и нажмите
ResultBtn.
Ага! Вот
мы и поработали с декларированным массивом. Но надо иметь ввиду, что есть
и константированные массивы с изначально записанными значениями, которые
нельзя изменить. Такие массивы прописываются в разделе
const.
Они полезны, когда нужно выполнить множество низкоуровневых операций.
В одном
из последних выпусков журнала «Хакерспец» вебмастерам предлагался весьма простой
способ обозначить копирайт текстов своего сайта: менять некоторые русские буквы
на латинские, которые выглядят точно так же. (Чтобы, буде информацию все-таки
умыкнут, можно было воспользоваться этим отличием для подтверждения авторских
прав). Вот моя реализация данного совета с помощью констатированного массива.
Осчастливьте вашу форму компонентами
TRichEdit и
TButton,
по событию
OnClick последнего поставьте следующий код:
procedure TForm1.Button1Click(Sender: TObject);
const
RusSymbols: Array[1..10] of ShortString = ('а','с','о','р','х','А','С','О','Р','Х');
EngSymbols: Array[1..10] of ShortString = ('a','c','o','p','x','A','C','O','P','X');
var
i, position: integer;
Text: String;
begin
Text:=RichEdit1.Lines.Text;
repeat
//Массив состоит из десяти символов,
//поэтому цикл повторится 10 раз.
for i:=1 to 10 do begin
position:=pos(RusSymbols[i],Text);
if position>0 then begin
delete(Text,position,1);
insert(EngSymbols[i],Text,position);
end;
end;
until position<=0;
RichEdit1.Lines.Text:=Text;
end;
Закодируйте таким образом какой-нибудь текст и проверьте правописание
полученного в MS Word.
Теперь вы
знаете простейшие примеры работы с динамическими массивами.
Автор: Трофим Роцкий
| 
