🚀 go-pugleaf

On 20-10-2003 20:29, Solaris wrote:

> Probowalem cos takiego (fpc):
> 
> type Tcos = array [0..MaxLongint] of byte;
>        Pcos = ^Tcos;
> 
> var el : cardinal;
>       cos : Pcos;
> 
> begin
> el := 100;
> getmem(level,el * Sizeof(cardinal));
> cos^[150]:=1; // *
> writeln(cos^[150]);  //  i to pokazuje mi wartosc 1 a powinno np.0,
>                                 //zadeklarowalem tylko 100 elementow.

Zarezerwowałeś _miejsce_na_ 400 elementów.

> freemem(level,el * Sizeof(cardinal));
> end.
> 
> Co jest zle ?

Przykro mi, że muszę Cię zmartwić - nic nie jest źle i napisałeś
poprawny program. :-)
Ale tak jak robisz jest IMHO nieelegancko i niewygodnie, bo
tworzysz wskaźnik na tablicę o określonym rozmiarze (czyli
niezgodny ze wskaźnikiem na tablicę elementów tego samego typu,
ale o innym rozmiarze).

A to, co chcesz osiągnąć chyba lepiej zrobić tak (no chyba, że ja 
nie rozumiem, co chcesz osiągnąć):

var
  cos: ^byte;
  el: cardinal;
begin
  el := 100;
  getmem(cos, el * Sizeof(cos^));

  cos[50] := 1;
// równoważne, ale znacznie czytelniejsze od:
  (cos + 50 * SizeOf(cos^))^ := 1;
// równoważne, ale tylko w tym szczególnym przypadku!!!!!
  (cos + 50)^ := 1;

  writeln(cos[50]);
  freemem(cos, el * Sizeof(cos^));
end.

Tylko nie zapomnij, że cos[n] zawsze wskazuje na n-ty element typu
wskazywanego przez cos, natomiast (cos + n) już niekoniecznie,
czyli inaczej niż w C.

-- 
Tomasz Minkiewicz
tommink@space.pl