Skrivemaskine effekt

Hej,

Som jeg også sagde til dig på IRC, er det der lidt noget vrøvlekode . Her er mit bud på en løsning:

Opret en global variabel og kald den fx NextChar. Min liste over global vars ser sådan her ud nu:

var
  Form1: TForm1;
  NextChar: integer = 0;

Sæt din timers Interval til fx 100, og put det her kode i dens OnTimer event:

 Memo2.Text := Memo2.Text + Memo1.Text[NextChar];
 Inc(NextChar);

Det ser fint ud her . Du kan pille ved intervallet for timeren, for at bestemme hvor hurtigt din "skrivemaskine" skal skrive.


--
Mvh.

Kasper (TSW)
Webmaster

[Redigeret d. 09/08-04 15:38:25 af Kasper (TSW)]

var
s: string;
begin
i := 0;
for i:=1 to Length(memo1.text) do begin
Memo1.SelStart := i;
memo1.SelLength := i+1;
s:=memo1.SelText;
memo2.Text := memo2.Text+s;
s:='';
end;

Har dette kode smidt en i en timer
så skriver jeg "hej" i memo1 så skriver den : ejj i memo2

Hvis du vil bruge den kode, skal for løkken starte med 0 og memo1.selLength skal hele tiden være 1, da det kun er et tegn af gangen.

MvH

Stefan Svensson
http://fusket.frac.dk

Fin effekt.
Men efter den har skrevet det fra memo1 i memo2 begynder den at skrive noget lignende dette:

at%42#j5 Osv.

Kan ikke se hvordan funktionen er lavet præcis og er derfor ude af kontrol til at finde ud af hvordan det kan undgås. Er der nogle der ved hvad det er?




Shafh
Shafh@stofanet.dk
Theis F. Hinz

Min Storebror har altid sagt:
At lave en Amarmad er det samme som at blande mælk med fløde.

Så ved i det

Fin effekt.
Men efter den har skrevet det fra memo1 i memo2 begynder den at skrive noget lignende dette:

at%42#j5 Osv.

Kan ikke se hvordan funktionen er lavet præcis og er derfor ude af kontrol til at finde ud af hvordan det kan undgås. Er der nogle der ved hvad det er?




Shafh
Shafh@stofanet.dk
Theis F. Hinz

Min Storebror har altid sagt:
At lave en Amarmad er det samme som at blande mælk med fløde.

Så ved i det

Det er fordi den fortsætter med at tage næste tegn, selvom der ikke er flere. Du kan evt. stoppe den med:

 Memo2.Text := Memo2.Text + Memo1.Text[NextChar];
 Inc(NextChar);
 if (NextChar=length(Memo1.text)) then timer1.enabled:=false

MvH

Stefan Svensson
http://fusket.frac.dk