Как StringGrid может влиять на random ?

[suslik_]

function ra(v:integer):integer;
var
  x:integer;
begin
  repeat
    randomize;
    x := random(51);   // случайная карта из колоды
  until koloda[x] = 0;  // если 0 - карта еще в колоде, можно раздавать
  koloda[x]:=v;         // пометить карту как розданную игроку v
  result:= x;             // выдать номер карты
  Form1.StringGrid1.Cells[(x mod 13), (x div 13)]:=IntToStr(v);  // для наглядности
end;

Изначально StringGrid использовался в тестирование программы для отображения розданных карт. Программу доделал, все работает как надо и StringGrid мне больше не нужен, удаляю его и программа не пашет!(выдает неправильные данные, в результате всегда проигрыш). Проверил весь код, кроме этого куска к StringGrid больше нигде не обращаюсь, везде работаю только с массивом koloda[x]. Как StringGrid может влиять на random, или на функцию или на программу целиком?




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Smitt&Wesson]

Поведение странное, но теоретически никак. StringGrid только отображает инфу. Ищите ошибку в другом месте.

[Serge_Bliznykov]

1-я (принципиальная!) ошибка.
Randomize НЕ НАДО крутить в цикле!! (А в идеале его вообще один раз надо выполнить при запуске приложения. Например, на событие формы OnCreate

2-e. random(51) вернёт число от 0 до 50. поэтому последняя карта вообще никогда не будет роздана!

3-е. не злоупотребляйте глобальными переменными! А уж тем более, когда Вы их изменяете в процедуре/функции!
(я имею в виду массив koloda[] )

Но, главное. по сути, я абсолютно согласен с Smitt&Wesson - стрингрид никак не может влиять!
(ну, если только в другом месте программы Вы из стрингрида не читаете какие-то данные, разумеется!)
Ищите все места обращения к стрингриду (на чтение оттуда!) и исправляйте!

[Utkin]

4-е. Возможно где-то в обработчике СтрингГрида (например, клацание мышью) раньше проводились какие-либо манипуляции с колодой...

ЗЫ. А вообще логика странная. Как я понял вы игроков закрепляете за определенными картами, хотя по идее должно быть наоборот...

[suslik_]

Randomize НЕ НАДО крутить в цикле!!

Исправлю и учту на будущее

random(51) вернёт число от 0 до 50.

Искал ошибку методом "научного тыка" и менял различные данные, на самом деле у меня там "x := random(52);"

ЗЫ. А вообще логика странная. Как я понял вы игроков закрепляете за определенными картами, хотя по идее должно быть наоборот...

Обращение к функции выглядит так pl[i,j]:=ra(i) , так что карты тоже закрепляются за игроками, но если не помечать в колоде карты как розданные , то их можно раздать более одного раза, а помечать их как розданные определенному игроку удобнее чем просто розданные.

[suslik_]

Но, главное. по сути, я абсолютно согласен с Smitt&Wesson - стрингрид никак не может влиять!
(ну, если только в другом месте программы Вы из стрингрида не читаете какие-то данные, разумеется!)
Ищите все места обращения к стрингриду (на чтение оттуда!) и исправляйте!

Я полностью согласен с Serge_Bliznykov и Smitt&Wesson , влиять никак не должен, но реальность расходиться с моим мнением. Искал через поиск (Ctrl+F) где вообще есть StringGrid, он только объявлен в типах и в выше приведенном коде.

[suslik_]

Создал новый проект, и скопировал в него весь код (без StringGrid) все работает правильно. Очевидно какой то глюк delphi.

[veniside]

> Очевидно какой то глюк delphi

Да ну. Скорее очевидно, что у вас где-то обращение к неинициализированным данным, поэтому код работает по-разному. То, что он заработал в новом проекте, совсем не значит, что ошибка исправлена.