一个较费脑子的问题，给200分，急！(100分)

如何让一个label的capital每秒闪一个"_"
如一秒前是"200分";一秒后是"200分_"如此循环下去

那不简单,一个定时器,一个变量(也可不要)
用变量:如果真则加_,否则不加
不用:如果最后一个是_就去掉,不是则加

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s:string;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=label1.Caption;
label1.Caption:=label1.Caption+'_'
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=true;
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=s;
end;

end.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
//删除 Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s:string;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RightStr(label1.Caption,1)='_' then
//如果最后是_则删除
//用LeftBStr不用LeftStr是为了支持中文
label1.Caption:=LeftBStr(label1.Caption,Length(label1.Caption)-1)
else
//否则增加
label1.Caption:=label1.Caption+'_';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
//删除timer2.Enabled:=true;
end;

{删除
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=s;
end;
//}

end.

delphi6下的代码吗?

[][][8D][!]

楼上的代码可以了

到底用那个版本编的
我用D7编RightStr和LeftBStr出错

要引用什么???

太费脑子了 偶想不明白

谢谢。
这是我能给的

多人接受答案了。

to:nicy:
把D6下的RightStr和LeftStr改成D7下的RightBStr和LeftBStr试试；