Глобальная переменная сама обнуляется

[DIMMUA]

Ув. форумчане, хочу вас спросить, т.к. опыта у самого мало (да вообще, самоучка). Только недавно узнал, что использование глобальных переменных это плохо и нужно по возможности описывать их локально, или, если надо, в каждой процедуре описывать.

У меня программа, несколько форм, на Form1, в разделе var "igraet: Byte;". Дальше в этой форме я активно работаю с этой переменной (значение она принимает от 0 до 4). И потом, ну, скажем, по таймеру на Form6 срабатывает другая процедура, которой нужно знать значение этой переменной... и вот тут проблема, как оказалась, примерно 1 раз из 20-30 переменная передается уже "0". Т.е. на форме1, после всех манипуляций я пишу:

Memo1.Lines.Add(IntToStr(igraet)) - выводит 4, как и должно быть;
Form1.Timer1.Enabled:=True;

в обработчике таймера (интервал таймера короткий, если это важно 100-400 мс) стоим только "Form1.ProcZakaz;" И вот, в первой строчек этой ProcZakaz я пишу:

Memo1.Lines.Add(IntToStr(igraet)) - но получаю уже 0!;

Мне бы хотелось узнать, вообще, возможно ли такое? Переменная точно становиться 0, но хочу узнать, если грешить на Дельфи, то как защититься, а если это не Дельфи, то как такое происходит?

[Человек_Борща]

В этом и трабл глоб. переменных. Их нельзя контролировать.
Работают по принципу "Кто успел, тот и съел".

[Stilet]

Только недавно узнал, что использование глобальных переменных это плохо и нужно по возможности описывать их локально, или, если надо, в каждой процедуре описывать.

Вот так вот программисты и портятся...

Переменная точно становиться 0

Так ты выясни прежде всего где ей присваивается что-то.
И вообще зачем ты обращаешся к ней из другой формы.

[astecenko]

DIMMUA прочтите статью GunSmoker-а Что плохого в глобальных переменных?

[Utkin]

Ну собственно говоря не такая уже она и глобальная. Это переменная формы, а форм у него несколько.

DIMMUA прочтите статью GunSmoker-а Что плохого в глобальных переменных?

Он уже написал, что понял свои ошибки. Теперь их нужно отследить и исправить.

ТС, попробуй проставить бреакпоинты на те места, где твоя переменная приравнивается к нулю и прогони несколько раз свою прогу до наступления твоего случая.

[astecenko]

Utkin, не судите о содержании по названию. В статье Александр предлагает несколько вариантов решения и избегания потенциальных проблем с глобальными переменными. Возможно ТС выберет какой-то вариант. Как уже писал Stilet, не стоит портить программиста с профессионального "младенчества".

[Utkin]

Сообщение от astecenko

Utkin, не судите о содержании по названию. В статье Александр предлагает несколько вариантов решения и избегания потенциальных проблем с глобальными переменными. Возможно ТС выберет какой-то вариант. Как уже писал Stilet, не стоит портить программиста с профессионального "младенчества".

Я прочитал статью прежде чем написал свой пост.

[GunSmoker]

DIMMUA, покажи немного кода. Не очень понятно, переменная у тебя или поле объекта.

Если это глобальная переменная, то быстро отследить проблему можно так:
1. Переименуй её (чтобы компилятор поймал все обращения к ней).
2. Введи функцию GetIsPlaying и процедуру SetIsPlaying. Понятно, что они должны делать?
3. Все обращения к переменной, которые тебе укажет компилятор (из-за п.1), замени или на GetIsPlaying или на SetIsPlaying.
4. Установи точку останова внутри SetIsPlaying.
5. Запусти программу и следи, кто вызывает SetIsPlaying.

Это как быстрый фикс. Ну а вообще можно подумать насчёт улучшения кода.

[DIMMUA]

Спасибо всем за советы!
Буду сейчас следовать всеми приведенными советами. Я понял, что глобальные переменные "Кто успел, тот и съел". Я вот что хочу узнать - "Может ли Windows испортить мою переменную от того что она глобальная, а не локальная?" и, кстати, после прочтения статьи GunSmoker-а "Что плохого в глобальных переменных?" я решил создать тему, т.к. моих знаний хватило, чтобы поверхностно понять о чем речь.

Вот немножко кода, не знаю, поможет ли он вам:

Переменная играет, прнимает разные значение в зависимости от:
0 - ничего не играет
1 – играет музыкальный фон
2 – играет заказанная музыка
4 – играет заказанная клип

unit MusicProg;
interface
uses
  Kol, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ComObj, ActiveX, ExtCtrls, ShellAPI, idGlobal,
  CRC32, iniFiles, mmSystem, Math, ALProgressBar, Jpeg;
type
  TForm1 = class(TForm)
  private
    procedure ProcPlay(z: string);
    procedure ProcPlayFon(z: string);
    procedure Start;
    procedure ZakazLabel(z: string);
    procedure ProcOrder;
     { Private declarations }
  public
    procedure ProcCredit;
    { Public declarations }
  end;
var
  Form1: TForm1;
 igraet: Byte;
  implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
igraet:=0;
end;

procedure TForm1.Start;
begin
  Memo1.Lines.Add('Заказ = '+z);
  Memo1.Lines.Add('igraet было '= ' + IntToStr(igraet)); //было 0 или  1
Определяем расширение файла из переменной z (string)  и в зависимости от того, музыка или видео это, присеваем 2 или 4.
Memo1.Lines.Add('igraet стало '= ' + IntToStr(igraet)); //стало 2 или 4
Form6.WMP.URL := z; (компонент ActiveX, Windows Media Player)
Form6.WMP.controls.play; // отсылаем на воспроизведение
end;

Мигрируем на Form6
procedure TForm6.WMPPlayStateChange(ASender: TObject; NewState: Integer);
begin
  if (NewState = 3) then // если WMP играет, то…
  begin
    Form1.Timer1.Enabled := True; // запускаем Таймер, который будет двигать прогресс бар воспроизведения, интервал 1 с
    dlina := Trunc(Form6.WMP.currentMedia.duration);
    Form1.Memo1.Lines.Add('Длина = ' + IntToStr(dlina));
    Form1.Memo1.Lines.Add(Играет на Форме 6 ' + IntToStr(igraet)); // иногда, непонятно как и закономерность становиться 0
    if igraet = 4 then
      Form6.Show;
  end;

Вернемся на Forn1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Form6.WMP.playState = 3 then
  begin
    if igraet = 2 then
      ProgressBar1.Position := Trunc(Form6.WMP.controls.currentPosition);
  end
  else
  begin
    if igraet = 4 then
      Form6.Hide;
    Form1.Timer1.Enabled := False;
    ProgressBar1.Position := 0;
    igraet := 0;
  end;
end;

[Пепел Феникса]

"Может ли Windows испортить мою переменную от того что она глобальная, а не локальная?"

нет, портит её ваша же программа.