Lauftext von rechts nach links

[Natcree]

Was muss ich machen wenn Der Textout in einem Label erscheinen soll ??

Habe mal das ausprobiert passiert aber nichts

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:String;
i:integer;
begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.canvas.textout(296+i*16,50,a[i]);
end;

[DeddyH]

Schau Dir mal den Wert von i im Debugger an, dann wirst Du merken, dass das so nicht funktionieren kann.

[Natcree]

Var i might not have been initialized. Welchen wert muss ich denn i geben ( inc(i); ) scheint ja denn nicht zu funtionieren

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