pascal.516nlazic,
-> #513, kenza*> Da li Delphi dolazi na jednom CD-u ili na vise komada, i da li postoji
*> i disketna verzija ? I moze li se sa CD-a kompletan instalirati na HD
Postoji disketna verzija: 15 x 3.5''
pascal.517nlazic,
-> #514, supers*> Koja je najnovija verzija TP koja može da radi na XT-u?
TP 7.0
pascal.518vlador,
-> #514, supers> Koja je najnovija verzija TP koja može da radi na XT-u?
6.0 može garant (ja sam je koristio na xtu bez diska;), a
sedmica ti i ne treba.
pascal.519postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic)
Subject: Re: pascal
Date: Tue, 20 Jun 1995 08:44:20 GMT
Nebojsa Lazic je napisao:
>> Mozda ce nekoga interesovati: u Delphi-evom readme fajlu koji se
>> ljubaznoscu DDABIC-a nasao na Sezam-u, pise da je minimalna konfiguracija
>> za startovanje 386 sa 6 Mb RAM-a. Delphi, medutim, radi i sa 4 Mb memorije,
>> a za manje ne znam. Ovo, ipak, ne znaci da je iole ozbiljniji rad na
>> ovakvoj konfiguraciji moguc.
Pa i u originalnom (imao cast da ga par dana drzim u rukama) uputstvu za
Access 2.0 pise da je neophodno 6Mb da bi radio, a moze da se startuje i na
4Mb. Samo, na 4Mb je rad moguc samo teoretski. Isto vazi i za BC++ 4.xx.
Medjutim, tu je Microsoft bio malo posteniji - Borland tvrdi da je za BC++
4.xx potrebno 4Mb.
pascal.520postmast,
From: ivica@galeb.etf.bg.ac.yu (Ivica Nikolic)
Subject: Re: pascal
Date: Tue, 20 Jun 1995 09:15:37 GMT
Miljan Mitrovic je napisao:
>> ::::: Eto skolskog primera greske u objektnom dizajnu. Uobicajeno je da se
>> E, stvarno. Ja u klin ti u plocu.
>> Nisam trazio alternativne metode, niti da mi neko objasni OO
>> arhitekturu. Jednostavno sam trazio Da/Ne odgovor na pitanje da
>> li C++ moze da izvede cross-construction onako kako sam trazio ili
>> ne moze? Moze li neko da mi da TAKAV odgovor?
Stvarno mi nije bila namera da budem zadrti opozicionar, ali eto tako
ispade. OK, cross construction u C++u nije moguc, jer bi to nacisto
obesmislilo pojam konstruktora. Ajde da ga malo razjasnim, bar onako kako
sam ga je shvatio:
Glavna uloga konstruktora je da obezbedi konzistentnost stanja objekta
po kreiranju. To znaci: ne sme da se desi da se objekat posle konstrukcije
zatekne u nedefinisanom stanju. Konstruktori za to sluze. Ako je potrebno
da se objektu doturi neka informacija posle konstrukcije, to vec nije posao
konstruktora. Na primer, u Object Windows biblioteci svi objekti izvedeni iz
TWindowsObject imaju pored konstruktora i funkciju SetupWindow, koja sluzi
da se neposredno pre samog prikazivanja prozora na ekranu podese neki
parametri koje nije bilo moguce podesiti u samom trenutku kreiranja objekta,
jer tada jos nisu sve potrebne informacije bile na raspolaganju.
>> Sto se tice pravila i ostalih dogmi, ako primetim da ce moj kod imati
>> samo jednu liniju vise zbog drzanja za dogme, ima da ih nema. Pravila su
>> tu zbog lakseg programiranja, ne kao svrha samoj sebi. Ako ce cross
>> construction izveden krsenjem normi da me postedi nasledivanja, pravljenja
>> raznih dispecera i ostalih kerefeka, onda je to TO, i jedino resenje koje
>> cu koristiti.
Ja ne govorim o dogmama. Govorim o pravilima koja su se pokazala (bar u
mojoj dosadasnjoj praksi) kao neverovatno korisna ako se pise program iole
komplikovaniji od Hello world. Bez odredjene samodiscipline vrlo je tesko
napraviti smislen source duzi od 50-ak kilobajta, a vrlo je lako napraviti
nestabilnu amorfnu masu bez unutrasnje strukture koja ce se raspasti po svim
savovima pri prvom pokusaju modifikacije. Moje iskustvo pokazuje da je
ponekad neverovatno korisno da program u startu ima koju liniju vise, jer se
visestruko isplati pri kasnijoj modifikaciji programa
>> Ako mislis da se sam Borland pridrzava tih pravila, upucujem te na
>> TLabel objekat, koji mora da se veze za peer-view, kako bi znao koji
>> objekat da aktivira. Ovakvih primera ima jos, npr. TScrollBar u
>> nekim okolnostima, ima ih jos ali ne znam napamet.
Ne secam se kako ide konstrukcija TLabel-a u Pascal-u, ali se secam kako
ide u C++ verziji Turbovizije: u konstruktoru Dialog box-a prvo se kreira
objekat za koji treba da se veze TLabel (na primer, TInputLine), pa se onda
pri konstrukciji TLabel-u doturi pointer na vec konstruisani objekat.
Odlozeni konstruktor nije potreban, jer je odnos TLabel-a prema view-u koga
treba da aktivira cist client-server odnos: TLabel od pridruzenog mu TView-a
zahteva da primi fokus, a pridruzeni view nema sta da zahteva od TLabel-a.
Jeste da Turbovizija ima svojih (crnih) bisera, slazem se. Uz
biblioteku TVTOOL17 (moze se naci po BBS-ovima) ide i fajl TVBUGS.DOC u kome
je nabrojana gomila bagova Turbo vizije iz BC++3.1, a i sam dizajn se ne bi
mogao smatrati uzornim OO dizajnom. Borland-ovi programeri su, medjutim, u
medjuvremenu ponesto i naucili, pa je OWL2.x vec nesto sasvim drugo.
--
Allways look on the bright side of death
pascal.521jasicp,
-> #515, zeljkoj> Moze i 7.0. TP, naravno. Za BP je potrebno imati 286.
Ne isplati se raditi sa 7.0 jer za sve sto ima novo u odnosu na 6.0, a
da to novo vredi, treba mnogo memorije. 6.0 ima sve sto treba,ne
racunajuci neke objekte i nove naredbe, ali tesko je sa tim raditi na XT-u.
pascal.522jasicp,
-> #520, postmast> Glavna uloga konstruktora je da obezbedi konzistentnost stanja objekta
> po kreiranju. To znaci: ne sme da se desi da se objekat posle konstrukcije
Dobro, ali kakva je razlika u slucaju da se objekat definise kao:
var Objekt : TObjekt
pa onda radi kao Objekt.Init; ili kao
var PObjekt : ^Objekt
Objekt : PObjekt;
pa onda radi kao PObjekt := New(PObjekt,Init);
Sta se dobija i gubi u oba slucaja ?
pascal.523dejanr,
-> #506, kenza>> > Steta sto ne napravih knjigu od toga (kad je bilo vreme), sigurno bi se
>> > dosta dugo prodavala.
>>
>> A zar je to nemoguce sada uraditi ? Ili se nema vremena ? :)
Put u središte ROM-a je bila serija teksta previše okrenuta osmobitnim
računarima, koji su davno zaboravljeni, dosta bi trebalo posla da se to
prilagodi ovom "vizuelnom" vremenu...
pascal.524postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: SCROOL
Date: Wed, 21 Jun 1995 17:02:48
Hi ovdje sam novi i htio bi da saznam neke stvari o paskalu.
Moze li bilo ko da mi da primjer skrulovanja teksta (veceg od 25 linija)
pomocu kursora.(npr. imate listu clanova i kursorima idete od jednog do
drugog (pozadina bijela, imena crna)).
Nesto sam mozg'o i nisam uspio da ga rijesim tj. radi dobro na prvom SCR
ali kod prelaska na drugi izbacuje gluposti.Kako da to sredim?
Onda me zanima nesto u vezi TSR programa. U TP6.0 im rutina KEEP i veoma
dobro radi ali, meni nikako ne uspijeva da ispitujem koji je taster prit
isnut (npr. SHIFT-F1) i da pokrenem svoju proceduru(SaveScreen). Do sada
sam probavao ali uvijek zastopa ili tako nesto.
I kako bi moga da citam SHIFT, CTRL, ALT tastere?
imate mahanje
ASKO
... Toliko je vezan za porodicu da ga ponekad skinu s lanca.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.525postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: asembler
Date: Wed, 21 Jun 1995 17:02:50
ZDRAVO !
Imam neki programcic napisan u ASM (preuzet i BP 7.0 dir = C:\BP\TASM) i
glasi ovako
.MODEL small
.STACK 100h
.DATA
HelloMessage DB 'Hello, world',13,10,'$'
.CODE
mov ax,@data
mov ds,ax
mov ah,9
mov dx,OFFSET HelloMessage
int 21h
mov ah,4ch
int21h
END
zatim slijedece zasto sluzi MOV, INT, JMP, WORD, XOR, OFFSET itd. itd.
Ako neko ima bilo kakvu TXT dat. o ASM da mi kaze gdje da je nabavim.
imate mahanje
ASKO
... SPERMAMINT is the best for your fresh.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.526postmast,
From: Kliment.Andreev@f132.n108.z38.setnet.setnet.co.yu (Kliment Andreev)
Subject: pascal
Date: Tue, 20 Jun 1995 16:20:33
"J::::(Da li si skinuo PCGPE (pc game programmmers enciclopedia), tu imas
"J::::objasnjeno dosta toga u vezi kretanja objekata i sl. poslao sam to
"J::::u pc.prog (valjda)!
Zanima me kolika je arhiva, dali su to tekstovi ili
sorsovi za animaciju i u kom su jeziku napisani.
10x
Chombe KAN
* Origin: SETNet: ĆMemory Master BBS +389/91-164-877ž SKOPJE (38:108/132)
pascal.527dejanr,
-> #514, supers>> Koja je najnovija verzija TP koja može da radi na XT-u?
TP 5.5 pouzdano radi, a verujem i 6.0.
Ja bih uzeo TP 5.5, pošto uglavnom radi sve iz memorije, dakle dosta je
brz. A uz XT verovatno ide relativno spor i mali disk.
pascal.528dejanr,
-> #513, kenza>> Da li Delphi dolazi na jednom CD-u ili na vise komada
Verzija koju sam ja dobio od CET-a stigla je na jednom CD-u.
>> i da li postoji i disketna verzija ?
Mora biti da postoji, mada je nisam video.
>> I moze li se sa CD-a kompletan instalirati na HD ?
Da, ceo se instalira na disk, a što se mesta tiče, zavisi od toga da
li instaliraš sve komponente ili samo neke. Meni trenutno zauzima oko
41-42 megabajta.
pascal.529mmitrovic,
-> #512, majstor::::: i GetMem( pNodeRecord, SizeOf( tNodeRecord ) );
::::: FreeMem( pNodeRecord, SizeOf( tNodeRecord ) );
Ovo što si ti napisao je u stvari New i Dispose. Ceo princip rada
New i Dispose se zasniva na tome što kompajler u trenutku prevođenja
zna veličinu svih struktura, pa zna koliko da alocira. Ako si kod
pisao ovako, onda ne sme biti problema. Za dalju pomoć ćeš ipak morati
da budeš koncizniji i da priložiš parče sorsa (ako nije secret).
::::: pade mi na pamet da vezem objekte u listu. Kako bi onda reagovala
::::: naredba GetMem( pNode_Ptr, SizeOf( tNode_Obj )); ?? Nisam to jos radio.
Ako je pNode_Ptr = ^tNode_Obj onda nema problema.
pascal.530mmitrovic,
-> #520, postmast::::: Glavna uloga konstruktora je da obezbedi konzistentnost stanja objekta
::::: po kreiranju. To znaci: ne sme da se desi da se objekat posle
::::: konstrukcije zatekne u nedefinisanom stanju. Konstruktori za to sluze.
Delimično, ali mi u ovom slučaju ne računamo na objekat već na njegovu
poziciju. Uslov je bio, sećaš se, da jedan konstruktor ne poziva metode
drugog unutar konstruktora. Konstruktor ne menja poziciju objekta u
memoriji, samim tim cross-construction je sasvim praktična i upotrebljiva
metoda. Nije NEOPHODNA, ali je korisna. ;)
Konstruktor, ima jednu i samo jednu ulogu, da inicijalizuje VMT polje
i time izvrši late-binding kako bi se mogle koristiti virtuelne metode.
Sve ostalo je filozofija. Samo telo konstruktora ti stoji na raspolaganju
da inicijalizuješ promenljive i time dovezeš objekat u vozno stanje.
Nizašta drugo.
::::: Ako je potrebno da se objektu doturi neka informacija posle
::::: konstrukcije, to vec nije posao konstruktora. Na primer, u Object
::::: Windows biblioteci svi objekti izvedeni iz TWindowsObject imaju pored
::::: konstruktora i funkciju SetupWindow, koja sluzi da se neposredno pre
::::: samog prikazivanja prozora na ekranu podese neki parametri koje nije
::::: bilo moguce podesiti u samom trenutku kreiranja objekta, jer tada jos
::::: nisu sve potrebne informacije bile na raspolaganju.
Ne vidim kakve to veze ima sa našim problemom. Mi ništa ne doturamo
alociranom nekonstruisanom objektu, niti je to moguće izvesti pošto VMT
polje još nije inicijalizovano. Mi samo računamo na njegov položaj u
memoriji.
::::: savovima pri prvom pokusaju modifikacije. Moje iskustvo pokazuje da je
::::: ponekad neverovatno korisno da program u startu ima koju liniju vise,
::::: jer se visestruko isplati pri kasnijoj modifikaciji programa
Stvar ukusa i stila, ja lično nemam takvih problema. Svoje sorsove
iscrpno komentarišem i kad ih kasnije pogledam mogu odmah iz komentara
da prokljuvim šta sam uradio i šta mogu i treba da menjam. Taj sistem +
modularnost je uvek bila moja deviza. A i kraći je prevedeni kod. ;)
::::: Odlozeni konstruktor nije potreban, jer je odnos TLabel-a prema view-u
::::: koga treba da aktivira cist client-server odnos: TLabel od pridruzenog
::::: mu TView-a zahteva da primi fokus, a pridruzeni view nema sta da zahteva
::::: od TLabel-a.
Nisam ni pominjao TLabel u pogledu odloženog konstruisanja već po
pitanju pravila. Dalje, TLabel i asocirani mu TView derivat nisu u
Client-server već u peer2peer vezi. Oba objekta su na istom nivou,
tj. klijenti nekog TGroup derivata (npr). TLabel ne može da primi fokus
(preko TAB tastera) ali može biti izabran u slučaju izbora mišem ili
preko ShortCut-a. Tada TLabel direktno saopštava TViewu da je izabran,
izbegavajući servera. Pravilan Client-server postupak bi bio da se
server obavesti da je taj i taj label izabran i da on prepušta komandu
tom i tom objektu. Dizajneri TVa su se opredelili za prvi sistem zato
što je brži, kraći a jednako efikasan. Nema tu nikakvog bag-a.
pascal.531djelovic,
-> #530, mmitrovic> samim tim cross-construction je sasvim praktična i upotrebljiva
> metoda. Nije NEOPHODNA, ali je korisna. ;)
Fakat.
Pri pravljenju OWL-a 2.0 ljudi u Borlandu su morali da prave mali trik kako
bi simulirali cross-construction i svaki put kada držim neki seminar dobro se
oznojim dok objasnim svima zašto je to tako :).
Ipak, između forsiranja poziva konstruktoru pri kreaciji objekta i
mogućnosti unakrsnog kreiranja objekta uvek ću izabrati ono prvo. Da ne
spominjem da je u C++-u moguće napraviti klasu TXConstructor čiji će svi
naslednici imati isto tako jednostavan X-construction kao što je to slučaj u
Pascalu :).
--
Ssve je to teoretisanje. Forsiranje poziva konstruktoru je ništa drugo do
zgodna stvar - čak i da neko u Paskalu zaboravi da pozove konstruktor dobiće
veoma lako uhvatljivu run-time grešku. Ono što je prava pomoć u programiranju
to je automatski poziv destruktoru koji C++ nudi, te su curenja memorije,
neotključane datoteke i sl. mnogo manji problem u C++-u nego u drugim jezicima.
pascal.532jankor,
>> Moze li se nekako upisati neki znak u donji desni ugao
>> ekrana a da isti ne 'odskroluje' za jedan red?
Mozda sam malo zakasnio al rekoh da posaljem
Moze da posluzi i sledeci program...Radi (garant) na svemu i svacemu
i ne pise direktno po memoriji...
uses crt;
begin
clrscr;
writeln(' Prva Linija');
gotoxy(78,25);
write('══');
window(80,24,80,25);
gotoxy(1,1);
write('╝');
gotoxy(1,1);
insline; { ovoga se niste sjetili? }
write('║');
window(1,1,80,25);
end.
>>> Cist racun , duga pik skocko herc <<<
pascal.533postmast,
From: veselin@galeb.etf.bg.ac.yu (Veselin Obradovic)
Subject: Re: TSR
Date: Fri, 23 Jun 1995 16:41:21 GMT
Molba, sve one koji su voljni da mi posalju ikakvo objasnjenje, source isl.
vezane za TSR-ove, trikove i druge cake, neka to ucine na mail:
veselin@urcpg.urc.cg.ac.yu
E, i unaprijed hvala.. (naravno na TP-u) :)))
pascal.534postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: asembler
Date: Thu, 22 Jun 1995 10:56:35
AB> zatim slijedece zasto sluzi MOV, INT, JMP, WORD, XOR, OFFSET itd.
Tebi bas treba neka literatura za assembler.
AB> Ako neko ima bilo kakvu TXT dat. o ASM da mi kaze gdje da je nabavim.
Mislim da bi mogao da se nadje ASM Norton Guide. Ja imam na BBS-u (Oreska)
neki ASM TUTOR, nije nesto bog zna, ali je zgodno za nekog ko tek pocinje.
... BR> Do not worry. This is just a TWILIGHT ZONE...
-+- OLMS 2.5 UNREG
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.535postmast,
From: Vasil.Bacovski@f108.n108.z38.setnet.setnet.co.yu (Vasil Bacovski)
Subject: printer
Date: Sat, 24 Jun 1995 01:16:06
Potrebna mi je rutina (TSR) koja moze da bilo kakav znak (ASCII) sto treba
da se pecati ispita, i potrebi da zameni da nekim drugim znakom.
Pr. na paralelan port (PRN) dolazi ASCII=65, i treba da propusti
na pr. ASCII 165.
Pozdrav, Vasil.
... Catch the Blue Wave!
-+- OLMS 2.5 UNREG
* Origin: SETNet: Struga BBS +389 96 74074 * Macedonia * (38:108/108)
pascal.536postmast,
From: alf@zmaj.etf.bg.ac.yu (Jakovljevic Dejan)
Subject: Delphi !!!
Date: Sat, 24 Jun 1995 02:54:09 GMT
'delfi' je stigao O:-))))
* Jakovljevic Dejan * ETF * Beograd * Srbija * alf@orao.etf.bg.ac.yu
____________________________________________________________________
... Press HangUp to ALT-H
pascal.537postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: Re: asembler
Date: Sun, 25 Jun 1995 11:45:48
PS> Tebi bas treba neka literatura za assembler.
Ne zezas?
Do sada sam radio u paskalu, ali bi volio nauciti u ASM.
U ostalom hvala na odgovoru.
imas mahanje
ASKO
... Ne spustaj slusaŰÎ@""IT NO CARRIER
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.538postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: RESET()
Date: Sun, 25 Jun 1995 11:45:48
Zdravo!
Imam neki problem u programu i mislim da cu ga vremenom rijesiti, ali
da vidim kako bi drugi to rijesili.
Naime radi se o BP7.0 koji mi prijavljuje Run time error 104
(file no open for input) a struktura je slijedeca :
procedure Pretraga;
var TrBrClana : String;
begin
repeat
Assign(F,'CLANOVI.DAT');
Reset(F);
{ dodaje na uneseni broj (npr. 1) jos nula (000001) }
While Length(TrBrClana) < 6 do TrBrClana := '0' + TrBrClana;
--=====> While not EOF(F) do <=====--
begin
ReadLn(F, Pom);
If Copy(Pom, 1, 6) = TrBrClana then
begin
Close(F);
Write(TrBrClana);
Write(Copy(Pom, 6, 30));
Write(Copy(Pom, 39, 28));
Write(Copy(Pom, 70, 15));
Write(Copy(Pom, 85, 11));
Keyer := ReadKey;
end;
end;
until TrBrClana = '';
end;
Prvi put kad se izvrsava, procedura uradi svoj posao ali kad se po drugi
put izvrsi prijavi gresku RTE 104 na liniji gdje su strelice.
Zna li iko zbog cega?
imate mahanje
ASKO
... Ko pjeva zlo ne misli, a ko misli nije mu do pjevanja.
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.539postmast,
From: Asmir.Badnjevic@f135.n135.z38.setnet.setnet.co.yu (Asmir Badnjevic)
Subject: TXT datoteke
Date: Sun, 25 Jun 1995 11:45:49
Zdravo!
Kako da u obicnim TXT dat. idem na odredjenu liniju tj. kako da procitam
(ima 100 linija) 50 podatak, onda 10, onda 23 itd. ..., i kako da promje
nim podatak u datoteci bez koristenja SWP datoteke (ucitam prvu dat. pod
atak koji trba promjeniti zamjenim za novi i upisem u drugu dat., onda d
rugu preimenujem u prvu).
imete mahanje
ASKO
... "Scotty, beam me up another Blue Wave message."
* Origin: Sveti Sava BBS Prijedor 079 11 629 SETNet: (38:135/135)
pascal.540trki,
Treba mi pomoc oko aktiviranja nekog uvecanog fonta na LASERJET-u.Znaci,neka
vrsta ESC-sekvence za promenu velicine fonta u LASERU , ko zna , molio bih ga
da mi pomogne ????
..
pascal.541dares,
U buri pitanja evo i mog:
Može li mi neko reći kako da natjeram rutine za misa da rade
i u grafickom modu na Hercules kartici? Pojavljuje mi se
sve samo ne mišiji pointer. Ako je o ovome već bilo reči
pomoglo bi i da me uputite na te poruke.
pascal.542dekik,
Imam jedan problem ine znam kako da ga resim pa bi molio u koliko neko zna da
mi napise mail.
Problem :
Imam Turbo Pascal 7.0 za win i ne znam kako da u svom programu
promenim boju teksta.Kako da je promenim?????
Pitanje :Da li sam ja glup ili Help????
DEJAN
pascal.544d.stamen,
-> #540, trki> Treba mi pomoc oko aktiviranja nekog uvecanog fonta na
> LASERJET-u.Znaci,neka
Mislim da ovo trazis-
Esc sekvenca Dec Hex
Primary height (# points)
ESC(s#V 027 040 115 #...# 086 1b 28 73 #...# 56
Primary pitch (# character/inch)
ESC(s#H 027 040 115 #...# 072 1b 28 73 #...# 48
pascal.545nlazic,
-> #539, postmast*> Kako da u obicnim TXT dat. idem na odredjenu liniju tj. kako da
*> procitam (ima 100 linija) 50 podatak, onda 10, onda 23 itd. ..., i
O ovome je bilo reči u jednom od Računara. Pogledaj u RIND-u ili
S:\RSOFT.
Pozdrav !
pascal.546nlazic,
-> #538, postmast*> Prvi put kad se izvrsava, procedura uradi svoj posao ali kad se po
*> drugi put izvrsi prijavi gresku RTE 104 na liniji gdje su strelice.
Kada prvi put nadješ odgovarajući TrBrClana ti zatvoriš datoteku (ispod
poslednje begin-a). Onda EOF (F) (u sledećem prolazu) ne može da ti vrati
odgovarajući podatak jer je datoteka zatvorena, pa ti se javlja RTE.
Ispravno bi bilo da posle onog Keyer := ReadKey; izadješ iz WHILE
petlje. (EOF ti neće vratiti TRUE (niti FALSE) ako je datoteka zatvorena,
već dobijaš RTE 104)
Pozdrav!
:) Nebojša :)
pascal.547pedjak,
-> #541, dares> Može li mi neko reći kako da natjeram rutine za misa da rade
> i u grafickom modu na Hercules kartici? Pojavljuje mi se
> sve samo ne mišiji pointer. Ako je o ovome već bilo reči
> pomoglo bi i da me uputite na te poruke.
Pogledaj po starijim PC.PROG:pascal temama, ostavio sam junit koji
radi i pod herkulesom (mouse.arj)
pascal.548vlador,
-> #538, postmast> --=====> While not EOF(F) do <=====--
...
> begin
> Close(F);
> ...
> end;
> end;
Obrati se sa pažnjom na kom mestu zatvaraš fajl. :)
pascal.549mmitrovic,
-> #531, djelovic::::: Ssve je to teoretisanje.
Naravno. Cross-construction skoro nikad ne koristim, samim tim ni
odloženo konstruisanje. Hteo sam samo da vidim može li se to u C++.
pascal.550dares,
-> #547, pedjak
> Pogledaj po starijim PC.PROG:pascal temama, ostavio sam junit koji
> radi i pod herkulesom (mouse.arj)
Pogledao, skinuo, probao i radi super. Danke....
pascal.551mindza,
Hello,moze li neko da mi posalje neki primer i objasni
kako iz TP7.0 da promenim kodni raspored,tj. da umesto
bilo kog ASCII karaktera imam svoj znak.
Unapred hvala,
Mindza.
pascal.552mindza,
Hello,moze li neko da mi posalje neki primer i objasni
kako iz TP7.0 da promenim kodni raspored,tj. da umesto
bilo kog ASCII karaktera imam svoj znak.
Unapred hvala,
Mindza.
pascal.553nlazic,
-> #552, mindza*> Hello,moze li neko da mi posalje neki primer i objasni
*> kako iz TP7.0 da promenim kodni raspored,tj. da umesto
*> bilo kog ASCII karaktera imam svoj znak.
Probaj sa ovim primerom. Sa istim programom, uz minimalne izmene, možeš
ta promeniš ceo font, a ne samo jedan karakter.
---------------------------------------------------------------------------
Unit ChChar;
INTERFACE
Type
CharShape = Array[1..16] of Byte;
Const
CRLeft: CharShape=(0,31,48,99,198,140,140,140,140,140,140,198,99,48,
31,0); { Ovo je primer definicije novog znaka }
procedure ChangeChar(CharCode: Byte; var NewShape: CharShape);
IMPLEMENTATION
Uses Dos;
procedure ChangeChar(CharCode: Byte; var NewShape: CharShape);
var Regs:registers;
Begin
regs.ah:=$11;
regs.al:=0;
regs.bh:=16; { Broj bajtova po karakteru }
regs.bl:=0;
regs.cx:=1; { Ukupno karaktera u tabeli }
regs.dx:=CharCode; { Kod prvog karaktera }
regs.es:=seg(NewShape);
regs.bp:=ofs(NewShape);
intr ($10,regs);
End;
End.
------------------------------------------------------------------------
Pozdrav,
:) Nebojša :)
pascal.554jasicp,
Ima li neko ideju kako se u bafer objekta ClipBoard ili bilo kog drugug
TEdit objekta, ucitava deo textualnog fajla. Ne pomocu BlockRead nego
pomocu ReadLn. Linija po linija.
Ovu operaciju treba da ponavlja cesto, tako sto ce se buffer editora
pre svakog novog punjenja prazniti. Kako se prazni? Pomocu DoneBuffer ili
slicno. Napominjem da treba postaviti velicinu bafera pre punjenja TCNO na
unapred predvidjenu velicinu koja ce se i ucitati. Ni manje ni vise.
pascal.555postmast,
From: mtesa@ELF.bl.ac.yu
Subject: speakerTSR
Date: Tue, 27 Jun 1995 08:26:50 GMT
Da li neko zna nacin za preusmjeravanje svega sto ide speaker-u na paralelni
port ??
thanx
pascal.556postmast,
From: ivan.jocic@sirius.durlan.co.yu (Ivan Jocic)
Subject: Re: asembler
Date: Mon, 26 Jun 1995 08:53:00 CET
To: Asmir Badnjevic
PS> Tebi bas treba neka literatura za assembler.
AB> Ne zezas?
AB> Do sada sam radio u paskalu, ali bi volio nauciti u ASM.
AB> U ostalom hvala na odgovoru.
Pa rekoh ti imas na mom BBS-u mnogo sto se toga tice. Pozovi me:
Sirius BBS, 018/711-667, 23-08
Shadow
--- Blue Wave/RA v2.12 [NR]
* Origin: BBLink <tm> * Sirius BBS * +381 18 711667 * W.T: 23 - 08
(2:382/105.6) #! rnews 3911
pascal.557postmast,
From: veselin@galeb.etf.bg.ac.yu (Veselin Obradovic)
Subject: literatura za TPW
Date: Wed, 28 Jun 1995 06:46:13 GMT
Znate li gdje ima dobre literature za TPW?
pascal.558nlazic,
-> #554, jasicp*> Ima li neko ideju kako se u bafer objekta ClipBoard ili bilo kog
*> drugug TEdit objekta, ucitava deo textualnog fajla. Ne pomocu
*> BlockRead nego pomocu ReadLn. Linija po linija.
Nezgodno je (ali ne i nemoguće) direktno brljati po baferu TEditora i
braće. Najzgodnije je da ceo posao prepustiš originalnim metodama ovog
objekta. Probaj sa metodom InsertText (ovo je njena deklaracija):
function InsertText (Text: Pointer; Length:Word; SelectText:Boolean):Boolean;
Text pokazuje na string koji ubacuješ u editor, a koji si prethodno
pročitao iz datoteke sa ReadLn; Length je njegova dužina; SelectText
govori da li da ubačeni tekst bude selektovan.
Sa ovim metodom možeš "iz cuga" da ubaciš u editor i tekst veći od 255
znakova - celu ili deo datoteke (manje od 64K, naravno).
*> Ovu operaciju treba da ponavlja cesto, tako sto ce se buffer
*> editora pre svakog novog punjenja prazniti. Kako se prazni? Pomocu
Prvo selektuješ ceo tekst, sa SetSelect, a onda ga obrišeš sa
DeleteSelect.
Pozdrav,
:) Nebojša :)
pascal.559smarkov,
-> #555, postmast> Da li neko zna nacin za preusmjeravanje svega sto ide speaker-u na
> paralelni port ??
Lemilica ?
pascal.560janko,
-> #541, dares> Može li mi neko reći kako da natjeram rutine za misa da
> rade i u grafickom modu na Hercules kartici? Pojavljuje
> mi se sve samo ne mišiji pointer. Ako je o ovome već bilo
> reči pomoglo bi i da me uputite na te poruke.
Trik je u setovanju određeenog flega u memoriji koju održava BIOS, da
bi drajver za miša prepoznao da je reč o Herkulesu. Ako detektuješ
u programu herc karticu, treba da uradiš, pre inicijalizacije miša:
mem(. $40:$49 .):=6;
a ostalo je sve isto kao i za druge kartice.
Sa ovim trikom, juniti ti ne trebaju, a program ti ostaje kompatibilan i
sa drugim karticama... ako paziš :)
pascal.561jasicp,
-> #558, nlazic> Prvo selektujes ceo tekst, sa SetSelect, a onda ga obrises sa
> DeleteSelect.
Da, radio sam otprilike tako. ALi, zasto PEditor^.DoneBuffer ne
likvidira bafer editora i njegov sadrzaj ? Sa InitBuffer sam mislio da ga
ponovo formiram, medjutim stari sadrzaj ostaje u njemu. SetBufSoze bi
trebalo da mu odredi fizicku velicinu u bajtovima (0-65536) ali da li to
stvarno i radi ? Ni u dokumentaciji ni u helpu nema mnogo o tome, a u
source-u sve izgleda OK.
pascal.562nlazic,
-> #561, jasicp*> Da, radio sam otprilike tako. ALi, zasto PEditor^.DoneBuffer
*> ne likvidira bafer editora i njegov sadrzaj ? Sa InitBuffer sam
*> mislio da ga ponovo formiram, medjutim stari sadrzaj ostaje u
*> njemu.
Ne znam tačno zašto to ne radi. DoneBuffer bi trebalo da promenljivu
Buffer, koja inače pokazuje na dotični bafer u memoriji, postavi na nil,
ali kol'ko ja znam to baš neće svaki put. U ostalom Borland i preporučuje
da se ne brlja direktno po baferima editora. Pri tome je, izgleda, jedini
"oficijelni" način da obrišeš tekst iz editora (ne računajući ovo sa
SetSelect i DeleteSelect), da uništiš kompletan editor, a to, kao što i sam
znaš, nije uvek zgodno.
Javi ako otkriješ u čemu je fazon :)
*> SetBufSoze bi trebalo da mu odredi fizicku velicinu u bajtovima
*> (0-65536) ali da li to stvarno i radi ? Ni u dokumentaciji ni u
Ne radi. SetBufSize je Boolean f-ja koja vraća True ako je MOGUĆE
promeniti veličinu edit bafera na traženu vrednost (kao kad nekog pitaš
"Jel znate kol'ko je sati?", a on ti kaže "Znam." :) ). Stvarna promena
veličine bafera radi se sa SetBufferSize, koja je "samostalna" funkcija, a
ne metod u okviru editora.
Pozdrav,
:) Nebojša :)
pascal.563postmast,
From: Amir.Zolic@f115.n103.z38.setnet.setnet.co.yu (Amir Zolic)
Subject: pascal
Date: Fri, 30 Jun 1995 01:17:01
-=> Quoting "Dejan Krstic" to All <=-
"K> Imam jedan problem ine znam kako da ga resim pa bi molio u koliko neko
"K> zna da mi napise mail.
"K> Problem :
"K> Imam Turbo Pascal 7.0 za win i ne znam kako da u svom
"K> programu promenim boju teksta.Kako da je promenim?????
"K> Pitanje :Da li sam ja glup ili Help????
Ako programiras pod Windowsima, onda imas funkcije SetTextColor()
i SetBKColor().
Pozdrav
Amir
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.564postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak)
Subject: Pascal
Date: Sun, 02 Jul 1995 01:19:00 CET
QWK To: Predrag Jasic
(Tekst poruke: Predrag Jasic, na temu PASCAL)
> Moze i 7.0. TP, naravno. Za BP je potrebno imati 286.
PJ> Ne isplati se raditi sa 7.0 jer za sve sto ima novo u odnosu na
PJ> 6.0 , a
PJ> da to novo vredi, treba mnogo memorije. 6.0 ima sve sto
PJ> treba ,ne
PJ> racunajuci neke objekte i nove naredbe, ali tesko je sa tim raditi na
PJ> XT -u.
Kad vec krenuste unazad... Za rad na XT-u, inace masini na kojoj kucam
ovaj tekst ;) :( , ako bas 'oces komfor IDE-a, uzmi TP 6.0 . Ako ti se ne
daje 400 kila memorije za sljastavo/bljestavo okruzenje, "pet i po" ti
radi isti posao. A ako si perfekcionista, uzmi TopSpeed r3.02 Paskal.
3OPAH
... └┼O┌┘─└┐E ┌┐A┌E 983 - H A J 3 A ┌┘─└┐ ┼┐ │/│ P │/│ /\ │/│ └┼ A !
--- Blue Wave/RA v2.12 [NR]
* Origin: BBLink <tm> * Rolling Stones * 018.325.314 * Nis (2:382/105.5) #! rnews 1370
pascal.565postmast,
From: zoran.rilak@rstones.durlan.co.yu (Zoran Rilak)
Subject: Txt datoteke
Date: Mon, 03 Jul 1995 05:29:00 CET
QWK To: Asmir.badnjevic@f135.n135
(Tekst poruke: Asmir.BadnjevicAsmir.Badnjevic@f135.N135135.N135, na temu TXT
DATOTEKE)
As> Kako da u obicnim TXT dat. idem na odredjenu liniju tj. kako da
As> procit am
As> (ima 100 linija) 50 podatak, onda 10, onda 23 itd. ..., i kako da
As> prom je
As> nim podatak u datoteci bez koristenja SWP datoteke (ucitam prvu dat.
As> p od
As> atak koji trba promjeniti zamjenim za novi i upisem u drugu dat.,
As> onda d
As> rugu preimenujem u prvu).
Resenje 1)
U TP-u postoji procedura SEEK kojom mozes da skocis na koje god hoces mesto
u datoteci. Potrazi u on-line help-u malo detaljnije o tome, sigurno ces
naci, ja sam zaboravio (davno bese... ;) )
Resenje 2)
Opet jednostavno. Ako ti je poznata pozicija zapisa koji menjas,
pozicioniras se na njega i Writnes novu vrednost. Nista lakse!
3OPAH
--- Blue Wave/RA v2.12 [NR]
* Origin: BBLink <tm> * Rolling Stones * 018.325.314 * Nis (2:382/105.5) #! rnews 1636
pascal.566paki,
Koliko vidim, u Delfima se sav rad s bazama podataka obavlja
preko DataSource i data-aware kontrola. To mi zadaje probleme:
Ne želim da u DBGridu prikažem polje s grafikom (tamo bi se ono
prikazalo u obliku <BLOB Graphic>), pa ga u tu svrhu isključim iz
tabele pomoću Fields Editora (dvoklik na Table). Tu grafiku bih
želeo da prikažem u posebnoj kontroli, npr. DBImage. Međutim,
DBImage mi onda u polju DataField ne da pristup polju s grafikom.
Da li postoji alternativni način da pristupim tom polju? Mislio
sam da napišem svoju kontrolu, ali kako je onda povezati sa
DataSourceom (da bih mogao da prikazujem odgovarajuću sliku, u
zavisnosti od korisnikovog položaja u tabeli)?
Odgovaralo bi mi i da grafiku ne isključujem pomoću Fields
Editora (pošto, koliko vidim, to onda znači da joj pristup uopšte
nije moguć - ili bar ne na lak način), već da je isključim tek u
Gridu. Može li to?
pascal.567vgenije,
HI
Mucim muku sa turbovizijom odnosno dijalozima.
Elem,imam pitalicu sa 6 ponudenih resenja koja su postavljena u
kvadratice.Izbor moze da bude samo jedan.Kada odaberem jedno resenje on
ga odmah prosledi u proceduru koja konstatuje itd..
(npr if (u kvadratu odabiram Kupi) then c:=5) Mislim izgleda kretenski
ali bolje da ga slikovito objasnimnego da pisem 5 puta..
Fala unapred.Jos ako neko ima neko slicno programce neka ga baci na Brzi
Sezam ako je ovde malo vremena-dugacak prenos
pascal.568supers,
-> #527, dejanr>>>> Koja je najnovija verzija TP koja može da radi na XT-u?
>>
>> TP 5.5 pouzdano radi, a verujem i 6.0.
Koliko je razlika između šestice i 5.5, šta sve ovaj drugi ne može?
Da znam da li da se vraćam na 5.5 radi iskorišćenja jednog XT-a.
pascal.569postmast,
From: Prodanovic.Sladjan@f119.n111.z38.setnet.setnet.co.yu (Prodanovic Sladjan)
Subject: Re: pascal
Date: Tue, 04 Jul 1995 02:23:00
>> Da li neko zna nacin za preusmjeravanje svega sto ide speaker-u na
>> paralelni port ??
"M> Lemilica ?
Ne no saobracajac.
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.570postmast,
From: Sebastian.Adanko@f107.n111.z38.setnet.setnet.co.yu (Sebastian Adanko)
Subject: pascal
Date: Mon, 26 Jun 1995 22:53:31
Quoting Adela to Sebs. 90% verovatnoce da sam pogodio.
>> Koja je najnovija verzija TP koja moze da radi na XT-u?
"R>
"R> TP 5.5 pouzdano radi, a verujem i 6.0.
6 radi definitivno, posto to koristimo u skoli. A, mozda radi i 7,
ali za to bi trebalo da sacekate tri meseca da probam. :)
//PhuZZy LoGiK//V.B.C.//
... RAAAAASSPUUUUUUUUUUUUUSSSSSSSSSSTTTTTTTTTTTTTTT!!!!!!!!!!!!!!!!!!!!!!!
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.571nlazic,
-> #568, supers*> Koliko je razlika između šestice i 5.5, šta sve ovaj drugi ne može?
Najbitnija razlika je u tome što se uz 5.5 ne isporučuje Turbo Vision.
Mislim da je zbog toga ova cifra "polovična" i pored toga što 5.5 unosi u
paskal objekte, što je itekako veliki korak napred, ali bez neke biblioteke
klasa ne može se ozbiljnije govoriti o objektnom programiranju. Ima još
nekih razlika (IDE i sl.), ali ako ne nameravaš da koristiš TVision, 5.5 će
ti završiti posao. Inače, na XT-u će raditi i TP 7.0.
Pozdrav,
:) Nebojša :)
pascal.572nlazic,
-> #567, vgenije*> Elem,imam pitalicu sa 6 ponudenih resenja koja su postavljena u
*> kvadratice.Izbor moze da bude samo jedan.Kada odaberem jedno resenje
*> on ga odmah prosledi u proceduru koja konstatuje itd..
*> (npr if (u kvadratu odabiram Kupi) then c:=5) Mislim izgleda
Najlakše je da to uradiš pomoću RadioButtons-a, onda ne treba da se
zesaš ni sa kakvim procedurama koje konstatuju odgovor. Ako i dalje nije
jasno, šaljem ti primer upotrebe RadioButtons-a. :)
Pozdrav,
:) Nebojša :)
radios.zippascal.573supers,
-> #571, nlazic>> nekih razlika (IDE i sl.), ali ako ne nameravaš da koristiš
>> TVision, 5.5 će ti završiti posao. Inače, na XT-u će raditi i TP
>> 7.0.
Hvala svima na savetima.
pascal.574vgenije,
HI
Kako da nadem n-ti koren nekog broja x?
i jos jedan problemcic imam malko tezi
elem,hocu da napravim rezidentni program koji na pritisak ctrl-c(ili
neka druga kombinacija) odradi odredeni deo prorama tipa
if ctrl-x aktivno then begin
end;
pozdrav
pascal.575paki,
-> #566, paki> Odgovaralo bi mi i da grafiku ne isključujem pomoću Fields
> Editora (pošto, koliko vidim, to onda znači da joj pristup uopšte
> nije moguć - ili bar ne na lak način), već da je isključim tek u
> Gridu. Može li to?
Večeras sam otkrio da može, i to pomoću Fields[].Visible.
BTW, ima li ovde (ili u temi windows, u koju sam najverovatnije
trebao da okačim prvobitnu poruku) još neko ko radi s Delfima?
pascal.576nlazic,
-> #574, vgenije*> Kako da nadem n-ti koren nekog broja x?
Mislim da je najjednostavnije ovako:
Exp(ln(x)/n)
*> elem,hocu da napravim rezidentni program koji na pritisak ctrl-c(ili
*> neka druga kombinacija) odradi odredeni deo prorama tipa
Za ovo će ti trebati tabela scan kodova raznih tastera. Naime, kada se
neki taster pritisne njegov scan kod se može pročitati sa porta $60, a
stanje Ctrl-a, Alt-a i ostalih, se čita sa adrese $40:$17. Šaljem ti
programče koje reaguje na Ctrl+C, a ti javi jel' to ono što ti je trebalo.
Pozdrav,
:) Nebojša :)
demotsr.zippascal.577nlazic,
-> #575, paki*> BTW, ima li ovde (ili u temi windows, u koju sam najverovatnije
*> trebao da okačim prvobitnu poruku) još neko ko radi s Delfima?
Ja sam probao Delphi i odušljevljen sam :) Nažalost još uvek nemam
mašinu na kojoj se može udobno raditi pod Delphi-em, ali nadam se da ću se
uskoro proširiti, pa se onda uključujem u raspravu :)
Pozdrav,
:) Nebojša :)
pascal.578saricl,
Mož li neko da mi objasni razliku između
TSR programa, DEVICE drivera, i INTERRUPT rutine.
Zanima me kad se čemu obraća sistem i u čemu je razlika.
Naime preko čega ide komunikacija kad se upisuje bajt
na neki uređaj, kad se ččita bajt i posebno šta se
desi kad uređaj zatraži interrupt.
pascal.579evlad,
-> #578, saricl<> Zanima me kad se čemu obraća sistem i u čemu je razlika.
Sve u compu radi na interrupt (tačka)
postoje hardverski i softverski.
Prioritet interapta se određuje pomoću _kontrolnih reči_ koje se upisuju
u interapt kontroler 8259 ... U pc-ju imaš dva master i slave ...
<> Naime preko čega ide komunikacija kad se upisuje bajt
<> na neki uređaj, kad se ččita bajt i posebno šta se
Zavisi koji uređaj i kako se upisuje / čita
<> desi kad uređaj zatraži interrupt.
To obrađuje interapt kontroler i sve zavisi u kom modu rada je ...
U intel-ovom katalogu je to opisano na preko 20 stranica što je ipak
mnogo da ovde tupim ...
pascal.580saricl,
Program PrekidProba;
Uses DOS,CRT;
Var Skok:Procedure;
Procedure Prekid; Interrupt;
Begin
InLine($9C);
Writeln('Zahtev za prekid');
Delay(3000);
Skok;
End;
Begin
ClrScr;
GetIntVec($09,@Skok);
SetIntVec($09,@Prekid);
Delay(3000);
End.
Dali mi neko može objasniti kako tačno radi ovaj program?
Zanima me šta je ono Inline(ć9C), i zašto mi se kada ga starujem
na ekranu dva puta ispiše "Zahtev za prekid"?
Takođe me zanima kako to da i nakon povratka sve funkcioniše kad
nigde nije vraćena adresa originalne rutine za opsluživanje prekida.
pascal.581zeljkoj,
-> #570, postmast> 6 radi definitivno, posto to koristimo u skoli. A, mozda radi i
> 7, ali za to bi trebalo da sacekate tri meseca da probam. :)
TP 7 radi sigurno, a BP 7 zahteva 286.
pascal.582evlad,
-> #580, saricl<> Dali mi neko može objasniti kako tačno radi ovaj program?
Da :)
<> Zanima me šta je ono Inline($9C), i zašto mi se kada ga starujem
<> na ekranu dva puta ispiše "Zahtev za prekid"?
$9c == pushf (flag registar snimi na stack)
(skini sa sezam dir-a techelp i helppc pa će ti biti jasnije ...)
<> Takođe me zanima kako to da i nakon povratka sve funkcioniše kad
<> nigde nije vraćena adresa originalne rutine za opsluživanje prekida.
Well ovako nekako ...
<> Var Skok:Procedure; <---- ovde ti je sačuvana originalna adresa
interrupta 9
<> Procedure Prekid; Interrupt; <---- deklaracija interrupt procedure
<> Begin
<> InLine($9C); <---- flag registar baca na stack
zbog turbo paskal mehanizma :(
<> Writeln('Zahtev za prekid');
<> Delay(3000);
<> Skok; <----- izvrši originalni interrupt
tako da ti i dalje sve normalno radi ...
<> End;
ovim delom si samo izvršio _hook_ na interrupt 9
<> ClrScr;
<> GetIntVec($09,@Skok);
<> SetIntVec($09,@Prekid);
<> Delay(3000);
što znači da će ubuduće sistem pozivati _tvoj_ interrupt, a u njemu
ti ispišeš tekst i odradiš originalni interrupt ...
Thats all.
pascal.583opsudkg,
-> #577, nlazic>> Ja sam probao Delphi i odušljevljen sam
Me too, prvi utisci su više nego povoljni. But...
Imam 'malih' problema sa uvozom par FoxPro tabela preko
ODBC - a.
Kreirao sam FoxPro ODBC driver iz BDE config utilitya a
zatim i odgovarajući alias sa pathom postavljenim na dir sa Fox
tabelama. Međutim, pri otvaranju baze bilo iz Database desktopa
bilo iz samog Delphija ( TTable.DatabaseName = FoxPro_Alias ) uporno
izbacuje spisak tabela iz nekog sasvim desetog dira (
delphiĐrptsmithĐvideo ?!? koji se baš nigde ne pominje u
mnogobrojnim setovanjima ) i fox tabele se vide tek ako ih prebacim
tamo. Any hints ?
Takođe mi se nije dopalo što iz Database desktopa nije moguće
editovati Paradox Graphic polja nego te 'dobronamerno' posavetuju da
kupiš Paradox for Win :(.
>> nemam mašinu na kojoj se može udobno raditi pod Delphi-em, ali
>> nadam se da ću se uskoro proširiti, pa se onda uključujem u
>> raspravu :)
Na mojoj mašini ( DX2/66/8 - za današnje vreme ispod proseka )
Delphi se startuje za 11 sekundi ( ne znam otkud DejanR - u ono
"između pola minuta i minut", ne verujem ga je probao na slabijoj
konfiguraciji od moje ) i radi sasvim pristojno, osetno brže nego,
recimo, VB4.
pascal.584nlazic,
-> #580, saricl*> Dali mi neko može objasniti kako tačno radi ovaj program?
*>
*> Zanima me šta je ono Inline(ć9C), i zašto mi se kada ga starujem
*> na ekranu dva puta ispiše "Zahtev za prekid"?
*> Takođe me zanima kako to da i nakon povratka sve funkcioniše kad
*> nigde nije vraćena adresa originalne rutine za opsluživanje prekida.
Inline ($9C) je isto kao da si napisao ASM PUSHF END; dakle gura
flegove na stek. Ovo je obavezno da se uradi pre nego što se pozove
originalna procedura za obradu prekida. Ta se procedura, međutim, nigde u
tvom programu ne poziva, pa je i InLine nepotreban.
Originalna adresa za opsluživanje prekida, kao što kažeš, nigde nije
vraćena, i to je razlog zašto program NE radi - probaj da ga startuješ iz
DOS-a, a ne u okviru IDE-a koji ne dozvoljava da program tako lako sruši
sistem. Trebalo bi da posle završetka rada programa tastatura ostane skroz
zablokirana, a verovatna je i neka RTE, ako ne i nešto gore.
Pozdrav,
:) Nebojša :)
P.S. Nemoj eksplicitno da pozivaš interapt proceduru. Ona se startuje sama
(tj. startuje je OS) kada se desi prekid za koji je zakačena.
P.P.S. U poruci 7.576 sam ostavio rezidentno programče koje reaguje na
Ctrl+C, pa pogledaj ako te zanima. :)
pascal.585nlazic,
-> #582, evlad*> što znači da će ubuduće sistem pozivati _tvoj_ interrupt, a u njemu
*> ti ispišeš tekst i odradiš originalni interrupt ...
Ovo će raditi samo u buduće 3 sekunde, dok se program ne izbriše iz
memorije. Posle toga se gubi trag njegovoj proceduri za obradu prekida
koja, između ostalog, poziva i onu originalnu, pa tastatura ostaje
blokirana. Ako bi on ostao rezidentan, onda je već druga priča. :)
Pozdrav,
:) Nebojša :)
pascal.586nlazic,
-> #584, nlazic*> originalna procedura za obradu prekida. Ta se procedura, međutim,
*> nigde u tvom programu ne poziva, pa je i InLine nepotreban.
*> P.S. Nemoj eksplicitno da pozivaš interapt proceduru. Ona se startuje
*> sama (tj. startuje je OS) kada se desi prekid za koji je zakačena.
Ooops. Lupih, pa ostadoh živ :). Brža mi ruka (tastatura) od mozga.
Nisam obratio pažnju na red GetIntVec ($09,@Skok). Ovim vezuješ staru
rutinu za obradu prekida za promenljivu Skok, kojom je kasnije, iz svoje
procedure, pozivaš. Zbog ovoga se moraju flegovi gurnuti na stek, pomoću
InLine. Veeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeliko izvinjenje. :)))))
Osim ovoga, sve ostalo što sam rekao stoji. Po završetku programa,
tastatura će ipak ostati zablokirata jer nije vraćena originalna interapt
rutina, a tvoja je "zaboravljena" jer je program završio sa radom. Da je
ostao rezidentan (pomoću Keep(0) na kraju) sve bi bilo ok.
Pozdrav,
:)Nebojša :)
pascal.587nlazic,
-> #583, opsudkg*> Na mojoj mašini ( DX2/66/8 - za današnje vreme ispod proseka )
*> Delphi se startuje za 11 sekundi ( ne znam otkud DejanR - u ono
*> "između pola minuta i minut", ne verujem ga je probao na slabijoj
*> konfiguraciji od moje ) i radi sasvim pristojno, osetno brže nego,
*> recimo, VB4.
Ja imam 386/20/4 i dizanje Delphi-a traje minut i petnaest sekundi.
Teško da je podnošljivo :)
Pozdrav,
:) Nebojša :)
pascal.588vitez.koja,
-> #580, saricl#=> Dali mi neko može objasniti kako tačno radi ovaj
#=> program?
Verujem da ne radi nikako. Prvo, ne valja u interapt procedurama
ostajati mnogo vremena, a 3 sekunde je MNOGO. Drugo, ne smeš da
koristiš writeln i slične funkcije. Treće, $9C je kod mašinske
instrukcije PUSHF, koja se stavlja _tačno ispred_ poziva
originalnom interapt hendleru, a nikako ispred nekih drugih
naredbi.
Pregledaj PC.PROG konferencije (probaj sa find: inter), sve je do
detalja objašnjeno već mnogo puta.
pascal.589dejanr,
-> #583, opsudkg>> Na mojoj mašini ( DX2/66/8 - za današnje vreme ispod proseka )
>> Delphi se startuje za 11 sekundi ( ne znam otkud DejanR - u ono
>> "između pola minuta i minut"
Stvarno čudno, evo na 90 MHz Pentiumu sa 16 M memorije se podigne
za 33 sekunda. Koliko ti je stavljeno da Windows koristi keša?
pascal.590saricl,
-> #585, nlazic!!! koja, između ostalog, poziva i onu originalnu, pa tastatura ostaje
!!! blokirana. Ako bi on ostao rezidentan, onda je već druga priča. :)
Pa ne ostaje blokirana, ali je problem u tome što se na ekranu
ispiše dva puta "Zahtev za prekid" kao da se cela stvar izvršava
dva puta. Kako ovo da izbegnem. (bez pozivanja originalne
procedure, samo ispis i povratak na originalnu proceduru bez
izvršavanja.
pascal.591saricl,
-> #584, nlazic!!! Originalna adresa za opsluživanje prekida, kao što kažeš, nigde nije
!!! vraćena, i to je razlog zašto program NE radi - probaj da ga startuješ iz
Pa stvar je u tome da sve ovo radi i to me baš i zbunjuje,
ništa se ne blokira, a bez InLine 9C neće da radi (zablokira se)
Ovo je inače delić programa koji je ojavio Vitez.koja u bajtovi
lične prirode, ali je malo promenjen.!!! P.S. Nemoj eksplicitno da pozivaš
interapt proceduru. Ona se startuje
!!! sama (tj. startuje je OS) kada se desi prekid za koji je zakačena.
P.S. Kako to misliš explicitno je pozivam, zar postoji i neki drugi način??
pascal.592saricl,
-> #588, vitez.koja!!! Verujem da ne radi nikako. Prvo, ne valja u interapt procedurama
!!! Pregledaj PC.PROG konferencije (probaj sa find: inter), sve je do
Radi! Inače je izmenjena procedura koju si ti poslao pre izvesnog
vremena u Bajtove lične prirode. Inače od literature imam TP6.0
Od Stephena O'Briena i nije mi baš najjasniji ovaj sistem interapta.
Može li malo određeniji pointer na conf kad se raspravljalo o int.
(vremenski).
Kako drugačije da zamenim originalnu proceduru a da se posle vratim
na nju ako to ne definišem vremenski, i zašto nesmem koristiti
Writeln funkciju?
Ono što meni treba je da nakon poziva interrupta 5 (IRQ5) procedura
pročita reč podatka (16Bita) sa adrese 278h i da to što je pročitala
upiše na disk u neku datoteku. Patim se već dve nedeljei nisam mrdnuo
dalje od početka.
pascal.593saricl,
Postoji li mogućnost da se napravi programče koje će
po potrebi izvršiti maskiranje nekog hardwerskog
interrupta, odnosno dali možda postoji u samom
sistemu tabela, ili lokacija koja označava koji
su interrupti dozvoljeni a koji ne?
(Neki uređaj zatraži zahtev za interrupt, a sistem se
na to ne osvrće.)
pascal.594opsudkg,
-> #589, dejanr>> za 33 sekunda. Koliko ti je stavljeno da Windows koristi keša?
Nakon malo eksperimentisanja veličinu keša sam postavio na samo
256k. BTW, spuštanjem keša ispod 0.5MB cela baterija zahtevnih
windows programa se naprosto preporodila u ostatku od onih tesnih
8MB.
P.S. Instalirao sam disketnu verziju Delphi-a, ne znam ima li nekih
razlika u odnosu na CD instalaciju ( osim 11:33+ ;).
pascal.595evlad,
-> #592, saricl<> Ono što meni treba je da nakon poziva interrupta 5 (IRQ5) procedura
<> pročita reč podatka (16Bita) sa adrese 278h i da to što je pročitala
<> upiše na disk u neku datoteku. Patim se već dve nedeljei nisam mrdnuo
<> dalje od početka.
Idejno rešenje:
- get interupt 5
- set interrupt saricl
- <petlja>, if buffer prazan ondaK read bufer, write to disk
- stay resident
- interupt procedura saricl
- čitaj port (sa funkcijom rp := portW[$278])
- upiši vrednost u buffer
- kaži 59-ci da je interupt gotov ;>
- kraj interrupta
pogledaj primer iz računara ZZ je pisao na temu COM portova ...
imaš i u knjizi A.Radovanovića _Modemske komunikacije_ doduše u pitanju
je _c_ ali princip je isti ...
pascal.596nlazic,
-> #593, saricl*> Postoji li mogućnost da se napravi programče koje će
*> po potrebi izvršiti maskiranje nekog hardwerskog
*> interrupta, odnosno dali možda postoji u samom
*> sistemu tabela, ili lokacija koja označava koji
*> su interrupti dozvoljeni a koji ne?
*>
*> (Neki uređaj zatraži zahtev za interrupt, a sistem se
*> na to ne osvrće.)
Ako napišeš interapt proceduru koja ne radi ništa (ne poziva ni
orginalnu int. proceduru) i zakačiš je za neki prekid iz interapt tabele,
sistem se neće odazivati na taj int. (u stvari startovaće se tvoja
procedura koja ne radi ništa). Taj interapt, dakle, nikad neće biti valjano
obrađen. Da li si to hteo da uradiš?
Pozdrav,
:) Nebojša :)
pascal.597nlazic,
-> #592, saricl*> Može li malo određeniji pointer na conf kad se raspravljalo o int.
*> (vremenski).
Pogledaj poruke 7.334, 7.344 i 7.348 (od 4 do 6 maja 1995.)
*> vremena u Bajtove lične prirode. Inače od literature imam TP6.0
*> Od Stephena O'Briena i nije mi baš najjasniji ovaj sistem interapta.
Ta knjiga u principu nije loša, ali je puna štamparskih grešaka, i to
pogotovu u delu o interaptima. Kaži šta ti nije jasno, pa da probamo
zajedno da razjasnimo :)
Pozdrav,
:) Nebojša :)
pascal.598nlazic,
-> #591, saricl*> P.S. Kako to misliš explicitno je pozivam, zar postoji i neki drugi
*> način??
Interapt proceduru nikada ne pozivaš direktno iz programa. Nju poziva
OS kada se dogodi interapt za koji je ova zakačena. Na to sam mislio kada
sam ono napisao, ali sam kasnije video da ti to u programu i ne radiš, pa
sam se u sledećoj poruci ispravio. Nadam se da nema zabune :)
Pozdrav,
:) Nebojša :)
pascal.599nlazic,
-> #590, saricl*> Pa ne ostaje blokirana, ali je problem u tome što se na ekranu
Jedini način da tastatura ne ostane zablokirana je da neko/nešto po
završetku rada programa vrati interapt tabelu u originalno stanje. To radi
Borlandov IDE tako da program prividno radi ispravno kada se startuje iz
njega. Zato sam napisao da program startuješ is čistog DOS-a: tu se blokira
garant :).
Pozdrav,
:) Nebojša :)
pascal.600pirke,
-> #589, dejanr>>> Stvarno cudno, evo na 90 MHz Pentiumu sa 16 M memorije se podigne
>>> za 33 sekunda. Koliko ti je stavljeno da Windows koristi kesa?
Stvarno cudno... BEZ 32-bitnog pristupa kod mene se na 486/40/16M
dize za 17 sekundi. cache=1M. Da mogu da ukljucim 32bit disk i file...
pascal.601mmitrovic,
-> #585, nlazic::::: Ovo će raditi samo u buduće 3 sekunde, dok se program ne izbriše iz
Ne, radiće 3 sekunde + 2*3 sekunde za svaki taster koji je
pritisnut. (Vidi ostale odgovore za objašnjenje).
pascal.602mmitrovic,
-> #590, saricl::::: Pa ne ostaje blokirana, ali je problem u tome što se na ekranu
::::: ispiše dva puta "Zahtev za prekid" kao da se cela stvar izvršava
::::: dva puta. Kako ovo da izbegnem. (bez pozivanja originalne
::::: procedure, samo ispis i povratak na originalnu proceduru bez
::::: izvršavanja.
Kad god pritisneš neki taster, INT 09 (IRQ1) se poziva DVA PUTA,
prvi put kad se taster pritisne, drugi put kad se taster otpusti.
BIOS ignoriše ovaj drugi signal. Prepoznaješ ih po kodu sa porta 60h
(ukoliko me pamćenje dobro služi, a mrzi me da preturam DOC), tako što
drugi zahtev ima postavljen najviši bit. Da bi izbegao dvstruko
ispisivanje, učitaj bajt sa porta $60 i proveri mu najviši bit. Ukoliko
nije tako reci, pa ću da nadjem šta je (možda je i port 61h, a možda je
u pitanju drugi bajt sa porta 60h).
Ovo u zagradama nisam baš skačio, šta si time hteo da pitaš?
pascal.603mmitrovic,
-> #591, saricl::::: ništa se ne blokira, a bez InLine 9C neće da radi (zablokira se)
pushf instrukcija je neophodna pošto pozivaš originalni handler
koji se završava IRET (ne RETF) instrukcijom koja osim CS:IP registara
učitava i flegove, ukoliko ti flegovi nisu na steku, dolazi do poremećaja
koji se registruju zaglupljivanjem mašine pri izlasku iz tvog hendlera
(biće učitani pogrešni CS:IP)
::::: P.S. Kako to misliš explicitno je pozivam, zar postoji i neki drugi
::::: način??
postoji način, direktno iz pascala kao što pozivaš bilo koju drugu
pascal proceduru, tj:
begin
...
prekid;
end.
da bi ovo radilo moraš da pre poziva procedure prekid da dodaš
famozni inline($9C) jer se i tvoja interapt rutina završava sa IRET
instrukcijom. Dakle, interapt rutinu možeš dirketno da pozivaš ali
nemaš baš neke koristi od toga (mada, nikad se ne zna).
pascal.604mmitrovic,
-> #588, vitez.koja::::: Verujem da ne radi nikako. Prvo, ne valja u interapt procedurama
::::: ostajati mnogo vremena, a 3 sekunde je MNOGO. Drugo, ne smeš da
::::: koristiš writeln i slične funkcije. Treće, $9C je kod mašinske
::::: instrukcije PUSHF, koja se stavlja _tačno ispred_ poziva
::::: originalnom interapt hendleru, a nikako ispred nekih drugih
::::: naredbi.
U ovom hendleru može slobodno da ostane 3 sekunde jer je tajmer na
IRQ0 pa neće poremetiti sistemski časovnik. Problem bi bio ako bi
ovaj program ostao rezidentan jer bi za svaki taster čekao po 6
sekundi :) (3 sekunde kad se taster pritisne, 3 kad se otpusti).
Nije pogubno, al nije ni prijatno.
Problem je u tome što je originalna rutina pozvana posle delay
procedure. Delay instrukcija se može prekinuti hardverskim interaptom
(tako da delay(3000) uvek traje malo duže), ali se obrada trenutnog
tastera završava tek u starom hendleru (mov al,20h; out 20h, al),
a pre ovih instrukcija PIC neće dozvoliti da se desi novi IRQ1 i niži.
Sa druge strane da je ispisao prvo skok pa onda delay, moglo bi da se
desi da rikne stek. Sve u svemu DELAYu tu nije mestu.
Kada se u ovom programu pritisne taster prekida se glavni delay i
obavi handler. Dok traje delay(3000) iz hendlera, primarni delay
stoji u mestu. Zato program traje 3sec + 2*3 sekunde za svaki pritisnuti
taster.
Što se tiče write(ln) funkcija, mogu da se koriste u svim sem u
INT21 hendlerima. TP4.0 je bio prvi i zadnji koji nije dozvoljavao
write(ln) u hendlerima, zbog načina na koji je bio organizovan. Opet,
write(ln) instrukcije podležu IO proverama, pa nisu baš najbrže rešenje
za ispis u hendlerima.
Treće, pushf instrukcija može da ostane tu gde jeste, pošto
pascal održava čist stek, pa će ga flegovi čekati do poziva skoka.
pascal.605mmitrovic,
-> #593, saricl::::: Postoji li mogućnost da se napravi programče koje će
::::: po potrebi izvršiti maskiranje nekog hardwerskog
::::: interrupta, odnosno dali možda postoji u samom
::::: sistemu tabela, ili lokacija koja označava koji
::::: su interrupti dozvoljeni a koji ne?
Naravno, samo što ne ide preko int tabele već preko postavljanja
mask bitova na PIC kontroleru (portovi 20h, 21h i možda 22h). Imaš u
PCHELPu spisak portova i komande PICa.
pascal.606jkpbvk,
Kako da alociram memoriju za niz koji je vec definisan ?
Za onaj koji nije znam ali za ovaj ne mogu nikako da nadjem resenje jer mi
javlja da je data segment too large.
Znaci, kako upotrebiti getmem za niz koji je vec napunjen ili kako napuniti
ovaj niz za koji znam da oslobodim memoriju.
type niz = array [1..64000] of byte;
p = ^niz;
var pok : p;
addr : word;
GetMem (pok,64000);
addr := seg (pok^);
Ovo je u redu ali ne znam kako sad da napunim niz sa vrednostima koje znam
unapred. Probao sam i sa kucanjem pok^[1]:=23, pok^[2]:=12.... ali tu nastaje
neki drugi problem posle pok^[1817].
Dakle,
const niz : array[0..63999] of byte = (13,255,13,34,35,86,7,28,39,.....63999);
Ovo ce proci ali zato nema vise memorije za ostale stvari.
Kako osloboditi vise memorije ?
pascal.607saricl,
-> #596, nlazic!!! procedura koja ne radi ništa). Taj interapt, dakle, nikad neće biti
!!! valjano obrađen. Da li si to hteo da uradiš?
Ne, hteo sam da odmaskiram interrupt na kolu 8259,
ali tada još nisam znao ni da tako nešto postoji.
Rešio sam problem sa par mašinskih naredbi.
pascal.608saricl,
-> #602, mmitrovic!!! Ovo u zagradama nisam baš skačio, šta si time hteo da pitaš?
pascal.609saricl,
-> #595, evlad!!! - kaži 59-ci da je interupt gotov ;>
Dali ovo znači da treba da obavestim 8259 da je interrupt opslužen?
Ako jeste kako se to radi?
pascal.610evlad,
-> #609, saricl<> Dali ovo znači da treba da obavestim 8259 da je interrupt opslužen?
<> Ako jeste kako se to radi?
Upravo to ...
jednostavno:
Port[$20] := $20
Pozdrav Vlada.
Subject: Odabrani bajtovi ...
Kako zabraniti Ctrl-Alt-Del iz programa:
--- cut ---
Procedure PushF;
InLine ($9C);
Procedure NewKbd; Interrupt;
Var
Kkb1,
Kkb2,
Shift,
KB : Byte;
Procedure ResetKb;
Begin
Kkb1 := Port[$61];
Kkb2 := Kkb1;
Kkb2 := Kkb2 OR $80;
Port[$61] := Kkb2;
Port[$61] := Kkb1;
Port[$20] := $20
End;
Begin (* NewKbd *)
KB := Port[$60];
If KB = 0 then
Begin
Shift := Mem[$0000:$0417];
If ((Shift AND $04) <> 0) OR ((Shift AND $08) <> 0) then ResetKb
else
Begin
PushF;
OldKeyBoard
End
End
else
If KB = $53 then ResetKb
else
Begin
PushF;
OldKeyBoard
End
End; (* NewKbd *)
----------
Main
....
var oldkeyboard : procedure;
const kbdint = $09;
....
begin_main
SwapVectors;
GetIntVec (KbdInt, @OldKeyBoard);
SetIntVec (KbdInt, @NewKbd);
....
program body
....
SetIntVec (KbdInt, @OldKeyBoard);
SwapVectors;
end_main
--- cut ---
Napomena: za interupt procedure je poželjno staviti {$F+} (force far jump)
pascal.611postmast,
From: nemesis@styx.herkules.co.yu (NEMESIS)
Subject: :) INTERAPTI :(
Date: Mon, 10 Jul 95 16:33:00 +0100
Imam jednu simpaticnu knjizcu ...
TP60 ...autor je je ve pominjan ..
Pa posto je receno da je puna stamparskih gresaka ...
Jedno pitanje ...
kako da na INT 13 ( to je valjda onaj za HDD READ/WRITE/...)
zakacim rutinu koja ce da proveri proveri da li je
pisanje ...ako je pisanje .. i ako neki odredjani datum
da upise ne po tom mestu gde je trebalo nego po
NULTNOM SEKTORU NULTNE STAZE ...
ili nekom drugom tako da se onesposobi HDD :)
ps.
Ovo je samo TERETSKO PITANJE O:)))))))
┌────────────────────────────────────────────────────────────────────Ě
│/\■/\ .:NemesiS:. /\■/\ S.T.Y.X BBS /\■/\ ║
│ / > NEMESIS@STYX.HERKULES.CO.YU / \ 011\444-95-22 - 22-06 < \ ║
ď════════════════════════════════════════════════════════════════════╝
... /\ S.T.Y.X BBS /\ 011\444-95-22 /\ 22-06 /\
* ■ >:[] NemesiS ■
pascal.612nlazic,
-> #606, jkpbvk*> Ovo je u redu ali ne znam kako sad da napunim niz sa vrednostima koje
*> znam unapred. Probao sam i sa kucanjem pok^[1]:=23, pok^[2]:=12....
*> ali tu nastaje neki drugi problem posle pok^[1817].
Kakav problem? Ovo što si napisao je u redu i trebalo bi da radi.
Proveri koliko si memorije odvojio za heap (u $M direktivi).
*> const niz : array[0..63999] of byte =
*> (13,255,13,34,35,86,7,28,39,.....63999);
*>
*> Ovo ce proci ali zato nema vise memorije za ostale stvari.
*> Kako osloboditi vise memorije ?
Najjednostavnije je baš onako kako si i mislio: pomoću heap-a. Međutim,
tu ti i dalje ostaje ograničenje da jedna promenljiva može zuzimati najviše
65519 bajtova na heap-u (mora stati u jedan segment). Naravno, možeš imati
koliko god hoćeš takvih promenljivih, sve dok je njihova ukupna dužina
manja od maksimalne veličine heap-a koju postavljaš u $M direktivi na
početku programa.
Ako hoćeš niz veći od 64K, moraćeš da se pozabaviš listama i sl.
Pozdrav,
:) Nebojša :)
pascal.613sbrk,
Moj mali prilog za tvoju kolekciju biblioteka za Pascal:
OOPFile
I was in need of a networking file library which would take care
of the locking/unlocking of files so I could stick to the meat of
the application. I was unable to find any libraries available as
shareware so I decided to write my Own. I have tested it with
NOVELL and LanTastic but it should work with any network system
which supports DOS SHARE Locking Commands.
FEATURES:
- Automatic Record Locking with User Definable Options.
- Support For Files Of Variable Length Records.
- User Definable # of Retries
- Byte/Record Level File Access & Locking Routines.
- Object Oriented So You May Create Decendant Objects
which will know how to Read/Write/Create Their Own
Data.
- Pointer Based So File Objects May Be Created 'On The Fly'
********************
Mane:
- nema source glavnog unita, nego je dat TPU za TP 5.5.
Možda neko ima nešto slično samo novije? Šifra: HITNO :)
oopfil.exepascal.614dulejko,
Jedno pitanje vezano za Borland Delphi: Da li on omogucava kompajliranje za
Win32KKKKK, odnosno da li proizvodi 32-bitni kod.
Pozdrav,
Bojan.
pascal.615jkpbvk,
-> #612, nlazic+| Najjednostavnije je bas onako kako si i mislio: pomocu heap-a. Medutim,
+| tu ti i dalje ostaje ogranicenje da jedna promenljiva moze zuzimati
+| najvise 65519 bajtova na heap-u (mora stati u jedan segment). Naravno,
+| mozes imati koliko god hoces takvih promenljivih, sve dok je njihova
+| ukupna duzina manja od maksimalne velicine heap-a koju postavljas u $M
+| direktivi na pocetku programa.
Cek, konkretizovacu sa primerom.
Hteo sam da PCX fajl ubacim u exe i da ga iscitam iz memorije.
Prvo sam sjurio hex kodove PCX-a u niz i ubacio u source.
Umesto da iscitavam iz fajla, podatke sam vadio iz niza i tu nema problema.
Naravno, problem je nastao kad sam hteo da ubacim muziku i jos neke stvari
ali recimo da sam hteo da ubacim jos jedan PCX.
Javlja code segment too large.
Prvi je zauzimao 34K a drugi 47K.
Probao sam i sa packobj i umesto da citav niz ubacim u source, samo sam
ucitao obj ali i tako nece jer zbir ta dva obj-a prelazi 64K.
Naravno da bi prilikom prikazivanja prvog PCX-a oslobodio memoriju koju je
zauzeo i napravio mesta za drugu ali je problem pri kompajliranju.
Znaci, pitanje glasi.. jel' mogu nekako da se uguraju podaci cija UKUPNA
duzina prelazi 64K, a ne jedan niz da ima vise od 64K.
Ustvari, znam sigurno da moze, ali je pitanje kako ?
pascal.616mmitrovic,
-> #606, jkpbvk::::: Ovo je u redu ali ne znam kako sad da napunim niz sa vrednostima koje
::::: znam unapred. Probao sam i sa kucanjem pok^[1]:=23, pok^[2]:=12.... ali
::::: tu nastaje neki drugi problem posle pok^[1817].
To ti je validan način. Kakvi problemi se javljaju? budi jasniji.