Как в Delphi присвоить переменной адрес ячейки что-бы иметь к ней постоянный доступ?
Например некое значение (один байт) лежит по адресу $404012. Я могу его читать и писать подобным образом:

byte(pointer($404012)^):=$10;
либо
x:=byte(pointer($404012)^);

В подобном случае происходит постоянное чтение и конвертация, да и это не наглядно. Другое дело если объявить переменную например Х размером в байт, но так, что-бы её адрес в памяти фактически оказался нужным мне, а не тем, что выделит дельфи. Тогда делая if X=$12... всё будет происходить очень просто и в Х всегда будет свежее значение...
Как такое реализовать?

| Сообщение посчитали полезным:

Выдели глобальную переменную, да возьми где-нить в начале её адрес, вот и будет указатель на постоянную переменную.
З.Ы. Вопрос сформулирован криво, не совсем понял, что надо.
З.З.Ы. Может, всё же опишешь изначальную задачу, что надо сделать, а не финт ушами этот?

| Сообщение посчитали полезным:

Сам пишу на С++, но когда-то позавидовал такой возможности в Делфи.

Помоему реализуется так

var
X : Byte absolute $404012;

-----
127.0.0.1, sweet 127.0.0.1

| Сообщение посчитали полезным:

объяви глобальную переменую типа PByte(просто ты в своем примере привел операцию с байтом)

-----
Лучше быть одиноким, но свободным © $me

| Сообщение посчитали полезным:

Простите, что не корректно описал проблему. Сообщение OKOB в точности иллюстрирует то, чего хочу добиться:
Var X: Byte absolute $404012;

У меня Дельфи7, пока не разобрался как заставить работать эту конструкцию. Ошибку выдаёт: "Variable name expected" указывая на адрес.

На данный момент получилось сделать только так, как посоветовал BoRoV:
Var X:PByte;
X:=pointer($404012);
Далее пишем и читаем так:
X^:=$12;
a:=X^;

Конечно вариант с absolute был бы вообще идеален... Буду гуглить.

| Сообщение посчитали полезным:

Нашёл такой код:

var
BiosDate: array[0..7] of char absolute $FFFF5;
PCType: byte absolute $FFFFE;

procedure TForm1.FormCreate(Sender: TObject);
var
S: string;
begin
case PCType of
$FC: S := 'AT';
$FD: S := 'PCjr';
$FE: S := 'XT =8-O';
$FF: S := 'PC';
else
S := 'Нестандартный';
end;
Caption := 'Дата BIOS: ' + BiosDate + ' Тип ПК: ' + S;
end;

Всё равно при компиляции ругается на адрес. Может какая-то директива компилятора нужна?

| Сообщение посчитали полезным:

ToBad
поройся вот тут
forum.vingrad.ru/forum/topic-241111.html

| Сообщение посчитали полезным:

откуда у программиста может возникнуть такая задача знать точный адрес переменной?

-----
Пиво, сиськи, транс

| Сообщение посчитали полезным:

tihiy_grom пишет:
поройся вот тут

Порылся, указать конкретный адрес не удается. Absolute почему-то принимает только имя переменной, но никак не конкретный адрес как в примере.


-= ALEX =- пишет:
откуда у программиста может возникнуть такая задача знать точный адрес переменной?

Например обращаться из dll к переменным вызывающей программы, обмен данными и т.д. Мало ли ещё где пригодится...

| Сообщение посчитали полезным:

ToBad пишет:
Порылся, указать конкретный адрес не удается. Absolute почему-то принимает только имя переменной, но никак не конкретный адрес как в примере.
вообще-то так и должно быть, ибо
ToBad пишет:
Ошибку выдаёт: "Variable name expected"
то есть "ожидается имя переменной"

| Сообщение посчитали полезным:

tihiy_grom не пойму тогда этот код, на чём его компилировали? Может есть директива компилятора какая-то хитрая...

var
BiosDate: array[0..7] of char absolute $FFFF5;
PCType: byte absolute $FFFFE;

procedure TForm1.FormCreate(Sender: TObject);
var
S: string;
begin
case PCType of
$FC: S := 'AT';
$FD: S := 'PCjr';
$FE: S := 'XT =8-O';
$FF: S := 'PC';
else
S := 'Нестандартный';
end;
Caption := 'Дата BIOS: ' + BiosDate + ' Тип ПК: ' + S;
end;

| Сообщение посчитали полезным:

это скорее всего можно скомпилировать только на старых версиях дэлфи

www.k-press.ru/cs/2002/3/delp/delp.asp
смотри таблицу 2

| Сообщение посчитали полезным:

tihiy_grom пишет:
это скорее всего можно скомпилировать только на старых версиях дэлфи

Я думаю с указанием конкретного адреса это синтаксис Object Pascal...

| Сообщение посчитали полезным:

возможно
у меня его под рукой нет чтобы проверить

| Сообщение посчитали полезным:

tihiy_grom пишет:
у меня его под рукой нет чтобы проверить

И у меня...

Пока остановился на:
Var X:PByte;
X:=pointer($404012);
X^:=$12;
a:=X^;

Не буду закрывать пока тему, подожду пару дней, может кто знает и отпишется.

| Сообщение посчитали полезным:

ToBad используй шаред мемори)

-----
Пиво, сиськи, транс

| Сообщение посчитали полезным:

а почему бы сразу не использовать PByte($404012)^:=$12; ?

| Сообщение посчитали полезным:

Не стоит больше поднимать топики давностью в 3 месяца.

| Сообщение посчитали полезным: