Discussion :

[Goundy]

Bonjour,
je n'arrive pas à modifier un caractère d'un Memo, il me dis qu'un objet constant ne peu pas être passé en paramètre en var, car je fais ceci:

Code :

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

1
2
3
procedure ma_proc(var caractère:char);//ici ma procedure
//....unpeu en bas je l'utilise
ma_proc(memo.Lines[LIGNE][CARACTERE]);

Il n'y a pas un autre moyen pour retoucher au caractère un par un? j'ai penser à prendre à chaque fois la ligne dans un tableau ensuite je la traite cracatère par caractere ensuite je la réecrit carrément mais c'est unpeu long alors je cherche un moyen plus directe.
merçi

[Goundy]

c'est bon j'ai plus se problème mais j'ai une question à propo des memo,
est-ce qu'il y'a une caractéristique qui dit qu'il n'y a plus de lignes dans un memo?
par exemple si j'écrit dans un memo:

Code :

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

1
2
3
4
nom
prenom
 
cool

et que je fasse une boucle:

Code :

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

while not( memo.Lines[num]='')

la boucle va quitter aprés le prénom alorq qu'il y'a encore une ligne écrite.
merci

[tourlourou]

Code :

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

procedure MaProc( var Source : string ; position : integer);

comme ça, tu pourras lui passer Memo1.Lines[x] comme var, et la position du caractère à changer

dans ton code, var concernait le caractère, sans avoir le droit de modifier la ligne !

[tourlourou]

Memo1.Lines.Count te donne le nombre de lignes

Code :

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

while num <= Memo1.Lines.Count do...

ou

Code :

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

for num := 1 to Memo1.Lines.Count do... // mais Lines[0..Count-1]

[Goundy]

Merci beaucoup