Lauftext von rechts nach links

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure Laufschrift(Text:string;timer:ttimer;var Ausgabe:string);
begin
  a:=Text;
  inc(i);
  if i > length(a)then
  begin
    timer.Enabled:=false;
    exit;
  end;
  Ausgabe:= Ausgabe + a[i];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  i:=-1;
  Timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
  s: string;
begin
  s := label2.caption;
  Laufschrift('Hallo',timer2,s);
  label2.caption := s;
end;