Salut
De manière optimisé, je ne sais pas, mais de manière rapide (en nombre de ligne de code) tu peux faire :
Fonction NbLigne(Filename: string): integer;
var
SL: TStringList;
begin
...
Type: Messages; Utilisateur: rbh
Salut
De manière optimisé, je ne sais pas, mais de manière rapide (en nombre de ligne de code) tu peux faire :
Fonction NbLigne(Filename: string): integer;
var
SL: TStringList;
begin
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.