Discussion :

[fredtheman]

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.

[fredtheman]

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

Code :

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

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.