widestring: charat(i) ?

[sakura]

Also ich kenne da keine Probleme. Folgender Code läuft ohne Probleme

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WC: WideChar;
  WS: WideString;
  I: Integer;
begin
  WS := '桜　の　空手';
  MessageBoxW(0, PWideChar(WS), 'no caption', 0);
  for I := 0 to Length(WS) do
  begin
    WC := WS[I];
    MessageBoxW(0, PWideChar(WideString(WC)), 'no caption', 0);
  end;
end;

......