Bonjour à tous

Je me hurte au problème suivant
j'ai une chaine quit vaut 'uebgse.bob'
J'aimerais supprimer les apostropes de cette chaine mais je ne trouve pas comment faire.

J'ai essayé avec AnsiReplaceStr(var,chr(27),'');
et d'autres méthodes mais rien n'y fait ...

Peut-être que la solution est devant moi mais je vois vraiment pas

Merci à tous ceux qui pourrons se pencher sur mon problème.

++

Filipe
__________________________________________________
[ Lien ] - Le site sur ogame de référence !
[ Lien ] - Le gén&#

Solution temporaire mais bon

temp:=var;
If AnsiPos('''', temp) > 0 then temp := Copy(temp, 2, length(temp));
If AnsiPos('''', temp) > length(temp)-2 then temp := Copy(temp, 0, length(temp)-1);




__________________________________________________
[ Lien ] - Le site sur ogame de référence !
[ Lien ] - Le gén&#

Essaie ceci:
AnsiReplaceStr(var,'''','')

Tu est sur que c'est chr(27) ?

Réponse acceptée !
function supprimer(const chaine: string):string;
var
  i : integer;
begin
  Result := '';
  for i:=1 to length(chaine) do
    if chaine[i] <> ''''then
      Result := Result + chaine[i];
end;


Sinon ceci fonctionne chez moi.

AnsiReplaceStr(var,'''','')
ne fonctionne pas ;)

mais ta fonction si, en gros tu reprend 'ma technique' (si je peux me permettre :P ) et tu l'appliques à toute la chaine :P

Merci ;)




__________________________________________________
[ Lien ] - Le site sur ogame de référence !
[ Lien ] - Le gén&#

Réponse acceptée !

Il faut faire attention à l'utilisation correcte de la fonction AnsiReplaceStr !

uses StrUtils;

var
  NewString, OldString: string;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OldString := 'uebgse.bob';
  NewString :=  AnsiReplaceStr(OldString, '''', '');
  { no problem, on obtient NewString = uebgse.bob }
  Edit1.Text := NewString;
end;

Bonne prog'

Réponse acceptée !
ChainePos !!!! regarde les sources.

S := '''blabla''';
NS := ChainePos('''',S,2);

ou sinon tout simplement :

S := copy(S,2,Length(S)-1);

Merci à vous 2 ;)

Pour la solution la solution à jappee, j'ai peut être omis var := .....
mais j'ai toujours marché sans oO

Pour la solution à foxi, elle est nikel pour tout faire en une ligne ^^
mais il faut juste vérifier la présence des apostrophes :P

Merci ;)
__________________________________________________
[ Lien ] - Le site sur ogame de référence !
[ Lien ] - Le gén&#

Réponse acceptée !
s := stringreplace(S,'''','',[rfReplaceAll]);

pouf.