如何用pascal或任何编程语言实现字幕文本？

Question

我记得有一次在学校我们的任务是在pascal中编写一个字幕文本，这是一个从左到右移动的文本。我还记得我没有丝毫的线索如何做到这一点。如今我还不是一个优秀的程序员，并想问你们如何做到这一点 - 当然没有任何类型的库。

我想把任何字母放在数组值中，然后例如每秒将数组值向右移动一个位置。不知道那是不是一个好的“算法”。

你们有什么想法？

Answer 1

例如在python中我会这样做：

>>> L='ABCDEFGH'
>>> l=len(L)
>>> i=0
>>> while(i<20):
    print L[i%l:]+L[:i%l]
    i+=1

您只需将起始字母从左向右移动（尊重字母数量，这就是我取模数（％）的原因）并在另一侧移动字符串的其余部分。

你会得到：

ABCDEFGH
BCDEFGHA
CDEFGHAB
DEFGHABC
EFGHABCD
FGHABCDE
GHABCDEF
HABCDEFG
ABCDEFGH
BCDEFGHA
CDEFGHAB
...

希望我明白你的问题。

Answer 2

对于表单应用程序，我可以建议创建一个线程，使用指定的时间间隔将文本标签移动到x轴。