Delphi zeigt String mit asiatischen Zeichen an

[hedie]

Hallo zusammen

Ich habe ein Beispiel von hier genommen:
http://www.ftdichip.com/Support/Soft...les/Delphi.htm

Im zip befindet sich bereits ein exe file.
Dieses liest unter anderem die Description eines USB-Serial Wandlers aus.
Das funktioniert einwandfrei.

Wenn ich nun das Projekt in Delphi 10 öffne, wird dieses konvertiert (zu einer DPROJ Datei)
Nach dem erneuten Build der EXE, welches auf anhiebt klappt, zeigt die Combobox mit den Descriptions jedoch nur noch asiatische Zeichen an.

Irgenwas ging hier wohl schief.
Ich mag mich erinnern, dass einmal einige diskussionen zum Thema Unicode im Forum waren vor einigen Jahren.
Hat es etwas damit zu tun?

Danke schonmal!

[baumina]

Wenn es mit Delphi 5 entwickelt wurde lautet die Antwort definitiv JA, das ist ein Unicode-Problem.

[hedie]

Ich glaube es wurde mit D7 entwickelt.

Die Frage ist nun, wass muss ich tun, damit ich wieder korrekte Strings habe?

[Perlsau]

Alle Strings als Ansi-Strings deklarieren.

[mkinzler]

Erstmal den Typ String durch AnsiString ersetzen.

[hedie]

Da gibt es solche Funktionen:

Delphi-Quellcode:

Function GetDeviceString : String;
Var I : Integer;
Begin
Result := ''; I := 1;
FT_Device_String_Buffer[50] := Chr(0); // Just in case !
While FT_Device_String_Buffer[I] <> Chr(0) do
  Begin
  Result := Result + FT_Device_String_Buffer[I];
  Inc(I);
  End;
End;

Die Nutzen Char Arrays welche dann zu einem String convertiert werden.
Vermutlich geschieht dort der Fehler.

Wenn ich nun Result aber auf AnsiString setze, dann motzt er, dass er Char nicht in AnsiString konvertieren kann.

[mkinzler]

Weil es sich um einen Char-Array ( 16 Bit) und keinen AnsiChar-Array handeln wird.
Char -> AnsiChar

[hedie]

Vielen Dank!

Mit AnsiChar gings dann wieder.