Discussion :

[sessime]

Salut,
Dernierement j'ai demandé une fonction permettant de supprimer les espaces dans une chaine de caractères et on m'avait proposé la fonction ANSIREPLACESTR mais malheureusement la fonction n'est pas disponible dans mon DELPHI 5 alors je voudrais savoir si la fonction existe ou c'est dans une autre version de DELPHI aqu'elle est disponible.
Merci et à plus............

[Pascal Jankowski]

Il te suffit de la coder toi-même, je pense que de la façon suivante cela devrait convenir :

Code :

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

1
2
3
4
5
6
7
8
9
10
function AnsiReplaceStr(s,src,dest: string): string;
var l,p: integer;
begin
  l:=length(src);
  repeat
    p:=pos(src,s);
    if p>0 then s:=copy(s,1,p-1)+dest+copy(s,p+l,length(s));
  until p=0;
  result:=s;
end;

utilisation :
chaine_resultat := AnsiReplaceStr('FAGAH','A','UU');
doit donner FUUGUUH avec cette procédure.

Cordialement

[sessime]

Je rappelle que je veux effacer les espaces contenus dans une chaine de carctère:
EXEMPLE :FAA AAA
Resultat :FAAAAA

[Pascal Jankowski]

Je rappelle que je veux effacer les espaces contenus dans une chaine de carctère:
EXEMPLE :FAA AAA
Resultat :FAAAAA

Tu peux te pencher un petit peu sur la procédure que je viens te donner et tu verras que la solution s'y trouve.

chaine_result := AnsiReplaceStr('FAA AAA',' ','');
te donnera FAAAAA

Est-ce que tu prends le temps de tester ce que l'on te donne

Cordialement