Виведення масиву

Під виведенням масиву розуміється висновок на екран монітора (у діалогове вікно) значень елементів масиву.

Якщо в програмі необхідно вивести значення всіх елементів масиву, то для цього зручно використовувати інструкцію for, при цьому змінна-лічильник інструкції for може бути використана як індекс елементу масиву.

Як приклад на рис.1 приведено діалогове вікно застосування, яке демонструє ініціалізацію і процес виведення значень елементів масиву в полі мітки. Програма виводить пронумерований список футбольних команд. Слід звернути увагу, що для того, щоб список команд виглядав дійсно як список, властивості Label1.AutoSize потрібно привласнити значення False (привласніть властивості Label1.AutoSize значення True і подивитеся, як працюватиме програма). Текст програми приведений в лістингу 1.

Рисунок 1 Форму і діалогове вікно застосування Виведення масиву

Лістинг 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.

Дата добавления: 2014-01-04