Incompatibilités Char et String

J'ai un petit problème quand je souhaites compiler cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var St:String; i, i2: integer; begin for I2 := 1 to ParamCount do St:=ParamStr(I2); if Copy(St,0,6)='xyz://' then //Copy renvoie une sous-chaîne contenant Count caractères (7) ou éléments en partant de St[0] begin ShowMessage('L''url contient bien le terme "xyz://"'); for i:=1 to Length(St) do if St[i]='/' then St[i]:=''; //Remplace le '/' par le '' | L'ERREUR EST ICI | Edit1.Text:=Copy(St,7,Length(St)); end else ShowMessage('L''url ne contient pas le terme "xyz://"'); end;

---

Voilà ce qu'il me dit :

Unit1.pas(45): Types incompatibles : 'Char' et 'String'

Donc pouvez-vous m'aider à convertir cela ?

Ou plus précisément, je cherche le moyen de supprimer le dernier caractère.
Car celuic-i me rajoutes tout le temps le caractère "/" à la fin de l'adresse alors qu'elle n'y est pas d'origine, donc je cherche à supprimmer le dernier caractère.
Car si le lien contient plusieurs / style : http://www.sitealpha.com/tests/ici/oui/la
ben avec ma manière il ma tout me supprimer, donc je chercher le moyen de supprimer juste le dernier caractère, s'il vous plait.

Merci d'avance

Bonjour,

Code:

---

Delete(Machaine, length(Machaine),-1);

---

Codialement,
Hauwke

Bonjour,

Au lieu de

Code:

---

if St[i]='/'

---

il faut mettre

Code:

---

if St[i]=#47

---

La valeur 47 etant la valeur ASCII du caractère /

Mais si c'est seulement la présence de ce caractère situé à la fin de l'expression, qui t'intéresse il y a plus élégant en utilisant une fonction que j'avais trouvé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function GaucheDuDernier(substr: string; s: string): string; {============================================================================} { fonction qui renvoie la sous chaine de caractère situèe à gauche de la } {dernière sous chaine substr } { ex: si substr = '\' et S= 'truc\tr\essai.exe' gauche renvoie truc\tr } {============================================================================} var s1:string; i:integer; begin s1:=''; for i:=1 to NbSousChaine(substr, s)-1 do begin s1:=s1+gauche(substr,s)+substr; s:=droite(substr,s); end; s1:=s1+gauche(substr,s); result:=s1; end;

---

Si la présence du caractère n'est pas systématique à la fin de l'expression, tester son existence et appeler la fonction le cas échéant :

Code:

---

if St[Length(St)] = #47 then St := GaucheDuDernier('/',st);

---

Amicalement

:arrow: Ne pas hésiter a utiliser la balise code dans les posts (ca préserve l'indentation et le code est d'un coup plus agréable a lire)
:arrow: Faire l'aide, voir des tutoriaux sur la manipulation du type string pour comprendre coment considérer une variable de type string (en l'occurrence, c'est un tableau de caractère (char) indicé à partir de 1)
:arrow: Dans l'aide de Delphi il y aune section consacrée à la gestion de chaines de caractères ( Copy(), Delete(), Pos(), ...)
:arrow: Pour supprimer le dernier caractère d'une chaine :

Code:

---

SetLength(LaChaine, Length(LaChaine)-1);

---

:arrow: Des petis soucis dans le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Button1Click(Sender: TObject); var St:String; i, i2: integer; begin // Le for est inutle dans ce cas //for I2 := 1 to ParamCount do // St:=ParamStr(I2); // Cela revient a faire ceci : St := ParamStr(ParamCount);   //if Copy(St,0,6)='xyz://' then //Copy renvoie une sous-chaîne contenant Count caractères (7) ou éléments en partant de St[0] // Le type string est indicé a partir de 1 donc : if Copy(St, 1, 6)='xyz://' then begin ShowMessage('L''url contient bien le terme "xyz://"'); // boucle for contreproductive car pour tous les / on passera la condition et c'est bien pas le but n'est-ce pas ? //for i:= 1 to Length(St) do // if St[i] = '/' then // St[i] :=''; //Remplace le '/' par le '' //Edit1.Text := Copy(St,7,Length(St)); // On peut simplifier cela en faisant : if Pos('//', St)=5 then Delete(St, 5, 1); // ou Delete(St, 6, 1); ShowMessage('L'URL complet sans le double / est :'+St); Edit1.Text := Copy(St, 6, Length(St)); // Pour afficher le reste de la chaine end else ShowMessage('L''url ne contient pas le terme "xyz://"'); end;

---

:arrow: Enfin et surtout, pourquoi les / se doublent-ils ???

Citation:

---

Envoyé par giloutho

Au lieu de

Code:

---

if St[i]='/'

---

il faut mettre

Code:

---

if St[i]=#47

---

La valeur 47 etant la valeur ASCII du caractère /

---

Faux. St[i]='/' est parfaitement autorisé.

Merci de ta correction Nono40, j'ai effectivement tort, c'est la deuxième partie qui déclenchait l'erreur.

Code:

---

then St[i]:='';

---

Bien sûr... intervention pertinente comme toujours !!!