Gestion des mémos
adjena
Messages postés
41
Date d'inscription
vendredi 7 mai 2004
Statut
Membre
Dernière intervention
4 juin 2007
-
4 août 2004 à 15:24
cs_ManChesTer Messages postés 374 Date d'inscription vendredi 20 octobre 2000 Statut Modérateur Dernière intervention 15 janvier 2021 - 6 août 2004 à 00:44
cs_ManChesTer Messages postés 374 Date d'inscription vendredi 20 octobre 2000 Statut Modérateur Dernière intervention 15 janvier 2021 - 6 août 2004 à 00:44
1 réponse
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
6 août 2004 à 00:44
6 août 2004 à 00:44
procedure TForm1.Memo1Change(Sender: TObject);
var j:integer;
begin
with memo1 do
begin
if lines.Count>30 then
lines.Delete(30)
else
for j:=0 to lines.Count-1 do
if length(lines[j])>30 then
lines[j]:=copy(lines[j],1,30);
end;
end;
Bon Coding ....
ManChesTer.
var j:integer;
begin
with memo1 do
begin
if lines.Count>30 then
lines.Delete(30)
else
for j:=0 to lines.Count-1 do
if length(lines[j])>30 then
lines[j]:=copy(lines[j],1,30);
end;
end;
Bon Coding ....
ManChesTer.
