Wskaźnik na typ wyliczeniowy

Thread View: pl.comp.lang.delphi

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by rusiecki.neptuntech Tue, 07 Nov 2017 20:54

#346160

Author: rusiecki.neptuntech
Date: Tue, 07 Nov 2017 20:54

39 lines
1846 bytes

Witam

Mam taki typ wyliczeniowy

TJednostkiSkali=(sscal=0,ssmm=1,sscm=2);

posiadam zmienne 

var zmienna:TJednostkiSkali
    wskInt:  PInteger:
    zwyklyInt:Integer;


dokonuje przypisania:

1. Krok pierwszy


    zmienna:=sscmm;

2. Krok drugi

    wskInt:=@zmienna;


3. Krok trzeci

   zylkyInt:=wskInt^;


---------------------------

Ku mojemu zdziwieniu otrzymuję 258 zamiast oczekiwanego 2.
Przeglądnąłem wszystko, w innych przypadkach zawsze mi to działało, na domiar złego źle działa tylko za pierwszym wejściem do procedury, za kolejnym wynik jest spodziewany.

Dlaczego tak się dzieje??


Pozdrawiam Roland

Re: Wskaźnik na typ wyliczeniowy

#346161

Author: mmm
Date: Tue, 07 Nov 2017 21:19

31 lines
1746 bytes

> 
> ---------------------------
> 
> Ku mojemu zdziwieniu otrzymuję 258 zamiast oczekiwanego 2.
> Przeglądnąłem wszystko, w innych przypadkach zawsze mi to działało, na domiar złego źle działa tylko za pierwszym wejściem do procedury, za kolejnym wynik jest spodziewany.
> 
> Dlaczego tak się dzieje??

Dostałeś od kompilatora to o co poprosiłeś ;)
Integer to 4Bajty  a TJednostkiSkali to nie wiadomo jaki rozmiar 
(1,2,albo 4Bajty  domyslnie jest 1)

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Minimum_enumeration_size_(Delphi) 


Wiec traktujac wskaznik jako PINteger dostajesz "extra" bajty które 
powoduja ze nie działa tak jak trzeba , i działa czasmi OK jak trafisz w 
zera ;)

Aby Ci zadziałało mozesz np. dodać
  {$MINENUMSIZE 4}


> 
> 
> Pozdrawiam Roland
> 
> 

M

Re: Wskaźnik na typ wyliczeniowy

#346162

Author: rusiecki.neptuntech
Date: Wed, 08 Nov 2017 19:33

19 lines
1694 bytes


> 
> http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Minimum_enumeration_size_(Delphi) 
> 
> 

> 
> Aby Ci zadziałało mozesz np. dodać
>   {$MINENUMSIZE 4}

Dziękuję, byłem pewien, że to zawsze int. 
> > 
> > 
> > Pozdrawiam Roland
> > 
> > 
> 
> M

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads