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

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
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