Lauftext von rechts nach links

[baumina]

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]

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]

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]

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]

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]

Die Zählervariable um den richtigen Buchstaben im Timer anzuzeigen darf definitiv nicht lokal sein.

[Natcree]

Das heisst ich muss i hier hinsetzen richtig

Delphi-Quellcode:

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

[DeddyH]

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]

den Text gibt er trotzdem nicht aus ????

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

[baumina]

Wozu ein Label, wenn du eh auf den Canvas schreibst. Also entweder auf Canvas schreiben oder die Caption vom Label ändern :    label1.caption := label1.Caption + a[i];