- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
//DELPHI
Hex:string
Hex:='FFF123'
for i to length (Hex)
StrToInt('$' + InttoHex(Ord(Hex[i]),2))
//Какую только хрень не изобретут люди, не удосужившиеся найти в справке HexToBin...
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+116
//DELPHI
Hex:string
Hex:='FFF123'
for i to length (Hex)
StrToInt('$' + InttoHex(Ord(Hex[i]),2))
//Какую только хрень не изобретут люди, не удосужившиеся найти в справке HexToBin...
Действительно хорошая перекодировка.
Xom94ok 31.01.2013 18:24 # 0
Hint: раздел Pascal неявно включает в себя Delphi, даже несмотря на то, что последний не заслужил такой чести.
ne4eHb 25.08.2021 08:11 # 0