Laufschrift mit Pascal erstellen

Computer: Software & Programmierung Delphi & Pascal
1

Guten Abend =)

Kann mir jemand sagen, wie ich in Turbo Pascal eine Laufschrift erstellen kann? Irgendeine Idee? :wink:

Danke & ein schönes WE,
Michael

2

Hallo, Michael!

Kann mir jemand sagen, wie ich in Turbo Pascal eine
Laufschrift erstellen kann? Irgendeine Idee? :wink:

  • Du musst den Laufschrift-Text einmal vorgeben. In einer Schleife gibst Du den Text aus, wobei bei jedem Schleifendurchlauf der erste Buchstabe von der Zeichenkette abgetrennt und an den Rest wieder angehängt wird:
    Lauftext := copy(Lauftext,2,length(Lauftext)-1) + copy(Lauftext,1,1);

  • Die Ausgabe muss natürlich bei jedem Schleifendurchlauf an die gleiche Stelle gesetzt werden

  • Damit man auch was lesen kann, musst Du Dir eine Verzögerung einfallen lassen (z.B. eine for-Schleife)

Ich hoffe das hilft Dir weiter.

Viel Erfolg!

Gruß Thomas

3

Dankeschön =)