Alala, si vous trichez en plus !! :mrgreen:
En bidouillant avec les allocations
procedure SupprEspace(var Txt : string);
var i, j : integer;
Espace : boolean;
begin
j:=0;
Type: Messages; Utilisateur: mick605
Alala, si vous trichez en plus !! :mrgreen:
En bidouillant avec les allocations
procedure SupprEspace(var Txt : string);
var i, j : integer;
Espace : boolean;
begin
j:=0;
Merci pour le retour.
Il faut dire aussi que dans les zones "blanches", il n'y a qu'un test et une affectation, donc c'est assez rapide...
Ca me parait un peu lourd vos méthodes (récursivité, 2 while)...
Si j'ai bien compris, SupprEspace enlève les espaces en doubles, les espaces avant et après la chaine ?
J'aurais vu un truc du...
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.