Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
переделать функцию Найти похожие ветки
← →
AlinaVK (2007-08-01 08:19) [0]Есть функция:
function BufferToHex( Buffer:intPtr; Size:Integer ):String;
var
pb: IntPtr;
I: Integer;
begin
pb:= Buffer;
Result:="0x";
for I:=0 to Size-1 do
begin
Result:=Result+IntToHex(pb,2);
Inc(pb);
end;
end;
Компилятор ругается "Unsafe code only allowed in unsafe procedure"
Подскажите, пожайлуста как правильно переписать
← →
Сергей М. © (2007-08-01 09:40) [1]Тебе это сильно мешает ? Выключи в опциях компилятора предупреждения подобного рода и - хэв фан)
Кстати, а за каким было писать эту функцию с циклом, если все гораздо проще:
SetLength(Result, Size*2)
Result := Format(%s%s, ["0x", BinToHex(Buffer, PChar(Result), Size)])
?
← →
Сергей М. © (2007-08-01 09:42) [2]Пардон,
SetLength(Result, Size*2)
BinToHex(Buffer, PChar(Result), Size);
Result := Format(%s%s, ["0x", Result]);
← →
AlinaVK (2007-08-01 11:24) [3]спасибо
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
