- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
var
ABuffer: PAnsiChar;
AText: PAnsiChar;
BBuffer: PAnsiChar;
begin
ABuffer := 'TEST';
BinToHex(ABuffer, AText, Length(ABuffer));
ShowMessage(AText);
ShowMessage(IntToStr(Length(AText)));
GetMem(BBuffer, Length(AText) div 2);
HexToBin(AText, BBuffer, Length(AText) div 2);
BBuffer[Length(BBuffer) - 1] := #0;
ShowMessage(IntToStr(SizeOf(BBuffer)));
ShowMessage(BBuffer);
FreeMem(BBuffer);
end;
brutushafens 25.05.2014 19:01 # +1
guest 11.07.2015 16:58 # 0
Слушай генетический Сишник, ты бы лучше коды быдлопримочки С++ анализировал раз не понимаешь Паскаля
Вот тебе функция, которая возвращает AText как массив байт. Внутри new
BinToHex(ABuffer, AText, Length(ABuffer));
п.с. не понимать Паскаля изза деффективности мышления которое развивается при работе с С++ не означает, что код Паскаля является быдлокодом, а наоборот, Сишизоид, в очередной раз показывает "высочайший уровень" развития Сишников и им подобных инвалидов детства
bormand 25.05.2014 19:24 # 0
Может быть как-то так (с хексом в виде строки потом же удобней работать, да и память потом сама освободится, в отличие от pchar'а):
bormand 25.05.2014 19:30 # 0
guest 11.07.2015 17:00 # +1
п.с. Сишник, как и Линуксофреник - это очень тяжёлый диагноз который лечится крышкой гроба
brutushafens 15.06.2014 17:26 # 0