Incompatibilités Char et String

Question

J'ai un petit probl&#232;me quand je souhaites compiler cela :



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&#238;ne contenant Count caract&#232;res (7) ou &#233;l&#233;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&#224; ce qu'il me dit :



Unit1.pas(45): Types incompatibles : 'Char' et 'String'



Donc pouvez-vous m'aider &#224; convertir cela ?



Ou plus pr&#233;cis&#233;ment, je cherche le moyen de supprimer le dernier caract&#232;re.

Car celuic-i me rajoutes tout le temps le caract&#232;re "/" &#224; la fin de
l'adresse alors qu'elle n'y est pas d'origine, donc je cherche &#224;
supprimmer le dernier caract&#232;re.

Car si le lien contient plusieurs / style : http://www.sitealpha.com/tests/ici/oui/la

ben avec ma mani&#232;re il ma tout me supprimer, donc je chercher le moyen de supprimer juste le dernier caract&#232;re, s'il vous plait.



Merci d'avance

Cirec · Answer

Salut
la solution est :
      if St[i]='/' then St[i]:=' '; //Remplace le '/' par le '' | L'ERREUR EST ICI |
           c'est presque la m&#234;me sauf qu'il y a un espace entre les ''

jlen100 · Answer

salut,

si tu veux supprimer le caractere plutot que remplacer  par un espace utilise la fonction delete:

while pos('/',st)<>0 do delete(st, pos('/',st),1;

si c'est uniquement le dernier caractere

fait

if st[length(st)]='/' then delete(st,length(st),1);



@+

jlen

f0xi · Answer

procedure TForm1.Button1Click(Sender: TObject);

 var

   St : String;

   i  : integer;

 begin

   st := ParamStr(ParamCount);

  if pos('xyz://',St) = 1 then begin

     ShowMessage('L''url contient bien le terme "xyz://"');

    i := Length(St);

    if st[i] = '/' then dec(i);

    Edit1.Text := Copy(St, 7, i);

   end else

     ShowMessage('L''url ne contient pas le terme "xyz://"');

 end;


______________________________________________
try
  WhiteNight := Gloup(Kawa);
exept
  on GloupOverFlow do GoToWaterClosed;
end;

Incompatibilités Char et String

3 réponses

Votre réponse

Discussions similaires