Tanımlama yapmak

Başlatan bunalmis, 02 Haziran 2011, 20:09:50

z

Ary: array [0..10] of byte;   Seklinde arayim var.

Bu arayin her bir elemanina isim vermek istiyorum.

Ornegin

Ary[0] a A demek
Ary[1] a B demek
Ary[2] a C demek

Daha sonrada programda ornegin A=B+C; satiri yazdigimda derleyicinin buna kizmadan  Ary[0]=Ary[1]+Ary[2]; islemini yapmasini istiyorum.

Delphide bu tanimi yapmak mumkunmudur?

Bana e^st de diyebilirsiniz.   www.cncdesigner.com

birumher

Pointer kullanarak yapabilirsin...

var
  ary: array[0..10] of byte;
  a: ^byte;
  b: ^byte;
begin
  ary[0] := 10;
  ary[1] := 15;
  a := Addr(ary[0]); // a pointer ını ary[0] ın adresne eşitledik.
  b := Addr(ary[1]); // b pointer ını ary[1] in adresne eşitledik.

  ShowMessage( intToStr(a^ + b^) );

end;
Birkan.Herguner