Привет
=-=-=
Вот встретился тип данных PINTEGER
в учебнике его не нет в справочнике нет
но он применяется
что за тип и что за данные он берет
-=-=-
Обнаружал его по System.PInteger он ссылается на ^Integer;
но не принимает их
procedure TForm1.Button1Click(Sender: TObject);
var
PI: PInteger;
I: Integer;
begin
I := 7;
PI := @I;
PI^ := 19;
Caption := IntToStr(I) // I = 19
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Mas: Array[1..5] of Integer;
begin
Mas[1] := 10;
Mas[2] := 15;
Mas[3] := 25;
Mas[4] := 40;
Mas[5] := 70;
ExtTextOut(Canvas.Handle, 10, 10, ETO_CLIPPED, nil, 'String', 6, @Mas)
end;