Convertir TStrings en string?

Bonjour

Nouveau problème de type:? Je finirai bien un jour par piger pourquoi Delphi demande de faire ce genre de manipulation.

Là, c'est un problème entre le composant TPerlRegEx qui semble renvoyer une string quand il trouve un pattern, et la fonction Format() qui attend un TStrings:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var Title : String; begin If PerlRegEx1.Match then begin //E2010 Incompatible types: 'string' and 'TStrings'   //SQL := Format('INSERT INTO books (title) VALUES ("%s") WHERE isbn="%s"',[PerlRegEx1.SubExpressions[1],FieldByName('isbn').Text]);   Title := PerlRegEx1.SubExpressions[1]; SQL := Format('INSERT INTO books (title) VALUES ("%s")',[Title]);

---

J'ai naïvement essayé ça, mais ça marche pas:

Code:

---

1 2	Title := TStrings(PerlRegEx1.SubExpressions[1]);

---

Quelqu'un a déjà vu ça et aurait une idée?

Merci.

Pfff, j'ai trouvé : j'avais créé une variable du même nom qu'une propriété de l'objet:oops:

Code:

---

1 2 3 4 5 6 7 8 9

With ASQLite3Query1 do begin SQL.Text := 'SELECT isbn FROM books WHERE title IS NULL';   //E2010 Incompatible types: 'TStrings' and 'string' //SQL := Format('INSERT INTO books (title) VALUES ("%s")',['test']);   SQLQuery := Format('INSERT INTO books (title) VALUES ("%s")',['test']); end;

---

Morale de l'histoire : faire attention au nom des variables. En cas de problème, vérifier qu'il n'entre pas en conflit avec un élément d'un objet environnant.