procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
memo1.Clear;
for i:=1 to 500 do
begin
Memo1.Lines.add('je suis un âne');
end;
end;
end.
Retourner vers La tribune libre
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 0 invités