unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Edit1: TEdit; Edit2: TEdit; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Déclarations privées } function WriteInMilli(str: string; MyTimer: integer): string; public { Déclarations publiques } end; var Form1: TForm1; pas: integer; implementation {$R *.dfm} function TForm1.WriteInMilli(str: string; MyTimer: integer): string; begin Timer1.Interval := MyTimer; Edit2.text := form1.Edit2.text + copy(Str, pas, 1); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Inc(pas); WriteInMilli('Ma grand mère fait du vélo..', 100); end; procedure TForm1.FormCreate(Sender: TObject); begin Edit2.Clear; end; end.
procedure TForm1.FormCreate(Sender: TObject); begin pas := 0; Edit2.Clear; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionunit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Edit2: TEdit; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Déclarations privées } function WriteInMilli(str: string; MyTimer: integer): string; public { Déclarations publiques } end; var Form1: TForm1; pas: integer; implementation {$R *.dfm} function TForm1.WriteInMilli(str: string; MyTimer: integer): string; begin Timer1.Interval := MyTimer; Edit2.text := Edit2.text + copy(Str, pas, 1); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Inc(pas); WriteInMilli('Ma grand mère fait du vélo..', 100); end; procedure TForm1.FormCreate(Sender: TObject); begin Edit2.Clear; end; end.