Textausgeben wie eine Schreibmaschiene?

[Gregor]

hallo, wie realisiere ich den eine textausgabe in einer memo (oder einem anderem komponent), aber jeder buchstabe bischen zeitverzögert? also wie eine schreibmaschiene.

habs mit der for-schleife versucht.

[Daniel B]

Hallo,

wo gibst Du denn den Text ein?
Man könnte ja den Text in einem Edit o.ä. eingeben und mittels Timer dann in der Memo anzeigen.

Grüsse, Daniel

[Luckie]

Delphi-Quellcode:

const
  MYTEXT = 'Hello world';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  i : Integer;
begin
  delay(500);
  for i := 1 to length(MYTEXT) do
  begin
    Memo1.Text := Memo1.Text+MYTEXT[i];
    Application.ProcessMessages;
    Delay(150);
  end;
end;