Показать сообщение отдельно
  #14  
Старый 01.12.2011, 23:22
Kaktuz Kaktuz вне форума
Начинающий
 
Регистрация: 30.10.2011
Сообщения: 149
Репутация: 10
По умолчанию

Ругается на меня. Что не так?
Пишет что Integer и String несовместимые типы.
Глобальная переменная "n: integer;" остальные "String;".

Код:
procedure TForm1.Refresh;
var r, a: integer;
begin
Randomize;
r := random(16)+1;
if New[r] <> '0' then
  begin
  But[n]:=New[r];
  a:=But[n];
  Box[a]:='0';
Ответить с цитированием