WideChar aus WideString bekommen.

[snow]

Hallo

wenn ich einen Widestring habe, und den WideChar an einer Position des strings auslesen möchte komm ich mit

String[X] nur bei Ansi-zeichen weiter nicht aber bei Unicode.

Wie kann ich sonst nen WideChar aus nem Widestring bekommen?

Gruß snow

[himitsu]

Genauso (sind beides dynamische Arrays, also gleicher Zugriff)

Delphi-Quellcode:

Var S: WideString;
  C: WideChar;

C := S[x];

wie machst du es denn bisher? (etwas Code)

[snow]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var chr1, chr2 : widechar;
str : widestring;
nr : integer;
begin
chr1:=Widechar(256);
chr2:=Widechar(257);
str:=chr1+chr2;
chr1:=str[1];
nr:=ord(chr1);
showmessage(inttostr(nr));
end;

so.

ich weise zuerst den widechars chr1, chr2 das zeichen 256 und 267 zu.

dann klemm ich die beiden in den string und lese dann die erste stelle wieder in Chr1

dann wird mittels ord der integer herausgefunden und dann das ganze angezeigt.

eigendlich sollte ich ja 256 angezeigt bekommen. aber ich bekomm 65 angezeigt.

wenn ich aber

Delphi-Quellcode:

str:=chr1+chr2;

durch

Delphi-Quellcode:

str:=chr1;

ersetze dann klapts und ich bekomm 256 raus.

gruß snow

edit:// ich hab den fehler gefunden aber es ist wohl eher ein Bugg.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var chr1, chr2 : widechar;
str, str2 : widestring;
nr : integer;
begin
chr1:=Widechar(256);
chr2:=Widechar(257);
str:=chr1;
str2:=chr2;
str:=str+str2;
chr1:=str[2];
nr:=ord(chr1);
showmessage(inttostr(nr));
end;

zuerst die widechars in widestrings umwandeln dann addieren und dann wieder auslesen.

merkwürdig und vor allem viel Tipp arbeit.

Ich werd wohl ne procedure schreiben müssen.

Gruß snow

[himitsu]

nja, mit Unicode hat Delphi halt noch so seine Probleme

du kannst aber selber direkt eine widechar<>widestring-Konvertierung vornehmen,

Delphi-Quellcode:

str := WideString(chr1) + WideString(chr2);

wobei es meißt recht, wenn du, sobald der erste Wert ein Char/WideChar ist und du es einem String uweisen willst, nur den ersten Wert umwandelst, der Rest geht meist dann von Selber, da dann Delphi schon weiß, daß es ein String ist und es zusammenfügen/anhängen und nicht zusammenrechnen soll.

Delphi-Quellcode:

str := WideString(chr1) + {irgendwas und mehr};

wie es der Compiler womöglich verstehen kann:

Delphi-Quellcode:

// der Code, also das was du denkst zu wollen
str := chr1 + chr2;  

// jetzt kann addiert
str := String(Char(summe(chr1, chr2))); 
str := String(Char(Word(chr1) + word(chr2))); 

// oder zusammengesetzt werden
// ... jenachdem wie der Compiler es interpretiert
str := String(chr1) + string(chr2);

[snow]

ich hab mir jetz folgende functionen geschrieben.

Delphi-Quellcode:

function WChrtoWstr(WChar : Widechar):WideString;
begin
Result:=Wchar;
end;

//------------------------------------------------------------------------------

function WordtoWstr(W : Word):Widestring;
begin
Result:=WChrtoWstr(WideChar(W));
end;

gruß snow

[himitsu]

WChrToWstr ist ja eine Funktion und diese wird aufgerufen (nette sprünge im Programm), wärend WideString(...) direkt im Code umgewandelt,
aber aus Verständniskompatibilität zu WordToWstr wirst du dieses vermutlich als Funktion belassen.

bei WordToWstr kannst du aber zumindestens den "unnötigen" Aufruf von WChrToWstr weglassen

Delphi-Quellcode:

function WordtoWstr(W : Word):Widestring;
begin
  Result:=WideChar(W);
end;

[snow]

Stimmt der ist unnötig.

Gruß snow