Typenumwandlungen

[endeffects]

Hallo,

ich hab ein Problem mit der Umwandlung von Typen.
Und zwar möchte ich den Wert 0x4FDD2F96 umwandeln
in 1339895702. D.h. irgendwie muss ich den Hexwert
in einen String umwandeln und dann aus jedem Zeichen
des Strings einen Integerwert bilden.

Ich hab es schon wie folgt probiert:

showmessage(IntToStr(Ord((Chr(StrToInt('$4F')))))); Aber dann erhalte ich den Wert 79 und nicht 13 oder 133 ?!

Welche Umwandlung hier von nöten ist ist mir ehrlich gesagt
völlig schleierhaft.

Hat Jemand vielleicht einen Rat?

Mfg

[1234588]

LongInt($4FDD2F96) :o)

[Phoenix]

Ist das was für Dich? http://www.delphipraxis.net/internal...?p=27809#27809

Ps: Das war ganz einfach gesucht nach HexToInt

[Sherlock]

Lustigerweise gibt es ein IntToHex in Delphi, aber kein HexToInt.

Das hab ich mal selber geschrieben (ist aber auch trivial):

Delphi-Quellcode:

function HexToInt(HexNum: string): LongInt;
begin
  if HexNum = '' then
    Result := 0
  else
  begin
    if Pos('$', HexNum) < 1 then
      Result := StrToInt('$' + HexNum)
    else
      Result := StrToInt(HexNum);
  end;
end;

Edit: Dank rotem Kasten eigentlich fast überflüssig...

Sherlock

[endeffects]

oh vielen dank für die zahlreichen und schnellen antworten.
die methode mit dem longint() funktioniert wunderbar
solange ich den hex wert eingebe, aber wie löse ich das
wenn ich anstelle des hex wertes einen normalen string habe?

[Phoenix]

Häh?

Genau das steht doch in dem von mir verlinkten Beitrag und der letzten Antwort von Sherlock drin??

[endeffects]

nein ich meine wenn ich keinen hex wert habe sondern lediglich einen string:

Delphi-Quellcode:

var s: String;
begin
showmessage(IntToStr(LongInt($4FDD2F96)));   //>> 1339895702

s:= Chr(StrToInt('$4F')) + Chr(StrToInt('$DD')) + Chr(StrToInt('$2F')) + Chr(StrToInt('$96'));
showmessage(s);

Wie bekomm ich denn jetzt aus dem string s den wert 1339895702 errechnet?

[gammatester]

Zitat von Phoenix:

Häh?

Genau das steht doch in dem von mir verlinkten Beitrag und der letzten Antwort von Sherlock drin??

Naja, genau steht's ja nun nicht drin, da er von einer C-Hexzahl mit 0x... ausgeht und da fährt die HexToInt-Funktion gegen diw Wand. Aber die Richtung sollte klar sein.

Gruß Gammatester

[Cyf]

StrToInt('$4FDD2F96');

Oder was meinst du?

[Edit]

Zitat:

von einer C-Hexzahl mit 0x...

In dem Fall, muss der Strin natürlich erst entsprechend formatiert werden, aber das '0x' gegen ein '$' auzutauschen, sollte zu schaffen sein.

[gammatester]

Zitat von Cyf:

In dem Fall, muss der Strin natürlich erst entsprechend formatiert werden, aber das '0x' gegen ein '$' auzutauschen, sollte zu schaffen sein.

Sag ich ja :)
Gammatester