У меня есть сетка меток 8x8, и мне нужно случайным образом выбрать некоторые из них (их имена label1..label64) и изменить их заголовки на ('X')
.
Может кто-нибудь предложить метод, как сделать это с Lazarus?
randomize;
for i:=0 to StrToInt(EditMS. Text) do
begin
x:=random(63)+1;
Label(x).caption:=('X');
end;