Посимвольный вывод текста

← →
Dest (2003-12-11 20:09) [0]

Подскажите пожалуйста как вывести текст, например в Edit, посимвольно, т.е. сделать эффект ввода с клавиатуры.
Делал так:
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
if edit2.text="123"then
begin
a:="12345" ;
Timer1Timer(i,a,sender);
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(i:integer;a:openstring;Sender: TObject);
begin
edit1.text:=edit1.text+a[i];
i:=i+1;
end;

Но ничего не получается. При нажатии на кнопку выводится только первый элемент "a",т.е."1", и таймер не запускается. При еще одном нажатии выводится тоже самое.

← →
mrcat © (2003-12-11 20:16) [1]

Так ты кликни в Object Inspector"е два раза на OnTimer и в созданной процедуре пиши что душе угодно )

← →
kryworut (2003-12-11 20:24) [2]

это работает

procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
q : LongInt;
begin
Edit1.Text:="";
For i:=1 To 255 do
begin
Edit1.Text:=Edit1.Text+"q";
q:=GetTickCount;
While GetTickCount<q+100 Do Application.ProcessMessages;
Edit1.Update;
end;
end;

← →
Тимохов © (2003-12-11 20:30) [3]

kryworut (11.12.03 20:24) [2]
Ты так делаешь обычно или это только предложние?

← →
jack128 © (2003-12-11 20:32) [4]

> kryworut (11.12.03 20:24) [2]

edit1.Update зачем? Итак ведь Application.ProcessMessages есть?

← →
Dest (2003-12-11 22:15) [5]

Наверное меня не доконца поняли. То, что предложил kriworut работает, но выводит только какую-то одну строку. А я пытаюсь сделать процедуру, которая выводит любую присланную ей строку.
Есть какие-нибудь мысли?

procedure TForm1.Timer1Timer( var i:integer;a:openstring;Sender: TObject);

А Sleep не подойдет?

Посимвольный вывод текста Найти похожие ветки