Wie konstanter String auf unicode casten?

[r29d43]

Hallo, nach etlichen Jahren TurboDelphi habe ich mir jüngst mal ein neues Delphi10.3 zugelegt
...und muss mich jetzt beim Übertragen älterer Progs natürlich auch mit diesem Unicode-Stuff herumschlagen, der inzwischen wohl eine ziemlich sperrige aufgeblähte Sache geworden zu sein scheint.

Wie auch immer. Wenn ich mir früher String-Ergebnisse von Api-Funktionen ausgeben ließ, habe ich dafür oft shortStrings[255] benutzt. Das geht jetzt natürlich auch noch, nur dass das Format des dort abgelegten Strings jetzt unicode ist und man das nicht mehr so ohne weiteres mittels der Pos-Funktion und einer gegebenen SubString-Konstanten weiterverarbeiten kann. Beispiel:

Delphi-Quellcode:

var aWinText : String[255];
    Info1 : string;

begin
  GetWindowText(WindowAbcHandle, @aWinText[1],255);
  Info1 := copy(aWinText,1,Pos('unwichtig',aWinText)-1);
  ...

klappt jetzt nicht mehr, weil die Stringkonstante 'unwichtig' nicht im gleichen Format zu aWinText vorliegt. Während z.B. die Funktion compareStr diesen Formatunterschied noch automatisch regelt, scheint das die Pos-Funktion aber leider nicht zu tun. Frage also: Gibt es event. irgendein elegantes Typcasting (oder eine String-Funktion deren Result vom Typ unicode ist) mittels dem ich so eine Stringkonstante (wie 'unwichtig') einfach mal schnell das richtige unicode-Format verpassen/überstülpen kann ...und schon funktionierte auch die Pos-Funktion wieder. Also sowas wie

  Info1 := copy(aWinText,1,Pos(unicode('unwichtig'),aWinText)-1);


Eine andere Möglichkeit wäre event. auch anstelle von shortString[255] ein „array[1..1024] of Char“ als Zielablage der Api-Funktion zu nehmen. Da kommt dann das Ergebnis in quasi einfachen Chars an. Nötig danach allerdings: Eine einfache Möglichkeit per event. PChar o.ä. diese einfache Zeichenfolge dann wieder in den unicodeString „aWinText“ reinzubekommen ..um dann gemäß des bisherigen Codes ganz normal damit weiterarbeiten zu können. Warum klappt das nicht (weil per direkter Zuweisung ala aWinText:='abc' klappt das ja auch!)? Gibt es da event. eine einfache Methode für, die mir bisher nur noch nicht eingefallen ist.


Thx im Voraus
...

[DieDolly]

Du bist schon so weit, dass du jetzt alles auf Unicode umstellst. Das ist gut.

Aber

Zitat:

Gibt es event. irgendein elegantes Typcasting

Lass das sein. Stell alles korrekt um und versuch nicht mit irgendwelchen dirty-hack-typecastings alles so hinzubiegen, dass es irgendwie funktioniert.

Zitat:

Eine andere Möglichkeit wäre event. auch anstelle von shortString[255] ein „array[1..1024] of Char“ als Zielablage der Api-Funktion zu nehmen.

Wie wärs mit string ?

Du bist viel zu ressourcen-orientiert meiner Meinung nach.

[DeddyH]

Aus dem Hut:

Delphi-Quellcode:

const
  MYMAXLEN = 255;
var 
  aWinText : String;
  Info1 : string;

begin
  SetLength(aWinText, MYMAXLEN);
  GetWindowText(WindowAbcHandle, PChar(aWinText), MYMAXLEN);
  Info1 := copy(aWinText,1,Pos('unwichtig',aWinText)-1);
  ...

Solange man nicht explizit Ansi und Unicode mischt, sind die meisten Win32-API-Aufrufe eigentlich kompatibel.

[Uwe Raabe]

Zitat von r29d43:

...und muss mich jetzt beim Übertragen älterer Progs natürlich auch mit diesem Unicode-Stuff herumschlagen, der inzwischen wohl eine ziemlich sperrige aufgeblähte Sache geworden zu sein scheint.

Das kann man so bestimmt nicht sagen. Die Unicode-Umstellung ist für die meisten Anwender eine simple Open-Compile-Save Erfahrung gewesen.

[r29d43]

Besten Dank allen, "string" mit SetLength davor und dann auf PChar typcasten war die Lösung.

[Redeemer]

Wird bei string[n], AnsiString[n] und ShortString[n] eigentlich die Längenangabe beachtet oder sind das alles Aliase für den ganz normalen ShortString?
Es ist schon lustig, dass ab Delphi 2009 string[n] Ansi ist und string Unicode.

[Uwe Raabe]

Zitat von Redeemer:

Wird bei string[n], AnsiString[n] und ShortString[n] eigentlich die Längenangabe beachtet oder sind das alles Aliase für den ganz normalen ShortString?

Es wird ein entsprechend großer Speicher reserviert. Das entspricht in etwa einem array[0..n] of AnsiChar, wobei im 0-Element die Länge hinterlegt ist. Deswegen auch die Beschränkung auf maximal 255 Zeichen.

Zitat von Redeemer:

Es ist schon lustig, dass ab Delphi 2009 string[n] Ansi ist und string Unicode.

string[n] ist ja eigentlich auch schon seit Einführung der Huge-Strings (sie auch {$H+}) deprecated.

[Rolf Frei]

Zitat von r29d43:

Besten Dank allen, "string" mit SetLength davor und dann auf PChar typcasten war die Lösung.

Wenn es dir noch nicht bekannt ist, schau dir doch bitte mal diese Seite an: https://www.embarcadero.com/de/rad-i...upgrade-center

Da gibtes diverse Whitepapers zum Thema Unicode, die du dir unbedingt mal reinziehen solltest. Die Umstellung ist mit dem nötigen KnowHow dann um ein vielfaches einfacher.