如何用 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 轴移动文本标签。