🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #80357

Re: dynamiczna tablica (jeszcze raz)

#80357
From: Piotr Lisewski
Date: Mon, 20 Oct 2003 19:02
27 lines
1641 bytes
Użytkownik "Solaris" <solar@s0lar1s.net*SZPAM*> napisał w wiadomości
news:bn19lb$1l7$1@nemesis.news.tpi.pl...
> 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.
> freemem(level,el * Sizeof(cardinal));
> end.
>
> Co jest zle ?

Wydaje mi sie z tego co analizuje, ze to Twoje przypuszczenie jest bledne.
Przeciez w linii wyzej ustawiasz 150-ty element tablicy wskazywanehj przez
cos na 1, a w nastepnej linijce wyswietlasz jego zmieniona zawartosc.

Daniel.
Technical Details
Message-ID: <bn1bet$22qm$1@news2.ipartners.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!news.ipartners.pl!not-for-mail
References: <bn19lb$1l7$1@nemesis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!news.ipartners.pl!not-for-mail
From: "Piotr Lisewski" <p.lisewski@wsaib.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: dynamiczna tablica (jeszcze raz)
Date: Mon, 20 Oct 2003 21:02:11 +0200
Organization: Internet Partners
Lines: 29
Message-ID: <bn1bet$22qm$1@news2.ipartners.pl>
References: <bn19lb$1l7$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: 217.153.160.85
X-Trace: news2.ipartners.pl 1066676509 68438 217.153.160.85 (20 Oct 2003 19:01:49 GMT)
X-Complaints-To: abuse@ipartners.pl
NNTP-Posting-Date: 20 Oct 2003 19:01:49 GMT
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MSMail-Priority: Normal
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit