Problem: Label.Caption: Scrolling

[SvenLittkowski]

Hi.

Ich habe ein Formular mit einem Label darauf. Jenes Label besteht aus einem Satz.

Meine Absicht ist es, die Caption scrollen zu lassen. Ich habe eine String-Variable ("MyHelp") hinzugefügt, sowie eine Timer-Komponente, welche die folgenden Befehle ausführt:

Code:

 MyHelp:=JLabelHelp.Caption;
 MyHelp:=Copy(MyHelp,(StrLen(MyHelp)-1),1)+Copy(MyHelp,0,StrLen(MyHelp)-1);
 JLabelHelp.Caption:=MyHelp;

Im Grunde genommen nehme ich zu jeden zehntel Sekunde das letzte Zeichen der Caption von hinten weg und füge es vorne an. Auf diese Weise erreiche ich den Scroll-Effekt.

Die Fehlermeldung, die ich erhalte, ist die folgende:

Zitat:

Incompatible types: 'String' and 'PAnsiChar'.

Ich kann einfach den Wald vor lauter Bäumen nicht mehr sehen. Bedeutet, daß ich einfach die Lösung nicht finde, sosehr ich auch angestrengt darüber nachdenke, ist halt manchmal so. Und dabei bin ich so sicher, daß die Lösung eigentlich ganz einfach ist.

Bitte helft mir. Vielen Dank, und auch Danke dafür, daß Ihr Euch die Zeit genommen habt, meinen Thread sich durchzulesen.

[DeddyH]

Mach mal aus StrLen Length.

[SvenLittkowski]

Yip, das war's auch gewesen. Vielen Dank, DeddyH. So ein dummer Fehler...

Hoffentlich hilft mein Thread auch anderen mit ähnlichen Problemen...

[himitsu]

Abgesehn davon fängt die Char-Indizierung im String nicht bei 0 an. :warn:
Heißt also, daß das letze Zeichen einfach ignoriert und jeweils das Vorletzte nach vorne verschoben wurde.

Delphi-Quellcode:

MyHelp := JLabelHelp.Caption;
MyHelp := Copy(MyHelp, Length(MyHelp), 1) + Copy(MyHelp, 1, Length(MyHelp) - 1);
JLabelHelp.Caption := MyHelp;

[SvenLittkowski]

Ja, hatte ich bereits korrigiert. Vielen Dank.