Delphi 静态局部变量的替换方法

      

         以前一直以为Delphi不比C/C++没办法实现静态局部变量。今天在研究设计模式的时候突然想到，若是没有那单例模式如何实现？

        没有实现不了的可能，只有不动脑不动手的人。

        查查资料可以用如下办法实现：

   

procedure TForm1.SpeedButton1Click(Sender: TObject);{$j+}const myvar:integer=0;{$j-}begin    try      if myvar mod 2 = 0 then      begin        tbChart.Title.Text.Text:='电池数据分布图';        tbChart.Color := clWhite;  //      修改图表部分的背景色可以通过BackColor属性来实现：        tbChart.BackColor := clGreen;  //      此外，TChart还提供了渐变的背景支持，通过Gradient控制：        tbChart.Gradient.Visible := True;        tbChart.Gradient.Direction := gdFromTopLeft;        tbChart.Gradient.StartColor := clGreen;        tbChart.Gradient.EndColor := clYellow;      end      else      begin        tbChart.Title.Text.Text:='电池数据分布图';        tbChart.Color := clWhite;  //      修改图表部分的背景色可以通过BackColor属性来实现：        tbChart.BackColor := clGreen;  //      此外，TChart还提供了渐变的背景支持，通过Gradient控制：        tbChart.Gradient.Visible := True;        tbChart.Gradient.Direction := gdFromTopLeft;        tbChart.Gradient.StartColor := clYellow;        tbChart.Gradient.EndColor := clGreen;      end;      myvar:=myvar+1;    except      on e:exception do      begin          Application.MessageBox(PAnsiChar(e.Message),PAnsiChar(e.Message));      end;    end;end;

如上程序亲测有效。由于同时在研究图标TChart顺便写了几行TChart代码，不喜勿喷。