eine blöde Frage

[theo]

Ich weiss nicht ganz, was der Sinn der Sache ist, aber man kann ja auch die Zahlen vergleichen (für dem BMP):

Code: Alles auswählen

  var UTF8Key: TUTF8Char;
    WC:Word;
begin
  UTF8Key := 'Ӝ';
//  UTF8Key := 'a';
  WC:=Word(UTF8Decode(UTF8Key)[1]);
  case WC of 32..255:
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end; 

Ohne Gewähr.

[Sieben]

Eigentlich gar kein 'Sinn der Sache' - ich habe nur gerade Code in einer alten Komponente von KeyPress nach UTF8KeyPress umgezogen und mich gewundert, was alles durch diesen alten Filter geht...

[Sieben]

Leicht veränderter Testaufbau:

Code: Alles auswählen

procedure TfrmMain.Button1Click(Sender: TObject);
var Str: string;
begin
  Str := 'abc';
  case Str of 'a'..'c':
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end;
end; 

Ergibt Gotcha, aber ebenso 'abd' - 'dbc' dann hingegen Nope.

Schreibe ich dagegen

Code: Alles auswählen

  case Str of 'a':

also ohne Range, lautet die Antwort erwartungsgemäß Nope.

Code: Alles auswählen

  Str := 'linux';
  case Str of 'lin'..'lix':
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end; 

wiederum ergibt Gotcha, erst 'lizux' dann Nope. Vielleicht liegt's an gestern abend, aber das scheint mir irgendwie kontraintuitiv...

[Sieben]

However, ranges are allowed, and are the equivalent of an

Code: Alles auswählen

if (value>=beginrange) and (value<=endrange) then  
  begin  
  end; 

In Ihrem Fall sieht es also so aus:

Code: Alles auswählen

var
  UTF8Key: TUTF8Char;
begin
  UTF8Key := 'Ӝ';   //#211#156
  case UTF8Key of #32..#255: // if (UTF8Key >= #32) and (UTF8Key <= #255) then
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end;
end;  

Und im letzten Falle also:

Code: Alles auswählen

  if (Str >= 'lin') and (Str <= 'lix') then

Ich schiebe es dann mal definitiv auf gestern abend - Danke!

[paweld]

@Sieben
Beispiel

Code: Alles auswählen

Str := 'linux';
  case Str of 'lin'..'lix':
    ShowMessage('Gotcha!');
  else
    ShowMessage('Nope...');
  end; 

lassen sich wie folgt aufschlüsseln:

Code: Alles auswählen

string              >  linux: #108 #105 #110 #117 #120
Beginn des Bereichs >  lin:   #108 #105 #110
Ende des Bereichs   >  lix:   #108 #105 #120

aber „lizux“ erfüllt die Bedingung nicht mehr, weil das dritte Byte außerhalb des Bereichs liegt.

Code: Alles auswählen

string              >  lizux: #108 #105 #122 #117 #120

[Sieben]

Nochmals vielen Dank, der 'fog of brain' hat sich etwas gelichtet mittlerweile.

[Warf]

Wenn man mit UTF-8 Charts arbeitet ist das einfachste die Charaktere in 32 bit codepoints zu übersetzen und dann einfach als Integers Handhaben. Das macht's viel einfacher.