Typewriter effekt, text anzeigen wie bei schreibmaschiene...

[DXC]

Hallo,

Wisst Ihr wie mann einen Effekt machen kann dass ein satz in nem memo so erschein wie auf der Schreibmachschiene...
h
ha
hal
hall
hallo

Bitte nix mit delay, etc..

MFG
DXC

[christian.noeding]

Hi :)

Als schnelle Lösung könnteste ne Schleife bauen, die eine Zahl i (als Startwert wählst du die Länge eines Strings) dekrementiert. In der Schleife zeigst du dann den String minus i-Zeichen im Feld an. Durch die Schleife werden nun immer mehr Buchstaben angezeigt.

Wäre jetzt ne schnelle Lösung - geht bestimmt auch eleganter, aber es ist früh *g*


Folgende Delphi-Funktionen brauchst du dafür:

length() und copy() (Delphihilfe sagt alles darüber) *g*

ciao,
Christian

[yankee]

ich habe sowas in JavaScript *gg*.
Aber das hilft dir wahrscheinlich nicht.

Also am besten nimmst du sonst einfach einen timer. Denn ohne timer, ohne delay und sonstiges geht das eben einfach zu schnell.
Einfach eine globale Variable ToType:sting; anlegen und dann diesen qt in das ontimerevent:

Delphi-Quellcode:

if length(ToType) =0 then exit; //wenn es nichts zu tippen gibt, können wir es gleich lassen...
memo1.lines.Strings[memo1.lines.count-1] :=memo1.lines.Strings[memo1.lines.count-1] + ToType[1];
Delete(ToType, 0, 1);

Alles so aus dem Kopf geschriben, ich hoffe das ist so richtig...
Soll jedenfalls einfach das erste Zeichen aus ToType an die memo anhängen und dann das erste Zeichen aus dem string ToType löschen.