Discussion :

[Claythest]

Bonjour tout le monde, existe-t-il une fonction déjà définie en delphi permettant de supprimer tous les espaces inutiles à la fin d'une String ?

[Denis69]

rtrim en Delphi7... Je sais pas si elle existait avant. Y a aussi LTrim pour ceux du début, et trim pour... les 2...

[Claythest]

Je travaille avec Delphi6 et apparemment rtrim n'existe pas. Par contre trim existe (et cela me suffit). Merci beaucoup Denis69

[Mercilius]

Essaie une procédure du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure EffEspacesFin(S: string);
 
   var
      Nb : integer;
      P  : PChar;
 
   begin
   if S = '' then exit;
   Nb:= 0;
   P := @S[length(S)];
   while (Nb < Length(S)) and (P^ <= ' ') do
      begin
      inc(Nb);
      dec(P);
      end;
   if Nb > 0 then delete(S,length(S)-Nb+1,Nb);
 
   (*
   while (Length(S) > 0) and (S[Length(S)] <= ' ') do delete(S,Length(S),1);
   *)
   end;

de memoire ca doit etre un truc comme ca !!!

voili
tiens moi au courant

@++

[Claythest]

Ben dis donc Mercilius, t'a répondu en même temps que moi !
Mais c'est bon, Denis69 m'a donné la bonne solution; mais merci quand même.

[Mercilius]

Je travaille avec Delphi6 et apparemment rtrim n'existe pas. Par contre trim existe (et cela me suffit). Merci beaucoup Denis69

Confirmation MERCI DENIS !!!

je connaissais pas ...
pour Delphi 5 je viens de faire une recherche de Trim et il y a aussi TrimLeft et TrimRight...

voilou

@++

[Claythest]

pour Delphi 5 je viens de faire une recherche de Trim et il y a aussi TrimLeft et TrimRight...

Exact, ces deux fonctions existent aussi sous Delphi6. Merci pour ta recherche Mercilius.