Incompatibilités Char et String

**architecte** · 04/12/2005, 20h16

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

**Hauwke** · 04/12/2005, 20h47

Bonjour,

Code :

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

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

Codialement,
Hauwke

**giloutho** · 04/12/2005, 20h48

Bonjour,

Au lieu de

Code :

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

if St[i]='/'

il faut mettre

Code :

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

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 :

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

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

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

Amicalement

**neilbgr** · 04/12/2005, 20h56

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)

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)

Dans l'aide de Delphi il y aune section consacrée à la gestion de chaines de caractères ( Copy(), Delete(), Pos(), ...)

Pour supprimer le dernier caractère d'une chaine :

Code :

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

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

Des petis soucis dans le code :

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