[artem_host]

Код:

unit outar_;
interface
Windows, Messages, SysOtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForml = class(TForm)
Buttonl: TButton;
Labell: TLabel;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
f Public declarations I
end;
var
Forml: TForml;
iiaplementation
{?R *,dfm)
const
NT = 5;
var
team: array[1..NT] of string[10] =
('Зенит1,'Динамо1,'Ротор1,'Спартак','СКА'I ;
procedure TForml.ButtonlClick(Sender: TObject);
var
st:string; // список команд
i:integer; // индекс, номер элемента массива
begin
// формирование списка для отображения в форме
for i:=l to NT do st :- st + IntToStr(i)+ ' '+ team[i] +• #13;
// вывал списка
Labell.Caption := st;
end;
end.

Админ: Пользуемся тегами при оформлении кода!

весь код