TRichEdit einzelne Buchstaben ausgeben?!

[Jonas]

Hallo. Ich wollte fragen ob es möglich ist in einem TRichEdit den Text den ich dort ausgeben will, Buchstabe um Buchstabe auszugeben?
Es soll also nicht direkt das komplette Wort dort stehen, sondern eben alle Buchstaben hintereinander dort eingefügt werden, dass es so aussieht als würde jemand diese *live* schreiben.
Geht das irgendwie?
MfG Jonas

[Die Muhkuh]

Jupp. z.B. bei Timer oder einer Schleife.

[edit]Irgendwo im Forum dürfte sogar schon was fertiges rumwuseln. Müsstest mal suchen.[/edit]

[fLaSh11]

Delphi-Quellcode:

procedure TypeString(RE: TRichEdit; s: String; wait: Word);
var
  i: integer;
begin
  for i := 1 to Length(s) do
    begin
      RE.Text := RE.Text + s[i];
      Sleep(wait);
      Application.ProcessMessages;
    end;
end;

Wenn du nicht willst, dass die Form immer kurz einschläft wärend des Wartens, nimm die Prozedur Delay anstatt Sleep. Der Code ist nicht getestet, dürfte aber klappen. Mit der Wartezeit ("wait") musste halt etwas rumexperimentieren.

//Edit: "type" als Prozedurenname ist etwas ungeschickt

[Jonas]

Ah, okay danke. Uff da hätte ich auch irgendwie selbst drauf kommen können
Werde ich dann gleich ma testen