«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

–абота с массивами в Delphi

ќбъ€вление массива
ћассив, как и люба€ переменна€ программы, перед использованием должен быть объ€влен в разделе объ€влени€ переменных.

¬ общем виде инструкци€ объ€влени€ одномерного массива выгл€дит следующим образом:

»м€: array [нижний_индекс. .верхний_индекс] of тип

им€ Ц им€ массива;
array Ц зарезервированное слово €зыка Delphi, обозначающее, что объ€вл€емое им€ €вл€етс€ именем массива;
нижний_индекс и верхний_индекс Ц целые константы, определ€ющие диапазон изменени€ индекса элементов массива и, не€вно, количество элементов (размер) массива;
тип Ц тип элементов массива.
 
ѕример:
temper:array[1..31] of real;
коef:array[0. .2] of integer;
name:array[1..30] of string[25];

¬ общем виде инструкци€ объ€влени€ двумерного массива выгл€дит так:

»м€: array[Ќижн€€√раница1..¬ерхн€€√раница1, Ќижн€€√раница2..¬ерхн€€√раница2] of “ип

»м€ Ц им€ массива;
array Ц слово €зыка Delphi, указывающее, что объ€вл€емый элемент данных €вл€етс€ массивом;
Ќижн€€√раница1, ¬ерхн€€√раница1, Ќижп€€√раница2, ¬ерхн€€√раница2 Ц целые константы, определ€ющие диапазон изменени€ индексов и, следовательно, число элементов массива;
“ип Ц тип элементов массива.
 
ѕример:
itog: array [1..12, 1..6] of integer

ѕри объ€влении массива удобно использовать именованные константы. »менованна€ константа объ€вл€етс€ в разделе объ€влени€ констант, который обычно располагают перед разделом объ€влени€ переменных. Ќачинаетс€ раздел объ€влени€ констант словом const. ¬ инструкции объ€влени€ именованной константы указывают им€ константы и ее значение, которое отдел€етс€ от имени символом Ђравної. ѕосле объ€влени€ именованной константы ее можно использовать в программе как обычную числовую или символьную константу. Ќиже в качестве примера приведено объ€вление массива названий команд-участниц чемпионата по футболу, в котором используютс€ именованные константы.

ѕример:
const
NT = 18;
team: array[1..NT] of string[SN];
 
ƒл€ того чтобы в программе использовать элемент массива, надо указать им€ массива и номер элемента (индекс), заключив индекс в квадратные скобки. ¬ качестве индекса можно использовать константу или выражение целого типа, например:
team [ 1] := '«енит';
d := koef[l]*koef[l]-4*koef[2]*koef[1];
ShowMessage(name[n+1]);
temper[i] := StrToFloat(Edit1.text);

≈сли массив не €вл€етс€ локальным, т. е. объ€влен не в процедуре обработки событи€, а в разделе переменных модул€, то одновременно с объ€влением массива можно выполнить его инициализацию, т. е. присвоить начальные значени€ элементам массива. »нструкци€ объ€влени€ массива с одновременной его инициализацией в общем виде выгл€дит так:

»м€:array [нижний_индекс..верхний_индекс] of тип = (список);

список Ц разделенные зап€тыми значени€ элементов массива.

ѕример:
a: array[10] of integer = (0,0,0,0,0,0,0,0,0,0);
Team: array[1..5] of String[10]=('«енит','ƒинамо','—партак','–отор','— ј');

ќперации с массивами

“ипичными операци€ми при работе с массивами €вл€ютс€:
Ц вывод массива;
Ц ввод массива;
Ц поиск максимального или минимального элемента массива;
Ц поиск заданного элемента массива;
Ц сортировка массива.

¬ывод массива

ѕод выводом массива понимаетс€ вывод на экран монитора (в диалоговое окно) значений элементов массива.

≈сли в программе необходимо вывести значени€ всех элементов массива, то дл€ этого удобно использовать инструкцию for.

ѕример:
const
NT = 5;
var
team: array[1..NT] of string[10] =('«енит','ƒинамо','–отор','—партак','— ј'
procedure TForml.ButtonlClick(Sender: TObject);
var
st:string;
i:integer;
begin
for i:=l to NT do
st := st + IntToStr(i)+ ' '+ team[i] + #13;
end;
 
¬вод (вывод) массива
ѕод вводом массива понимаетс€ процесс получени€ от пользовател€ (или из файла) во врем€ работы программы значений элементов массива.

ƒанны в массив можно вводить (выводить) с помощью компонентов {SITELINK-S118}StringGrid {/SITELINK}и {SITELINK-S119}Memo{/SITELINK}{SITELINK-S119} {/SITELINK}(вкладка Additional).


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

ѕример курсовой работы из 1 группы тем ѕример курсовой работы из 2 группы тем Ётапы проектировани€ базы данных ћеханизмы доступа к ƒЅ в Delphi ѕол€ набора данных в Delphi  омпонент StringGrid  омпонент Memo ѕередача массивов в процедуры и функции ќбзор палитры компонентов  омпоненты страницы Standard 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом