String Konvertierung

[zeras]

Ich habe bis jetzt den Win32 Project Localizer benutzt. Da dieser aber nicht mehr weiterentwickelt wird, habe ich jetzt auf tsilang umgeschwenkt, möchte aber die vorhandenen Übersetzungen nutzen. Dazu kann ich im Project Localizer die Daten exportieren.
Diese stehen dann in verschiedenen Dateien wie folgt:
Beispiel
<entry name="AdvPreviewForm.Caption">
<value>0056006F007200730063006800610075</value>
</entry>


Das muss ja offenbar der 16 Bit Wert für jedes Zeichen des Textes sein. Mit welcher Funktion kann ich das zu einem String konvertieren? Mit den Konvertierungsfunktionen habe ich bisher noch nichts am Hut. Ansonsten muss ich das selber programmieren.

[HolgerX]

Hmm..

das sind ZeichenCodes von WideChars..

0056006F007200730063006800610075 entspricht dem String 'Vorschau'.

0056 V
006F o
0072 r
0073 s
0063 c
0068 h
0061 a
0075 u

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  Edit2.Text := '';
  For i := 0 to (length(Edit1.Text) div 4)-1 do begin
    Edit2.Text := Edit2.Text + WideChar(StrToInt('$' + Copy(Edit1.Text,1 + (i*4),4)));
  end;
end;

Kleiner Test mit D6...

[zeras]

Hallo HolgerX,

danke für die Funktion.
Meine Frage war, ob es da eine fertige Funktion gibt. Wenn nicht, werde ich dankbar deine Funktion einbauen.

[himitsu]

Ähhhhhhhhh .... Text und StrToInt?

Wie wäre es mit HexToBin oder einer gleichwertigen Stream-Funktion
und dann TEncoding.Unicode.Xyz, bzw. TEncoding.BigEndianUnicode ? (Bytefolge beachten)

Wobei letzter Teil notfalls "einfach" entfallen kann, wenn man es direkt in einen UnicodeString schreibt. (hier muß man aber vermutlich noch die Bytes der Chars umdrehen, vonwegen BigEndian)

[EWeiss]

Zitat von himitsu:

Ähhhhhhhhh .... Text und StrToInt?

Wie wäre es mit HexToStr oder einer gleichwertigen Stream-Funktion
und dann TEncoding.Unicode.Xyz, bzw. TEncoding.BigEndianUnicode ? (Bytefolge beachten)

Wobei letzter Teil notfalls "einfach" entfallen kann, wenn man es direkt in einen UnicodeString schreibt. (hier muß man aber vermutlich noch die Bytes der Chars umdrehen, vonwegen BigEndian)

Tja und das alles in D6 ? LOL
Denke das gab es da noch nicht.

gruss

[himitsu]

HexToBin gab es bestimmt schon
und den WideString auch.

http://docwiki.embarcadero.com/RADSt...rsion_routines
http://docwiki.embarcadero.com/RADSt...pes#WideString


In einem neueren Delphi würde ich gleich bei Unicode bleiben.
Wenn in einem älteren Delphi (D2007 und davor) eh nur ANSI angezeigt wird, also nicht das Delphi z.B. mit Unicode-Controls aufgerüstet wurde,
dann kann man da auch direkt WideCharToMultiByte / MultiByteToWideChar (für UnicodeBE > UnicodeLE > ANSI oder UnicodeLE > ANSI oder nur UnicodeBE > UnicodeLE) nutzen.