Funktion für leftstr / rightstr etc mit WideStrings

[myicq]

Für die, die nicht in D2009 gestiegen sind:

Gibt es eine Funktion irgendwo für leftstr / rightstr etc, was mit Widestrings geht ?

Ich habe es nicht bei strutils, und finde auch nichts im TNT..

Mein Ziel:

Delphi-Quellcode:

   var
     a, b : widestring;

    begin
       a:=tntedt1.text;     //    中华人民共和国
       b:= leftstrw(a, 2);  //    中华           <<<< nur erste 2, aber nicht 2 byte
    end;