Листинг 7.3

var

Form1: TForm1;

mas:array [0..5] of Integer;

i:integer;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

for i:=1 to 5 do

begin

mas[i]:=StrToInt(InputBox('Поэлементный ввод:',

'mas['+IntToStr(i)+']',''));

Label1.Caption:=Label1.Caption+IntToStr(mas[i])+' ';

Edit1.Text:=Edit1.Text+IntToStr(mas[i])+' ';

end;

for i:=0 to StringGrid1.ColCount-1 do

begin

StringGrid1.Cells[i,0]:=IntToStr(mas[i+1])

end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

for i:=1 to 5 do

begin

mas[i]:=Random(10);

Label1.Caption:=Label1.Caption+IntToStr(mas[i])+' ';

Edit1.Text:=Edit1.Text+IntToStr(mas[i])+' ';

end;

for i:=0 to StringGrid1.ColCount-1 do

begin

StringGrid1.Cells[i,0]:=IntToStr(mas[i+1]);

end;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Edit1.Text:='';

Label1.Caption:='';

for i:=0 to StringGrid1.ColCount-1 do

begin

StringGrid1.Cells[i,0]:='';

end;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Close;

end;

Пример 7.4

Приложение во время выполнения

Листинг 7.4

var

Form1: TForm1;

List1,List2:array[1..5]of integer;

List3:array[1..10]of integer;

i:integer;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

for i:=0 to 4 do

begin

List1[i+1]:=Random(100);

StringGrid1.Cells[i,0]:=IntToStr(List1[i+1]);

end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

for i:=0 to 4 do

begin

List2[i+1]:=Random(100);

StringGrid2.Cells[i,0]:=IntToStr(List2[i+1]);

end;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

for i:=1 to 5 do

begin

List3[2*i-1]:=List1[i];

List3[2*i]:=List2[i];

end;

for i:=1 to 10 do

begin

StringGrid3.Cells[i-1,0]:=IntToStr(List3[i]);

end;

end;

Дата добавления: 2015-07-10