Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.051 c
15-1185309114
Dr. Andrew
2007-07-25 00:31
2007.08.26
Как прервать инсталляцию в Inno Setup до распаковки файлов?


2-1185742968
mfender
2007-07-30 01:02
2007.08.26
Integer в минуты средствами SQL в MSSQL


15-1185715044
ya00011
2007-07-29 17:17
2007.08.26
Вопрос админам. Плохой тон или нет?


1-1181886899
StriderMan
2007-06-15 09:54
2007.08.26
Блочный текстовый файл.


15-1185885464
Piter
2007-07-31 16:37
2007.08.26
Где хранят информацию Java MIDP программы?