Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Buchstaben in hexadezimal darstellen (https://www.delphipraxis.net/80079-buchstaben-hexadezimal-darstellen.html)

logo123 2. Nov 2006 15:17


Buchstaben in hexadezimal darstellen
 
Hallo,

Kann man Buchstaben in Hexadezimal darstellen?

Zahlen gehen mit

Delphi-Quellcode:
IntToHex

fwsp 2. Nov 2006 15:26

Re: Buchstaben in hexadezimal darstellen
 
und was ist ein buchstabe? auch nichts anderes als ne zahl.

Delphi-Quellcode:
IntToHex(Ord(Buchstabe));

DP-Maintenance 2. Nov 2006 16:49

DP-Maintenance
 
Dieses Thema wurde von "Phoenix" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Ist ein Delphi-Thema

kabuco 3. Nov 2006 14:46

Re: Buchstaben in hexadezimal darstellen
 
Hallo

einen ganzen string kannst du so "verschlüsseln":

Delphi-Quellcode:
function StrToHex(AStr: String): String;
var i: Integer;
begin
result := '';
for i:=1 to StrLen(Pchar(AStr)) do begin
  Result := Result+' '+IntToHex(Ord(AStr[i]),2);
end;
end;
Allerdings nicht getestet!

Gruß kabuco

logo123 3. Nov 2006 15:04

Re: Buchstaben in hexadezimal darstellen
 
kann man auch rückgängig hexadezimal in string umwandeln?

DGL-luke 3. Nov 2006 15:08

Re: Buchstaben in hexadezimal darstellen
 
öhm... klar. du musst dir nur ansehen, wie der string danach aussieht, und dir überlegen, wie du ihn wieder zurückbekommst. Ich weiß leider grad nicht, was bei dem Konstrukt von kabuco genau rauskommt.

Luckie 3. Nov 2006 15:08

Re: Buchstaben in hexadezimal darstellen
 
Natürlich. Es ist doch nur eine andere Darstellung ein und der selben Information.

turboPASCAL 3. Nov 2006 15:20

Re: Buchstaben in hexadezimal darstellen
 
mal so als Beispiel:
Delphi-Quellcode:
function HexToStr(HexStr: String): String;
var i, n: integer;
begin
  Result := '';
  n := 1;
  for i := 1 to length(HexStr) div 2 do
  begin
    Result := Result + chr( StrToInt('$' + HexStr[n] + HexStr[n + 1]) );
    inc(n, 2);
  end;
end;
:stupid:

Gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz