![]() |
Добро пожаловать, гость ( Вход | Регистрация )
![]() |
-=CHE@TER=- |
![]()
Сообщение
#1
|
Walter Sullivan ![]() ![]() ![]() Группа: Root Admin Сообщений: 1,360 Регистрация: 4-February 08 Пользователь №: 3 Спасибо сказали: 313 раз(а) ![]() |
Delphi programs in API.
На английском. Очень подробно всё описано, плюс есть исходные коды готовых юнитов. Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял). |
![]() ![]() |
Grom PE |
![]()
Сообщение
#2
|
![]() Advanced Member ![]() ![]() ![]() Группа: CTPAX-X Сообщений: 84 Регистрация: 7-February 08 Из: i@grompe.org.ru Пользователь №: 3,120 Спасибо сказали: 95 раз(а) ![]() |
-=CHE@TER=-, вопросы нормальные =)
1. Если я правильно понял, то так: CODE Type PStructArray=^TStructArray; TStructArray=array [0..0] of TStruct; Var T: PStructArray; I: Integer; Begin GetMem(T, 10*SizeOf(TStruct)); For I:=0 To 9 Do T[I].par_int:=I; FreeMem(T, 10*SizeOf(TStruct)); End. 2. Как-то так: CODE type T4Char=array [0..3] of char; var dwSign: cardinal; begin dwSign:=$46464952; if T4Char(dwSign) = 'RIFF' then WriteLn('yes') else WriteLn('no'); end. Более оптимизированный код получим при: CODE type T4Char=array [0..3] of char; const RIFF_SIG:T4Char='RIFF'; var dwSign: cardinal; begin dwSign:=$46464952; if dwSign = Cardinal(RIFF_SIG) then WriteLn('yes') else WriteLn('no'); end. Спасибо сказали:
|
![]() ![]() |
Упрощённая версия | Сейчас: 25th August 2024 - 06:58 |