Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[Grom PE]

-=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.