Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure anim(str : string ; memo1: TMemo);
var
i:Integer;
x:String;
begin
  For i:= 1 to length(str) do
    begin
    Form1.Memo1.Text := (Form1.Memo1.Text +str [i]+'_');
    x := Form1.Memo1.Text;
    Application.ProcessMessages;
    Sleep(100);
    Form1.Memo1.Text:=copy(Form1.Memo1.Text,1,length(Form1.Memo1.Text)-1);
    end;
Form1.Memo1.Text:=  Form1.Memo1.Text + #13#10;
end;