Incompatible types beim Zusammensetzen von WideChars

[Shark99]

Eine zuverlässige Indizierung von WideString-Multibyte-Strings ist nicht möglich, da S[i] das i-te Element (und nicht notwendigerweise das i-te Zeichen) in S repräsentiert.

Das finde ich verwirrend.

Wenn man auf WideString per s[i] zugreift ist i immer das i-te Zeichen im s (so lange korrekte UTF16-Daten im S vorliegen).

D.h. bei einem string "ab"

UTF16: $61 00 $ 62 00

ist s[2] = $62 00 und nicht 00

[uligerhardt]

Hmmm... mit D2007 kompiliert das:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s1, s2: WideString;
begin
  s1 := 'abc';
  s2 := s1[1] + s1[2]; // fehler
end.

In dem Thema ist Varianz drin.

[himitsu]

Zitat von Shark99:

Wenn man auf WideString per s[i] zugreift ist i immer das i-te Zeichen im s (so lange korrekte UTF16-Daten im S vorliegen).

Nein. Surrogates bestehen aus 2 Zeichen (4 Byte).
Was in den "User defined character ranges" sich versteckt, dass weiß Keiner.

Ja, in Delphi fangen Strings bei 1 an, als Kompatibilität auf den ersten Delphi-Stringtypen (ShortString),
aber da sei Crossplatform können Strings plötzlich auch mal bei 0 anfangen (standardmäßig auf Android und iOS).

[kwhk]

So geht es mit Delphi 7, man muss die einzelnen Zeichen zunächst einer WideString-Variablen zuweisen, danach kann man sie verbinden.

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   s1, s2: WideString;
   s21, s22 : WideString;
   s : String;
begin
   s1  := 'abc';
   s21 := s1[1];
   s22 := s1[2];
   s2  := s21 + s22;

   WriteLn('s1=',s1);
   WriteLn('s1[1]=',s1[1]);
   WriteLn('s1[2]=',s1[2]);
   WriteLn('s21=',s21);
   WriteLn('s22=',s22);
   WriteLn('s2=',s2);

   ReadLn(s);
end.

Hier das Ergebnis

Code:

s1=abc
s1[1]=a
s1[2]=b
s21=a
s22=b
s2=ab

[t.roller]

Zitat von kwhk:

So geht es mit Delphi 7, man muss die einzelnen Zeichen zunächst einer WideString-Variablen zuweisen, danach kann man sie verbinden.

Bei einem WideString hat S[i] den Typ WideChar.
s21, s22 : WideChar;

[kwhk]

Ich habe noch etwas gespielt, ich denke s21 und s22 sind schon WideString, keine WideChar.
Wenn ich die beiden WideChar s1[1] und s1[2] nacheinander s3 zuweise ( statt s3 := s1[1]+s1[2] ), dann klappt das auch - siehe s3.
Bei s4 funktioniert es auch. Wenn man WideChar mit + verknüpft, dann muss offenbar mindestens ein WideString in der + - Kette dabei sein, es funktioniert auch ein Leerstring, wie in dem Beispiel.


Hier der Code

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
    s1, s2, s3, s4: WideString;
    s21, s22 : WideString;
    s : String;
begin
    s21 := '<<<';
    s22 := '>>>';
    s1 := 'abc';
    s21 := s21+s1[1];
    s22 := s1[2]+s22;
    s2 := s21 + s22;

    s3 := s1[1]; // statt s3 := s1[1]+s1[2]
    s3 := s3+s1[2];

    s4 := '';
    s4 := s4+s1[1]+s1[2]; // statt s4 := s1[1]+s1[2]

    WriteLn('s1=',s1);
    WriteLn('s1[1]=',s1[1]);
    WriteLn('s1[2]=',s1[2]);
    WriteLn('s21=',s21);
    WriteLn('s22=',s22);
    WriteLn('s2=',s2);
    WriteLn('s3=',s3);
    WriteLn('s4=',s4);

    ReadLn(s);
end.

und hier das Ergebnis

Code:

s1=abc
s1[1]=a
s1[2]=b
s21=<<<a
s22=b>>>
s2=<<<ab>>>
s3=ab
s4=ab