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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Title := TStrings(PerlRegEx1.SubExpressions[1]);
Quelqu'un a déjà vu ça et aurait une idée?

Merci.