Schrift animieren

[Mikender]

Delphi-Quellcode:

procedure Ausgeben (Eingabe: String='Test');
var I:Integer;
begin
for I:=1 to Length(Eingabe) do
begin
Memo1.Text:=Memo1.Text+Eingabe[I];
Memo1.Refresh;
Sleep(350)
end;
end;

Damit kannst du einen Text wie "getippt" ausgeben