Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

Обращение к элементу массива.   Найти похожие ветки 

 
GEN++ ©   (2004-12-31 04:47) [0]

//основная программа
.....
type
pBase=^byte;
var
Base:pBase;
mas:array[0..999] of byte;

implemitation

procedure proc1();
begin
    Base:=@(mas[0]);
    proc2(base,5);
end;

//в DLL
 .....
procedure proc2(X:pointer; i:word);
type
pY=^byte;
var
Y:pY;
begin
  Y:=pY(base);
  inc(Y,i):=$55;
   
end;

так проходит
А как обратиться к i-му элементу массива mas
в виде база+смещение, например как в СИ

char *Y;
     Y=base;
     (Y+i)*=0x55;


 
Palladin ©   (2004-12-31 08:36) [1]

1ый способ

procedure proc2(X:pointer; i:word);
type
pY=^array [0..0] of byte;
...
 pY(X)[i];
...

2ой способ
 pY(Integer(x)+i)^;


 
Digitman ©   (2004-12-31 08:43) [2]

вообще-то есть предопределенный указательный тип PByteArray, и изобретать свои типы для указательных целей нет никакого резона

//основная программа
.....
var
mas: array[неважно_чего] of byte;

implemitation

procedure proc1();
begin
 proc2(@mas,5);
end;

//в DLL
.....
procedure proc2(Base:PByteArray; Offset:Integer);
begin
  Base[Offset] := $55;
end;


 
GEN++ ©   (2004-12-31 14:01) [3]

>Digitman ©
>Palladin ©
 Спасибо.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.037 c
1-1104833284
Новичек
2005-01-04 13:08
2005.01.16
Посылка сообщения.


14-1103720342
AlexG
2004-12-22 15:59
2005.01.16
Срочно!!! Нужна работа с з/п 900 уе


14-1104302001
Rouse_
2004-12-29 09:33
2005.01.16
C Днем Рождения 29 Декабря


1-1104055515
Jrek
2004-12-26 13:05
2005.01.16
Перетаскивание


14-1103989879
uny
2004-12-25 18:51
2005.01.16
Задача





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский