AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Umwandeln eines Characters

Ein Thema von gro · begonnen am 26. Jul 2020 · letzter Beitrag vom 26. Jul 2020
Antwort Antwort
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
16 Beiträge
 
Delphi 10.3 Rio
 
#1

Umwandeln eines Characters

  Alt 26. Jul 2020, 11:17
Ich habe folgendes Problem
Ein String muss in einen Hexstring umgewandelt werden und dieser wieder retour in einen String
Dazu folgender minimaler Codeblock

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

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;
Peter (EDV = Ende der Vernunft)
  Mit Zitat antworten Zitat
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.259 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Umwandeln eines Characters

  Alt 26. Jul 2020, 14:19
Ich nehme für Char in Byte Ord() und zurück Chr()
Habe aber keinen Schimmer, wie das mit Android ist...

Frank
Frank Reim
  Mit Zitat antworten Zitat
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
16 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Umwandeln eines Characters

  Alt 26. Jul 2020, 15:24
Besten Dank. Das "Ord" wars
Und so funktionierts auch unter Android

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
Peter (EDV = Ende der Vernunft)

Geändert von gro (26. Jul 2020 um 15:31 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.717 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Umwandeln eines Characters

  Alt 26. Jul 2020, 16:39
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:
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)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (26. Jul 2020 um 16:59 Uhr)
  Mit Zitat antworten Zitat
gro

Registriert seit: 9. Jul 2004
Ort: Kärnten
16 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Umwandeln eines Characters

  Alt 26. Jul 2020, 18:16
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
Peter (EDV = Ende der Vernunft)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf