for i := 0 to memoRecept.Lines.Count - 1 do if memoRecept.Text[i]<>"" then count := count + 1; ShowMessage('Nb Lines count: ' + IntToSTr(count))
var I, aCount: Integer; begin for i := 0 to memoRecept.Lines.Count - 1 do if memoRecept.Lines[i]<>'' then acount := acount + 1; ShowMessage('Nb Lines count: ' + IntToSTr(acount)); end;
tu es proche de la solutionPour quelqu'un qui n'a jamais (mais vraiment JAMAIS) touché au DELPHI je peux en être fier alors :-)
richEditRecept.Lines.Add(trameCp); // ecriture dans le RicheditRecept Cpt_Evt := Cpt_Evt + 1;
label5.Caption := IntToStr (Cpt_Evt);
Voici comment j'ai fait
richEditRecept.Lines.Add(trameCp); // ecriture dans le RicheditRecept Cpt_Evt := Cpt_Evt + 1;
Pour quelqu'un qui n'a jamais (mais vraiment JAMAIS) touché au DELPHI je peux en être fier alors :-)Alors là oui tu peux être fier et je dis même bravo
peut être que tu devrais t'y mettre ^^Merci mais j'ai déjà suffisamment à faire avec les autres ^^
tu sembles avoir des facilitées