Se connecter / S'enregistrer
Votre question

[Delphi] Remplacer un mot par un autre

Tags :
  • string
  • Programmation
Dernière réponse : dans Programmation
2 Décembre 2004 02:34:39

Salut je souhaiterai remplacer un mot exemple "alldonkey" par "Alex" !?

J'ai trouver :

St:='drlphipage';
for i:=1 to Length(St) do
if St='r' then St:='e';
Label1.Caption:=St;

mé cela remplace seulement une lettre et moi j'en voudrai 5 de preference ! Donc sa marche pas :p  j'ai essayer en remplcaer "integer" mais sans succes kelkun c comment faire ?

EDIT : Moi j'aimerai le faire dans un string de preference !

Autres pages sur : delphi remplacer mot

2 Décembre 2004 04:28:08

Si tu rencontres "alldonkey", tu voudrais qu'il soit substitué par "Alex" c'est ca ?
je comprends pas pourquoi tu utilises une boucle for, réexplique plus clairement avec un exemple concret parce que si c'est simplement remplacer, tu auras besoin d'une variable tampon, pas de boucle :-o
3 Décembre 2004 13:55:30

function ReplaceSub(str, sub1, sub2: String): String;
var
aPos: Integer;
rslt: String;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos <> 0) do begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1));
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;


Avec Delphi 6 et supérieur (j'en suis resté à D2 !), j'ai lu qu'il existe les fonctions :
AnsiReplaceText et AnsiReplaceStr
2 Janvier 2005 05:11:17

Thewolf, ta fonction est beuguée :-)

Essaye : ReplaceSub('Il faut toujours tester les fonctions qu''on troutrouve sur le net !!','trou','dé');

Voici une correction qui semble mieux fonctionner :

function Tform1.ReplaceSub(str, sub1, sub2: String): String;
var
aPos: Integer;
rslt: String;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos <> 0) do
begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1)-1);
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;

A++
TheCogitor
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS