Ich habe folgendes Problem
Ein String muss in einen Hexstring umgewandelt werden und dieser wieder retour in einen String
Dazu folgender minimaler Codeblock

zusammenfalten · markieren

Delphi-Quellcode:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  szInputString : String;
  szEncodeString : String;
  szDecodeString : String;
  iValue : Integer;

begin
  szInputString := '€';

  // umwandeln zu einen Hexstring
  iValue := Trunc(Byte(szInputString[1])); // Result 172 <<- Anmerkung eigentlich ist das auch schon falsch da es eigentlich 128 sein müsste
  szEncodeString := IntToHex(iValue, 2); // Result $AC <<- Müsste eigentlich $80 sein

  // Rückwandeln der Hexwertes in einen String //
  iValue := StrToInt('$' + szEncodeString); // Result 172
  szDecodeString := char(iValue); // so? und was soll hier passieren damit wieder € rauskommt???

  if (szDecodeString <> szInputString) then begin
    // leider unterschiedlich
    Beep;
  end;

end;

Was mach ich hier falsch???
Das Hauptproblem das ich hier habe ist, das das ganze auch unter Android funktionieren sollte.

Folgendes würde funktionieren ist aber für Android nicht geeignet das es keinen AnsiChar unter Android gibt

zusammenfalten · markieren

Delphi-Quellcode:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  szInputString : RawByteString;
  szEncodeString : String;
  szDecodeString : String;
  iValue : Integer;

begin
  szInputString := '€';

  // umwandeln zu einem Hexstring
  iValue := Trunc(Byte(szInputString[1])); // Result 172 <<- Anmerkung eigentlich ist das auch schon falsch da es eigentlich 128 sein müsste
  szEncodeString := IntToHex(iValue, 2); // Result AC <<- Müsste eigentlich $80 sein

  // Rückwandeln der Hexwertes in einen String //
  iValue := StrToInt('$' + szEncodeString); // Result 172
  szDecodeString := ansichar(iValue); // Das würde funktionieren ist aber leider nicht praktikabel da es unter Android kein "AnsiChar" gibt

  if (szDecodeString <> szInputString) then begin
    // leider unterschiedlich
    Beep;
  end;

end;

Ich nehme für Char in Byte Ord() und zurück Chr()
Habe aber keinen Schimmer, wie das mit Android ist...

Frank

Besten Dank. Das "Ord" wars
Und so funktionierts auch unter Android

zusammenfalten · markieren

Delphi-Quellcode:

procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
  szInputString : String;
  szEncodeString : String;
  szDecodeString : String;
  iValue, iIndex : Integer;

begin
  szInputString := '€';
  iIndex := 1;
  {$IFDEF ANDROID}
    iIndex := 0;
  {$ENDIF}

  // umwandeln to einem Hexstring
  iValue := Ord(szInputString[iIndex]);
  szEncodeString := IntToHex(iValue, 4);

  // Rückwandeln der Hexwertes in einen String
  iValue := StrToInt('$' + szEncodeString);
  szDecodeString := chr(iValue);

end;

Besten Dank nochmals

Und was ist mit iOS?
Und wieso hörst du nicht auf den Compiler, der dir hier Warnungen um die Ohren werden sollte? (z.B. zugewieserner Wert an Variable wird nicht benutzt)


Aber eigentlich ist es falsch hier auf eine Platform zu unterscheiden, denn das mit dem 0-Index kann dir auch im Windows passieren.
Die richtige Option, auf die man hört ist {$ZeroBasedStrings ON} oder OFF, oder eben man holt sich aus dem Typ die Information.

PS:

markieren

Delphi-Quellcode:

iValue := Ord(szInputString[Low(String)]);
// oder
iValue := Ord(szInputString.Chars(0)); // diese Helper sind immer mit 0

Byte und AnsiChar war sowieso nicht "ganz" richtig,
denn es ist ja ein WideChar, welcher ein Word groß ist.

String = UnicodeString, seit 2009 ..... aber bis vor 2009 war es fast richtig, weil es da noch ein AnsiString war.

Und fast, weil es noch nie richtig war, denn String war/ist ein compilerabhängiger Typ, der sich auch mal verändern kann, wie man mit Delphi 2009 erleben durfte.
Char PChar String
AnsiChar PAnsiChar AnsiString
WideChar PWideChar WideString UnicodeString
Wer statische Typen mit dynamischen vermischt, ist selbst Schuld, wenn es mal nicht stimmen könnte.

z.B. Pointer in Integern speichern -> leider wurde Integer eingefroren (16 -> 32 Bit machte er noch mit), aber ab jetzt gibt es den NativeInt, der jetzt zwischen 32 und 64 Bit mitwächst.
bzw. ich verwende lieber den IntPtr (aus C++ bekannt)

Besten Dank für die Anmerkung. Vor allem das mit dem {$ZeroBasedStrings ON}
Ich bin zwar schon seit über 20 Jahren Delphianer aber erst seit kurzen auf eine neuere Version (10.3 Rio) umgestiegen.
(Vorher Delphi-XE )
Dadurch ist für mich speziell in der Multiplattform-Entwicklung vieles neu.
Aber es wird. Hoffe ich zumindest
Besten Dank nochmals