CharInSet - vytvorenie set

[Stanislav Hruška]

Kompilátor ma otravuje touto hláškou

DataImport.pas(368): W1050 WideChar reduced to byte char in set expressions.  Consider using 'CharInSet' function in 'SysUtils' unit.

Podľa návodu (D12 - mám D11) som urobil nasledovné

Kód: Delphi [Vybrat]

1. procedure Foo;
2. var
3.   Mayset: set of '('..'{'; //  ; je označený ako chyba
4. begin
5.   Mayset := ['(', '/', '<', '[', '\', '{'];
6.  
7.   if CharInSet(Title[1], Mayset) then
8. //  if Title[1] in ['(', '/', '<', '[', '\', '{'] then   // pôvodné riešenie

Skompiluje sa to, ale oznam pretrváva.
Ako to má byť správne?

[vandrovnik]

Kód: Delphi [Vybrat]

1. var
2.   Mayset: set of '('..'{'; //  ; je označený ako chyba

Fungovalo by tohle?

Kód: Delphi [Vybrat]

1. var Mayset: TSysCharSet;

[Stanislav Hruška]

Pomohlo. Ďakujem.