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;
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;

 

相关阅读 >>

Delphi firedac 另存json

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi wmi 取显卡gpu信息

Delphi 获取剪切板图像

Delphi 最简单的升级下载代码

Delphi 调用外部程序并等待其运行结束

Delphi 判断网络链接文件是否存在

Delphi tms web core tedit编辑输入框属性展示

Delphi 在消息窗口中显示进度条

Delphi xe10 android 界面设计-个人心得

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi - 右滚动文字