delphi - 右滚动文字

procedure TForm1.Timer2Timer(Sender: TObject);

const

{$WRITEABLECONST ON}

ScrollingText : string = 'This is right scrolling text ';

{$WRITEABLECONST OFF}

var

ScrollPosition: Integer;

begin

Label2.Caption := ScrollingText;

for ScrollPosition := (Length(ScrollingText) - 1) downto 2 do

begin

ScrollingText[ScrollPosition] := Label2.Caption[ScrollPosition - 1];

ScrollingText[1] := Label2.Caption[Length(ScrollingText) - 1];

end;

但是我建议不要使用可写常量，也不要使用for循环:

procedure TForm1.FormCreate(Sender: TObject);

begin

...

Label2.Caption := 'This is right scrolling text ';

end;

procedure TForm1.Timer2Timer(Sender: TObject);

var

S: String;

begin

S := Label2.Caption;

S := S[Length(S)] + Copy(S, 1, Length(S) - 1);

Label2.Caption := S;

end;

推荐分享