Указатели и массивы

[VladimirVB]

Здравствуйте.

Как в такой программе при помощи указатели p получить доступ к элементам массива a.

var
  a:array[0..2] of Integer = (3,1,2);
  p: Pointer;
begin
  p := @a;
  //?????????
  Readln;
end.

или в Delphi такое невозможно, а только в C++?

[Altera]

Сообщение от VladimirVB

Здравствуйте.

Как в такой программе при помощи указатели p получить доступ к элементам массива a.

var
  a:array[0..2] of Integer = (3,1,2);
  p: Pointer;
begin
  p := @a;
  //?????????
  Readln;
end.

или в Delphi такое невозможно, а только в C++?

Значит так: Объявляешь в type tA = array [0..2] of integer;

А потом и сам массив (в разделе var) a: tA = (3, 1, 2);

...
p := @a;
...
tA(p^).[1] := ...
...

[Volt]

попробуй так

const a: array[0..2] of Integer = (3,1,2);
var p: Pointer;
begin
p:=@a;

form1.Caption:=inttostr(a[ integer(p)]);
end;

[VladimirVB]

Большое вам спасибо за ответы. У меня к вам еще один вопрос по другой теме. Ранее я задавал его на этом форуме, но так четкого так и не получил ответа.

В программу я при помощи RC файл поместил .pdf файл, но как открыть этот файл из ресурса, я не знаю.
То есть не извлечь как в примере ниже

var
Res: TResourceStream;
begin
Res := TResourceStream.Create(HInstance, 'Demo', 'PDFFILE');
Res.SaveToFile('a.pdf');
Res.Free;
end;

а сразу при открытии программы PDF файл должен открыться.

[Volt]

можно скинуть проект вмести с res

[VladimirVB]

Подскажите пожалуйста, а куда и как скидывать?

[s.Creator]

Немного поправлю Volt

const // или var
  a2: array[0..2] of Integer = (10, 11, 12); // локальные переменные нельзя инициализировать

procedure TForm2.btVoltClick(Sender: TObject);
var
  p: ^integer; // или PInteger - если указатель на тип элемента массива то можно inc() или dec()
begin
p:=@a2;
inc(p); // переход ко второму элементу массива
btVolt.Caption:=inttostr(p^);
//btVolt.Caption:=inttostr(a2[ integer(p)]); // integer(p) = около 4500000 - это же адрес памяти
end;

Про PDF из памяти:
Он встраивается в эксплорер и Мазилу.
Надо копать ActiveX или Ole
Сам этой проблемой не занимался но в панели "Import ActiveX Control ..." он присутствует.

[VladimirVB]

проект для скачивания находится здесь

http://narod.ru/disk/12324766000/6.rar.html

создан в Delphi 2009. В EXE файле находится файл test.pdf.