Добавление целого числа в название метки - PullRequest
0 голосов
/ 22 января 2019

У меня есть сетка меток 8x8, и мне нужно случайным образом выбрать некоторые из них (их имена label1..label64) и изменить их заголовки на ('X').

Может кто-нибудь предложить метод, как сделать это с Lazarus?

randomize;
for i:=0 to StrToInt(EditMS. Text) do
    begin
    x:=random(63)+1;
    Label(x).caption:=('X');
end;
...