Delphi-PRAXiS
Seite 3 von 5     123 45      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Lauftext von rechts nach links (https://www.delphipraxis.net/177634-lauftext-von-rechts-nach-links.html)

baumina 25. Nov 2013 11:28

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.

DeddyH 25. Nov 2013 11:28

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.

Natcree 25. Nov 2013 11:33

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

DeddyH 25. Nov 2013 11:35

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))..

Natcree 25. Nov 2013 11:42

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;

baumina 25. Nov 2013 11:43

AW: Lauftext von rechts nach links
 
Die Zählervariable um den richtigen Buchstaben im Timer anzuzeigen darf definitiv nicht lokal sein.

Natcree 25. Nov 2013 11:53

AW: Lauftext von rechts nach links
 
Das heisst ich muss i hier hinsetzen richtig

Delphi-Quellcode:
var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

DeddyH 25. Nov 2013 11:56

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.

Natcree 25. Nov 2013 11:57

AW: Lauftext von rechts nach links
 
den Text gibt er trotzdem nicht aus ????

Kann mann nicht statt canvas.textout label1.caption ändern???

baumina 25. Nov 2013 11:59

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.
Seite 3 von 5     123 45      

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