[Solved]Lazarus ProgrssBar throws error

[ncs-sniper]

Code: Pascal  [Select][+][-]

1. procedure TForm1.timer(moneymachine: Integer);
2. ...
3. case moneymachine of  //Set Variables for the moneymachine
4.       1:
5.       begin
6.         ProgressBar:=ProgressBar1;
7.         lbltime:=lbltime1;
8.       end;
9.   end;  

moneymachine param is not 1 in first call, therefore the ProgressBar variable is NOT initialized (assigned), and that results in an AV further in code where you use it.

[Mike.Cornflake]

Code: [Select]

  case moneymachine of  //Set Variables for the moneymachine
      1:
      begin
        ProgressBar:=ProgressBar1;
        lbltime:=lbltime1;
      end;
  end;
The code can step through this case without ProgressBar being defined.  If it's not defined, then the AV you describe will occur.

Two choices:

Code: [Select]

  case moneymachine of  //Set Variables for the moneymachine
      1:
      begin
        ProgressBar:=ProgressBar1;
        lbltime:=lbltime1;
      end;
      else
         Progressbar:=Progressbar2;  // or something!
  end;
Or

Code: [Select]

...
  If Progressbar<>Nil Then
      ProgressBar.Position:=ProgressBar.Min;

In all honesty, both should be performed.

[Littellittel]

OMG that should have been obvious . ok many thanks to all of you i will keep an eye on that next time and creat a fallback method .

Is there anyway to accept an answere or something?

Many thanks again

[Mike.Cornflake]

:-)  Glad we can help.

Is there anyway to accept an answere or something?

The generally accepted way is to edit the very first post and insert a "SOLVED" in the header.

The whole post can be also be locked (from the main Forum area), this is not usually done.

UPDATE:  @ncs-sniper: How do you identify your embedded your code as pascal code?  guessing this is a new feature since I've been away, looks useful...

[ncs-sniper]

Code: [Select]

[code=pascal]...

[Mike.Cornflake]

That easy!   Many thanks :-)

Mike