Есть переменная типа record, нужен указатель на отдельное поле этой записи. Это можно сделать или нет? Столкнулся с такой трудностью, вот примеры моего кода (код для тестирования, ничего толкового не делает):

Код

procedure TForm1.Button1Click(Sender: TObject); var      a:boolean;      b:boolean;      p:PBool; begin  a:=true;  b:=true;  p:=@b;  p^:=false;  if b then showmessage('true') else showmessage('false'); end;

Здесь нет records и всё работает прекрасно.


А теперь вот такой код:

Код

procedure TForm1.Button1Click(Sender: TObject);  type t=record           a:boolean;           b:boolean;         end;  var c:t;      p:PBool; begin  c.a:=true;  c.b:=true;    p:[email protected];    p^:=false;  if c.b then showmessage('true') else showmessage('false'); end;

Получаю AV! Ну думаю, наверное проблема в строке   p:[email protected];, и конструкция воспринимается как указатель на всю структуру, пробую видоизменить эту строку:

 with c do p:=@b;  // то же самое - AV!

 p:=PBool(c.b);  // то же самое - AV!

 p:=pointer(c.b);  // то же самое - AV!

Может кто подскажет в чём прикол и можно ли это обойти, просто ну совершенно влом объявлять отдельно сотни переменных и писать громоздкие процедуры присвоения.

PS. Указатель на всю структуру меня совершенно не устраивает, нужен на отдельное поле.

p:^Boolean;

Цитата(MBo @ 02.10.2002, )

p:^Boolean;

Ну или уж PBoolean
Типы разные получались... LongBool и Bool
Если уж охото PBool, то тогда
t=record
         a:bool;
         b:bool;
       end
А о том, что указатель шел не на все структуру разом, а на конкретный элемент (второй в данном случае) говорит это: lea eax, [esp+$01], Смещение на 1 байт от начала стека это и есть наш c.b, а квадратные скобки - это значит, что мы адрес передаем. (это в отладчике видно).
А что же получалось у нас? Вот структура t размером в 2 байта. И указатель PBool под 4 байта. Получается накладочка и мы вылезаем за размер структуры...Как проверить сие утверждение? Очень просто:
type t=record
         a:boolean;
         b:boolean;
         c:boolean;
         d:boolean;
         e:boolean;
       end;
var c:t;
    p:PBool;
begin
 c.a := True;
 c.b := True;
 c.c := True;
 c.d := True;
 c.e := True;
 p := @c.b;
 p^ := false;
if c.b then showmessage('true') else showmessage('false');

Поля от b до e будут равны false...Ежели написать p:= @c.a, то соотв. поля от a до d будут false, а е = true.

Ах вот где собака порылась! Спасибо всем, всё получилось.