Autor Téma: CharInSet - vytvorenie set  (Přečteno 395 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7424
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
CharInSet - vytvorenie set
« kdy: 17-11-2023, 20:40:37 »

Kompilátor ma otravuje touto hláškou
Citace
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?
Win11 64b, Delphi 12.2, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline vandrovnik

  • Padawan
  • ******
  • Příspěvků: 1586
  • Karma: 52
    • Verze Delphi: 11.3
Re:CharInSet - vytvorenie set
« Odpověď #1 kdy: 17-11-2023, 23:10:31 »
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;

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7424
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:CharInSet - vytvorenie set
« Odpověď #2 kdy: 18-11-2023, 11:28:52 »
Pomohlo. Ďakujem.
Win11 64b, Delphi 12.2, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.