10.10.2016, 08:49
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
function IndexInArray(Index: Integer; var V): Boolean;
var
p: PInteger;
begin
p:=PInteger(PInteger(@V)^);
Dec(p);
Result:=(Index>=0) and (Index<p^);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
a: array of Integer;
b: array of TPoint;
c: array of TClass;
begin
SetLength(a, 20);
SetLength(b, 30);
SetLength(c, 40);
if IndexInArray(35, a) then Memo1.Lines.Add('a');
if IndexInArray(35, b) then Memo1.Lines.Add('b');
if IndexInArray(35, c) then Memo1.Lines.Add('c');
end;
Low = 0, т.к. xor edx,edx = 0
__________________
Пишу программы за еду.
__________________
|