AW: Lauftext von rechts nach links
Die Variable i hast du lokal definiert, so dass der Initialwert immer irgendwas sein wird. Durch inc(i) isser dann halt jedesmal irgendwas+1.
|
AW: Lauftext von rechts nach links
Wofür ist das i denn da? Ist eine lokale Variable dafür sinnvoll? Wenn Du eine solche nicht selbst initialisierst, dann steht da irgend etwas drin.
|
AW: Lauftext von rechts nach links
Hmmmmmm ???
Selbst wenn ich i:= 1; zu weise ändert sich nichts er intitialisiert i aber bei label1 ändert sich nichts er schreibt den Text out nicht |
AW: Lauftext von rechts nach links
An Position (312, 50) bzw. (328, 50) müsste aber das 'A' bzw. 'n' ausgegeben werden ('A' bei i = 0 und nach dem inc(i), 'n' bei i = 1 und auch nach dem inc(i))..
|
AW: Lauftext von rechts nach links
Hier mal der code Es ändert sich nichts
Delphi-Quellcode:
var
a:String; i:integer; begin a:='Anrede'; i:=1; if i > length(a)then begin timer1.Enabled:=false; exit; end; Label1.canvas.textout(121+i*16,30,a[i]); end; |
AW: Lauftext von rechts nach links
Die Zählervariable um den richtigen Buchstaben im Timer anzuzeigen darf definitiv nicht lokal sein.
|
AW: Lauftext von rechts nach links
Das heisst ich muss i hier hinsetzen richtig
Delphi-Quellcode:
var
Form1: TForm1; i:integer; implementation {$R *.dfm} |
AW: Lauftext von rechts nach links
Das wäre eine Möglichkeit. Du kannst sie auch als globale Variable unter implementation schreiben, oder Du machst ein privates Feld Deines Formulars daraus, oder Du erstellst Dir eine eigene Klasse für den Lauftext und deklarierst sie dann dort als privates Feld.
|
AW: Lauftext von rechts nach links
den Text gibt er trotzdem nicht aus ????
Kann mann nicht statt canvas.textout label1.caption ändern??? |
AW: Lauftext von rechts nach links
Wozu ein Label, wenn du eh auf den Canvas schreibst. Also entweder auf Canvas schreiben oder die Caption vom Label ändern :
Delphi-Quellcode:
label1.caption := label1.Caption + a[i];
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:10 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz