Discussion :

[Orc_Fayeh]

Bonjour a tous....
Alors mon problème est que je veux récupérer des chaînes de caractères à partir d'un TEdit mais lorsque l'utilisateur tape une apostrophe ça ne marche plus étant donné qu'en deplhi pour une apostrophe on doit en mettre 2..comment faire??
ps: j'utilise deplhi6

[Clorish]

ca ne viens pas de la.

Ne pas confondre analyse et execution.
A l'execution, le programme traite l'edit comme une chaine de caractere traditionnelle. il ne l'interprete pas. heureusement sinon on pourrait ecrire du code dans un edit pour faire des choses ... heuu .. pas claire

L'analyse se deroule quand Delphi traduit le code texte d'un programme en code binaire. Vu qu'il utilise le caractere apostrophe pour delimiter une chaine, il doit savoir faire la difference entre l'apostrophe text et l'apostrophe delimiteur. Une fois compilé, ta chaine dans ton programme est stockée sans double apostrophe.

[Orc_Fayeh]

en fait je veux récupérer un nom par exemple que j'utiliserai dans une requête SQL....par exemple

'select * from tableau where nom='''+editNom.text+'''';

et là s'il y a une apostrophe dans le nom ,ça me dit qu'il y a erreur que la chaîne ne se termine pas correctement???

[Clorish]

ok .. donc la on est pas dans le cadre du delphi mais dans le cadre du SQL.
et dans ce cas oui, on est en phase d'interpretation de code SQL, donc les apostrophes sont a pendre en compte.

La rapidement, je vois 2 solutions : Detecter la facon de coder les apostrophes dans une chaine SQL et :
- Soit saisir cette syntaxe directement dans l'edit
- Soit analyser la chaine caractere par caractere et si on detecte une apostrophe, alors corriger le codage du caractere.

sinon, il me semble que SQL comme pas mal de langages maintenant sont a double definition : cotes (") et apostrophes ('). En jouant sur l'une et l'autre on devrais pouvoir utiliser les apostrophes sans avoir a modifier la chaine sasie ....

[Clorish]

Code :

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

1
2
3
4
5
 
str :=Self.edit1.text;
sql :='';
for i := 1 to length() do
  if str[i] = '[apostrophe]' then sql := sql+'\[apostrophe]' else sql := sql+str[i];

ou bien :

Code :

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

1
2
 
sql :='select * from tableau where nom=[cotes]'+editNom.text+'[cotes]';

pour plus de lisibilité j'ai remplace les caracteres par [type de caractere]

[birdyz]

Salut

Sinon tu a la fonction QuotedStr.

Extrait de l'aide delphi :
Utilisez QuotedStr pour convertir la chaîne AnsiString S en une chaîne guillemetée. Un caractère simple (') est inséré au début et à la fin de S et les guillemets simples dans la chaîne sont répétés.

Birdyz

[Orc_Fayeh]

merci beaucoup
c'est bon ça marche...