Рис.
5.1. Форма
и диалоговое окно приложения Вывод массива
Листинг 5.1.
Инициализация и вывод массива
unit
outar_;
interface
uses
Windows,
Messages, SysUtils, Variants,
Classes,
Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1
= class(TForm)
Button1:
TButton;
Label1:
TLabel;
procedure
ButtonlClick(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var
Form1:
TForm1;
implementation
($R
*.dfm}
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; // вывод списка Label1.Caption := st;
end;
end.