Discussion :

[shell13010]

Salut a tous,

j'aimerais savoir comment je pourrais générer des caractères dans un Tedit

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
##
  ### puis il recommence la boucle 
apres ####
 ainsi de suite 
#####  //jusqu'a 17  caractere apres il s'arrete

sa doit etre simple mais je suis un peu fâcher avec les fonctions je galere grave en faite...

voila en esperant que vous me comprendrez.

A+

[khaled-benloucif]

essaye ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function GenChars(_Char: Char; _Count: Integer): String;
var I, J: Integer;
begin
 //result:= '';
 for I := 0 to _Count- 1 do
	begin
	 for J := 0 to I do
		result:= result+_Char;
	 result:= result+#13
	end
end;