Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.09.2011, 15:00
timoneg timoneg вне форума
Прохожий
 
Регистрация: 30.08.2011
Сообщения: 14
Репутация: 10
По умолчанию Слегка запутался с массивом и компонентом стрГрид

Код:
Procedure TForm1.Button1Click(Sender:TObject);

Type mas=array[1..4,1..4] of Integer;

Var matr:mas; 

       i:Integer;   
       j:Integer;    

Begin
For i:=1 to 4 do
For j:=1 to 4 do
matr[i,j]:=StrToInt(StringGrid1.Cells[i,j]); 
For i:=1 to 4 do
matr[i,i]:=0;
For i:=1 to 4 do
For j:=1 to 4 do
StringGrid1.Cells[i,j]:=IntToStr(matr[i,j]);

End;

Возник вопрос - возможно ли сделать так, чтобы грид заполнялся сам рандомными числами, без участия пользователя, и если да, то как это оформить?
Ответить с цитированием
  #2  
Старый 04.09.2011, 15:07
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Код:
Randomize;
For i := 0 to StringGrid1.ColCount-1 do
  For j := 0 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[i,j] := IntToStr(Random(100));
Весь грид заполнится случайными значениями от 0 до 100.
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием
  #3  
Старый 04.09.2011, 15:28
timoneg timoneg вне форума
Прохожий
 
Регистрация: 30.08.2011
Сообщения: 14
Репутация: 10
По умолчанию

Спасибочки
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:22.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025