Prob avec RichEdit
MasterNKZ
Messages postés
38
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
26 août 2004
-
9 sept. 2002 à 19:24
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 9 sept. 2002 à 21:35
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 9 sept. 2002 à 21:35
A voir également:
- Prob avec RichEdit
- Richedit delphi - Forum Delphi / Pascal
- Richedit ✓ - Forum Delphi / Pascal
- Delphi richedit - Forum Delphi / Pascal
- RichEdit - Forum Delphi / Pascal
- RichEdit ✓ - Forum Delphi / Pascal
1 réponse
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
9 sept. 2002 à 21:35
9 sept. 2002 à 21:35
Je ne connait pas de méthode toute faite, mais il est facile de réaliser une procédure qui le fait :
Procedure PositionneLigne(Riche:TRichEdit;Ligne:Integer);
Var i,c:Integer;
Chaine:String;
Begin
c:=1;
i:=1;
Chaine:=Riche.Text;
While (i<=Length(Chaine))And(c<Ligne) Do
Begin
If Chaine[i]=#10 Then Inc(c);
Inc(i);
End;
Riche.SelStart:=i-1;
End;
Cette procédure positionne le curseur en début de la ligne demandée ( la première ligne est la ligne 1 )
--- :sleepy) Nono du Moulin :sleepy) ---
Procedure PositionneLigne(Riche:TRichEdit;Ligne:Integer);
Var i,c:Integer;
Chaine:String;
Begin
c:=1;
i:=1;
Chaine:=Riche.Text;
While (i<=Length(Chaine))And(c<Ligne) Do
Begin
If Chaine[i]=#10 Then Inc(c);
Inc(i);
End;
Riche.SelStart:=i-1;
End;
Cette procédure positionne le curseur en début de la ligne demandée ( la première ligne est la ligne 1 )
--- :sleepy) Nono du Moulin :sleepy) ---
