Lauftext von rechts nach links

[Natcree]

Danke Baumina jetzt klappt es

Delphi-Quellcode:

begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.caption:= label1.Caption+ a[i];

Ist bloss die frage warum hat es nicht mit textout geklappt?????

[Natcree]

Warum startet er den Timer nicht mehr wenn ich ihn erneut aktiviere

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='';
timer1.Enabled:=true;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  a:='Anrede';
  inc(i);
  if i > length(a)then
  begin
  timer1.Enabled:=false;
  exit;
  end;
  Label1.caption:= label1.Caption+ a[i];
end;

[baumina]

Der Timer staret bestimmt, nur hast du vergessen i zurückzusetzen.

[Natcree]

Oh Ja alles klar Danke

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=-1;// Variable i zurücksetzten
label1.Caption:='';
timer1.Enabled:=true;
end;

Kann ich auch was anderes für i:=-1; schreiben sowas wie reset(i) oder so???

[baumina]

Zitat von Natcree:

Kann ich auch was anderes für i:=-1; schreiben sowas wie reset(i) oder so???

Da fällt mir spontan nix dazu ein.

[DeddyH]

Wem es Spaß macht:

Delphi-Quellcode:

procedure Reset(out Zahl: integer);
begin
  Zahl := -1;
end;

[Natcree]

Danke

Habe mal versucht ein Procedure draus zu basteln

Funktioniert nur nicht hmmmm Wo ist der fehler???

Delphi-Quellcode:

procedure Laufschrift(Text:string;timer:ttimer;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);
begin
Laufschrift('Hallo',timer2,label2.caption);
end;

[baumina]

Die Variable "Ausgabe" kennt die procedure Laufschrift nur lokal, alle Änderungen an der Variable werden nicht zurückgegeben. Zurückgegeben würde sie nur wenn du sie als var definierst (procedure TForm63.Laufschrift(Text:string;timer:ttimer;var Ausgabe:string); ) Allerdings kann man Label.Caption nicht als var-Parameter mitgeben.

Diese ganze Konstruktion ist etwas seltsam.

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

[Natcree]

Danke habe es jetzt so gemacht

Delphi-Quellcode:

procedure TForm1.Laufschrift(Text:string;timer:ttimer;la:Tlabel);
begin
  a:=Text;
  inc(i);
  if i > length(a)then
  begin
  timer.Enabled:=false;
  exit;
  end;
  la.caption:= la.caption + a[i];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=-1;
Label2.Caption:='';
Timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Laufschrift('Hallo',timer2,label2);
end;