pascal.823ognjen,
-> #820, ilazarevic)-> Uzmi lepo DOS Referens, ili Interapt list, i prelistaj. Ima
)-> mnogo lepih i korisnih stvari.
To su, pretpostavljam knjige. :) Imas li ih?
pascal.824markom,
-> #821, nick*** primeru objasnite upotrebu pointera. Najbolje bi bilo
*** isti problem resen sa i bez upotrebe pointera.
*** hvala.
Pamćenje sadržaja ekrana:
-------------------------
program SaPointerom;
uses
Crt;
type
VMEM = array [1..4000] of Byte;
var
x,
y : Byte;
VM,
ZE : ^VMEM;
begin
VM := Ptr($B000, $8000); { Za hercules promeniti $8000 u $0000 }
New(ZE);
x := WhereX;
y := WhereY;
ZE^ := VM^;
ReadLn;
ClrScr;
ReadLn;
VM^ := ZE^;
GoToXY(x, y);
Dispose (ZE);
end.
program BezPointera;
uses
Crt;
var
i : Word;
x,
y : Byte;
VM : array [1..4000] of Byte absolute $B000:$8000;{ Opet isto ono za herca }
ZE : array [1..4000] of Byte;
begin
for i := 1 to 4000 do
ZE[i] := VM[i];
x := WhereX;
y := WhereY;
ReadLn;
ClrScr;
ReadLn;
for i := 1 to 4000 do
VM[i] := ZE[i];
GoToXY(x, y);
end.
Ovo radi samo u 80*25 tekst modu. Moguće je da se potkrala neka greškica jerbo
sam ovo kucao onako napamet, bez probe O:)
Marko
pascal.825peca.st,
-> #823, ognjen!-> To su, pretpostavljam knjige. :) Imas li ih?
To nisu knjige, ili bar nisu u papirnom obliku. :)
Mislim da ih ima na Sezamu, ali je to u stvari samo
spisak koji služi onima koji znaju šta su interapti i
tako te stvari...
Peđa.
pascal.826pedjak,
-> #818, drpr> potreban mi je algoritam za rešavanje dseterminanti bilo kog reda,
> recimo <10 pa molim dobru dušu da znanje podeli samnom :).
Gausov metod ?
pascal.827ilazarevic,
-> #823, ognjen> To su, pretpostavljam knjige. :) Imas li ih?
Ne, to su DOC-ovi kojih ima i na Sezamu. U njima je popisano šta koji
interapt sve radi, po funkcijama, koje vrednosti vraća itd. Sve
sistematizovano i pregledno, dušu dalo za slučajno pretraživanje jednom
dnevno :)
pascal.828eagle,
-> #818, drpr> potreban mi je algoritam za rešavanje dseterminanti bilo kog
> reda, recimo <10 pa molim dobru dušu da znanje podeli samnom
Može recimo ovako - matrica se svede Gausovim postupkom na
trougaonu, i onda se determinanta dobije množenjem elemenata
sa glavne dijagonale.
det.zippascal.829drpr,
-> #828, eagle>Može ovako recimo - .... Gausov metod
To je ok, samo mi izgleda nekako neprecizno za cele brojeve koliko se
ja sećam Gausovog metoda :(
cope
pascal.830postmast,
Path: fon!buefhp.etf.uni-bg.yu!td00491d
From: td00491d@buefhp.etf.uni-bg.yu (Terzic Dragan)
Subject: Re: pascal
Organization: Fakultet Organizacionih Nauka, Beograd
Date: Tue, 15 Mar 1994 14:38:16 GMT
Message-ID: <CMpnBt.2H5@fon>
X-Newsreader: TIN [version 1.2 PL1]
References: <sezam$pascal:001.0095.4279@sezam> <sezam$pascal:01.095.4282@sezam>
Sender: news@fon (News)
Imam kod kuce gotov algoritam, kad sledeci put sednem za hp. poslacu ga.
(najkasnije do petka)
Terza
pascal.831eagle,
-> #829, drpr> To je ok, samo mi izgleda nekako neprecizno za cele brojeve
> koliko se ja sećam Gausovog metoda :(
Ne verujem da postoji neki efikasan algoritam bez deljenja,
pa bi tip morao biti real. Ako imaš sve cele brojeve, onda
na kraju uradiš round i tako dobiješ precizno rešenje, jer
ako je mat. celobrojna, i determinanta mora biti ceo broj.
pascal.832ognjen,
Kako da sredim ovo:
function myfirst (ogi: real/integer/loingint): string
~~~~~~~~~~~~~~~~~~~~~
Daklem, kako da sredim da moze da se zada i realan broj, i ma
koji drugo...
Ili, jos konkretnije, kako da napravim STR funkciju (ne
proceduru, ona je ugradjena!).
pascal.833drpr,
-> #831, eagle-> Ne verujem da postoji neki efikasan algoritam bez deljenja,
-> pa bi tip morao biti real. Ako imaš sve cele brojeve, onda
Problem nastaje ako je matrica tipa ineger (word) tada deljenje
postaje problem, ali čekam odgovor kolege sa fona pa nastupam
sa daljim rešavanjem malo izmenjenog Gausa (tako što tražim nzs
itd...).
cope
pascal.834drpr,
-> #830, postmastJedva čekam da vidim algoritam i hvala u napred.
cope
pascal.835bole,
Hi!
Jel zna neko kako mogu da pustam semplove (.SAM ili .VOC ili .WAW) na sb-u,
spikeru?
prednost sb!
:)
ajde cao
pascal.836vitez.koja,
-> #831, eagle#=> Ne verujem da postoji neki efikasan algoritam bez deljenja,
#=> pa bi tip morao biti real. Ako imaš sve cele brojeve, onda
Pa na primer razvoj determinante po nekom redu (koloni): Od
determinante n x n dobiješ n determinanti (n-1) x (n-1) i tako dalje
dok ne dodješ do 3x3 (dalje znaš). Rekurzija se nameće, ali problem
je što ovo ne obećava previše brzine :).
sk
pascal.837dvesic,
-> #832, ognjen>> function myfirst (ogi: real/integer/loingint): string
>> ~~~~~~~~~~~~~~~~~~~~~
Jedno od resenja je da konstruises RECORD promenljivog
sadrzaja koji ce cuvati tip i vrednost promenljive, pa
da njega prosledis funkciji, odnosno pointer na njega.
pascal.838mcule,
-> #833, drpr
>> ali cekam odgovor kolege sa fona pa nastupam
^^^^
Au brate, zaboravi.... Zaboravi... ;).
pascal.839pedjak,
-> #832, ognjen> function myfirst (ogi: real/integer/loingint): string
> Daklem, kako da sredim da moze da se zada i realan broj, i ma
> koji drugo...
function myfirst(var ogi ):string;
pascal.840niklaus,
-> #836, vitez.kojaSubject: Re: Matrica know-how
(:> Pa na primer razvoj determinante po nekom redu (koloni): Od
(:> determinante n x n dobiješ n determinanti (n-1) x (n-1) i tako dalje
(:> dok ne dodješ do 3x3 (dalje znaš). Rekurzija se nameće, ali problem
(:> je što ovo ne obećava previše brzine :).
Ovaj Laplasov razvoj se čini boljom metodom, s obzirom da nema deljenja,
a samim tim i gubitka preciznosti, za kojom je neko kukao...
(: Sean :)
pascal.841dzakic,
-> #822, ognjen> )-> E, sad, neko ko ume lepo da objasnjava (a to je Zak ;) bi
> )-> ukratko mogao u par recenica da ti kaze sta su interapti
>
> Cekam(o?) objasnjenje... :)
Uh. ;) Ja ti poslah na mail nešto što ti može pomoći. Lakše bi
bilo da sâm malo pogledaš o tome pa da onda pitaš šta te buni.
Sad, kad ste me već prozvali, da i kažem par rečenica (a ostali
samo posmatraju i čekaju da se ja vratim u bg :( ;).
Osnovno je da razumeš da je 'rutina za obradu interapta'
najobičniji potprogram - niz instrukcija koji se završava
naredbom IRET (interrupt return). Prekida ima 256 i namena im
je različita, nisu svi iskorišćeni. Treba razlikovati dve vrste
- hardverske i softverske interapte.
Softverske koristimo baš kao potprograme (koje obezbeđuju bios
ili dos) tako što ih pozivamo naredbom INT <broj>. Pre poziva
potprograma, u određene registre stavimo broj funkcije koju
želimo da izvršimo i eventualno dodatne informacije. Potprogram
po završetku rada vrati u određenim registrima rezultate
(ukoliko ih ima). Int 10h recimo služi za rad sa ekranom (bios),
dok je int 21h rezervisan za dos i sve njegove moguće i nemoguće
funkcije za rad sa datotekama i sl. Dokumentaciju o tome nađi u
nekoj od arhiva iz \ibmpc\info direktorijuma.
Hardverski interapt je potprogram koji poziva sâm računar u
određenim situacijama. Tada se sa programa koji se trenutno
izvršava skače na rutinu za obradu prekida, i po obavjenom poslu
vraća nazad. Najinteresantniji su interapti broj 8 i 9. Int 8 se
izvrši automatski 18.2 puta u sekundi (bios samo inkrementira
brojač vremena i proverava treba li ugasiti motor flopija). Int
9 se poziva prilikom svakog pritiska i otpuštanja tastera i
generiše ga tastatura (tada se na portu 60h nalazi scan kod
tastera koji je izazvao interapt).
Adresa na kojoj se nalazi potprogram za obradu prekida nije
fiksna. Upisana je u tabelu na samom početku memorijske mape,
pa se tako može podmetnuti neki drugi koji obavlja neke dodatne
poslove (tsr programi).
Nije mnogo, ali za početno snalaženje nadam se dosta.
pascal.842peca.st,
-> #832, ognjen!-> Daklem, kako da sredim da moze da se zada i realan broj, i ma
!-> koji drugo...
Stavi samo realan, on pokriva i celobrojne, naravno.
Peđa.
pascal.843todorp,
Subject: pocetnicko pitanje :)
Hi!
Ucim paskal silom prilike (ucimo na fax-u) pa sam se zaglavio. Elem kako da
uradim nesto kao ovo u C-u:
int *temp;
temp=malloc(1000);
temp[10]=20;
e sad ja probao:
var temp:^integer;
begin
new(temp);
temp^[10]:=20; i nema sanse da ovo proguta
dispose(temp);
end.
Pozdrav od Todora
pascal.844eagle,
-> #840, niklaus> Ovaj Laplasov razvoj se čini boljom metodom, s obzirom da nema
> deljenja, a samim tim i gubitka preciznosti, za kojom je neko
> kukao...
Ali je spor (reda n!).
pascal.845eagle,
-> #832, ognjen> function myfirst (ogi: real/integer/loingint): string
> Daklem, kako da sredim da moze da se zada i realan broj, i ma
> koji drugo...
Nikako.
Možeš da ispetljaš nešto kao (var ogi; code: byte), gde code
označava tip koji prenosiš, ali je daleko jednostavnije da
napraviš tri različite funkcije.
pascal.846eagle,
-> #843, todorp> Ucim paskal silom prilike (ucimo na fax-u) pa sam se zaglavio.
> Elem kako da uradim nesto kao ovo u C-u:
> int *temp;
> temp=malloc(1000);
> temp[10]=20;
type max = array[0..maxint-1] of integer;
var temp: ^max;
begin
getmem(temp, 1000);
temp^[10] := 20;
freemem(temp, 1000);
end.
pascal.847niklaus,
-> #844, eagle(:> > Ovaj Laplasov razvoj se čini boljom metodom, s obzirom da nema
(:> > deljenja, a samim tim i gubitka preciznosti, za kojom je neko
(:> > kukao...
(:>
(:> Ali je spor (reda n!).
Ax, pa ne možemo dobiti i jare i pare...
(: Sean :)
pascal.848pedjak,
-> #843, todorp> e sad ja probao:
> new(temp);
> tempžŠ10Ć:=20; i nema sanse da ovo proguta
Probaj ovako:
type niz=arrayŠ1..10000Ć of integer;
pniz=žniz;
var temp:pniz;
getmem(temp,broj_clanova*sizeof(integer));
tempžŠ10Ć:=20;
GetMem je ekvivalentno sa Malloc u Cu.
pascal.849postmast,
From: td00491d@buefhp.etf.uni-bg.yu (Terzic Dragan)
Subject: Re: pascal
Date: Fri, 18 Mar 1994 09:28:06 GMT
Milos Dermanovic (eagle@sezam.UUCP) wrote:
: > To je ok, samo mi izgleda nekako neprecizno za cele brojeve
: > koliko se ja secam Gausovog metoda :(
: Ne verujem da postoji neki efikasan algoritam bez deljenja,
: pa bi tip morao biti real. Ako imas sve cele brojeve, onda
: na kraju uradis round i tako dobijes precizno resenje, jer
: ako je mat. celobrojna, i determinanta mora biti ceo broj.
Postoji sasvim prost algoritam bez deljenja, cak mislim da smo ga radili
u srednjoj skoli,(ako ne i u osnovnoj)
Ako je matrica reda n, prvih n-1 kolona prepises na kraj matrice,
zatim podjes od clana a(1,1) i pomnozis ga sa svima iz njegove dijagonale,
to ponovis sa a(1,2) i tako do a(a,n) i sve ih saberes.
Onda podjes od clana a(1,n+n-1) i njegov proizvod sa clanovima njegove
dijagonale oduzmes od zbira, pa uzmes a(1,2n-2) do a(1,n)
na primeru matrice 3*3 to izgleda ovako:
A B C!A B
D E F!D E
G H I!G H det=AEI+BFG+CDH-BDI-AFH-CEG
Nadam se da sam pomogao,
Terza
pascal.850eagle,
-> #849, postmast> Ako je matrica reda n, prvih n-1 kolona prepises na kraj
> matrice, zatim podjes od clana a(1,1) i pomnozis ga sa svima iz
> njegove dijagonale, to ponovis sa a(1,2) i tako do a(a,n) i sve
> ih saberes.
Ovaj se postupak može primeniti samo na determinante trećeg reda.
pascal.851isekulovic,
-> #839, pedjak>> function myfirst(var ogi ):string;
To je i meni prvo palo na pamet, ali kako iz ogi-a dobiti string?
Str neće da odradi posao.
pascal.852todorp,
-> #846, eagle> type max = array[0..maxint-1] of integer;
Ovde je bio problem. Thanx svima na pomoci.
pascal.853ognjen,
Moze li se unutar funkcije (koja vraca string) uraditi:
funkcija := concat (funkcija, 'abc') ???? I, kako?
pascal.854dejanr,
-> #853, ognjen>> Moze li se unutar funkcije (koja vraca string) uraditi:
>> funkcija := concat (funkcija, 'abc') ???? I, kako?
Ne, ako je funkcija ime te funkcije. To bi značilo rekurzivan poziv.
No uradi zaobilazno:
var rez: string;
...
rez:=concat(rez,'abc');
...
funkcija:=rez
pascal.855ognjen,
-> #842, peca.st)-> Stavi samo realan, on pokriva i celobrojne, naravno.
Da, ali onda pretvoreno u string izgleda:
'12.0000000000000E00'
a ja bih hteo da za celobrojne bude:
'12'. BTW, pedjak je "nasao" resenje (var ogi).
pascal.856postmast,
From: td00491d@buefhp.etf.uni-bg.yu (Terzic Dragan)
Subject: cancel <CMusyv.M4M@fon>
Date: Sat, 19 Mar 1994 11:06:36 GMT
Article cancelled from within tin [v1.2 PL1]
pascal.857postmast,
From: td00491d@buefhp.etf.uni-bg.yu (Terzic Dragan)
Subject: Re: pascal
Date: Sat, 19 Mar 1994 11:18:57 GMT
: >Moze ovako recimo - .... Gausov metod
: To je ok, samo mi izgleda nekako neprecizno za cele brojeve koliko se
: ja secam Gausovog metoda :(
Juce sam poslao neki algoritam, ali koji je tacan samo za n<4.
Ako bas hoces da radis sa celim brojevima, ( I bez deljenja ),
zasto ne pokusas sa rekurzivnom procedurom, kao sto bi radio i rucno.
Znas ono, razvoj po koloni ili po vrsti.
Algoritam je reda slozenosti n! kao i gausov postupak, samo sto ga
rekurzija usporava. Ali ako simuliras rekurziju sa stekom, dobices
algoritam za cele brojeve koji je mozda brzi od gausovog postupka.
( jer ne koristi real )
Terzic Dragan, ETF
pascal.858vega,
-> #855, ognjen*> Da, ali onda pretvoreno u string izgleda:
*>
*> '12.0000000000000E00'
*>
*> a ja bih hteo da za celobrojne bude:
*>
*> '12'. BTW, pedjak je "nasao" resenje (var ogi).
Pa probaj:
str(onaj_broj:0:3, onaj_string);
To ti je za tri decimale i daje kompromisno resenje: "12.000"
Pozdrav,
*#VOJAS#*
pascal.859eagle,
-> #857, postmast> Znas ono, razvoj po koloni ili po vrsti.
> Algoritam je reda slozenosti n! kao i gausov postupak, samo sto
Gausov postupak je inače reda n na treći, a onaj algoritam za
determinante preko Gausa je nešto brži, pošto se ne bavi elementima
iznad glavne dijagonale. U svakom slučaju, razlika je dirastična.
pascal.860ognjen,
-> #854, dejanr)-> No uradi zaobilazno:
)-> var rez: string;
)-> ...
)-> funkcija:=rez
Pa, znam to, ali onda definisem nepotrebnu prmenjljivu rez,
sto, zauzima memoriju...
pascal.861dejanr,
-> #860, ognjen>> > var rez: string;
>> > ...
>> > funkcija:=rez
>>
>> Pa, znam to, ali onda definisem nepotrebnu prmenjljivu rez,
>> sto, zauzima memoriju...
To je lokalna promenljiva u proceduri, dakle alocira se valjda na steku,
pa po izlasku iz procedure "umre". Dakle, prostor ne troši, ali troši
vreme. No, obzirom da nema drugog načina, i taj je dobar :)
pascal.862mmitrovic,
-> #746, dragishaŮ█▀█Ţ-> Datum+vrijeme kreiranja volumeta. Po jedan word, tj standardni DOS
Ů█▀█Ţ-> format za iste. Izuzetno naivan način zaštite, ako mene neko pita:).
Ů█▀█Ţ
Ů█▀█Ţ Da demantujem:). Ovo je slučaj na mojim disk particijama, ali ne i na
Ů█▀█Ţ par disketa koje sam probao. Izgleda da je bitan i program kojim se to
Ů█▀█Ţ radi, diskove sam čini mi se formatirao sa DOS 5.0, a sada imam 6.0.
Ů█▀█Ţ Kako izgleda, nema DOS poziva koji generiše taj broj (?) već to radi
Ů█▀█Ţ program za formatiranje.
Ů█▀█Ţ--
Izvinjavamo se na ovako okasnelom odgovoru, ali bolje ikad no
nikad. Serial Number Diska se ne koristi za zaštitu, niti je za
to i predviđen (sad što ga neki koriste za zaštitu to je druga
priča). žak ga ni DOS ne koristi, jer je predvidjen kao osnova za
multitasking OSove kao što je Win, kojima služi za proveru da li
je prava disketa u flopyu. Primer: jedan task krene da čita flopy
sa Ser.Nm. 1234-5678 i biva privremeno suspendovan i za to vreme
drugi task traži svoju disketu sa drugim ser. brojem. Kad on
završi sa disketom (pošto ne mogu oba taska u isto vreme da čitaju
Win drži prvi task), Win pre nego što pusti prvi task proveri da
li je disketa u drajvu sa brojem 1234-5678 i ako nije traži da se
ubaci i tek onda pušta prvi task. Ovo mi se jednom dogodilo samo
se ne sećam kojim povodom.
_mmix_
pascal.863dragisha,
-> #862, mmitrovic-> Izvinjavamo se na ovako okasnelom odgovoru, ali bolje ikad no
-> nikad. Serial Number Diska se ne koristi za zaštitu, niti je za
Dobro što si okasni, ali što meni odgovaraš?:)
-> priča). žak ga ni DOS ne koristi, jer je predvidjen kao osnova za
-> multitasking OSove kao što je Win, kojima služi za proveru da li
Ali on postoji i na raspolaganju je raznim keš programima i inima. To što
ga sam DOS ne koristi je samo još jedna od rupa u istom.
--
[MacIntosh: Computer With Training Wheels You Can't Remove]
pascal.864dejanr,
Evo jedne (odnosno dve :) zanimljive poruke sa BIX-a, vezane za BP 7.0 i
njegovu upotrebnu vrednost na raznim platformama i za razne tipove
projekata.
==========
pascal/turbo #4683, from j_mcarthur, 3817 chars, Tue Mar 8 22:30:33 1994
Comment to 4682. Comment(s).
----------
I never owned a copy of Turbo Pascal until version 6.0. Even after I
bought 6.0, I never used it. I much prefered Modula-2 and used it
instead.
Around the time 7.0 was announced, the data used by one application
had grown and caused me to slam into the 640K limit hard. The
application was a port of Tangle from WEB to Topspeed Pascal. I
could not get the company I worked for to spring for the dos extender
for Topspeed, so I bought the upgrade to 7.0 since it came with a dos
extender.
After seeing how easy it was to get a moderately sized application to
work in protected mode, I was sold.
I started work on a moderately nasty project that had to run under
Windows. Using Object Vision I had something up and running quite
quickly. Then we ran into a brick wall with Windows. Not really
Windows but an application we needed to interface to that ran under
Windows. So we backed up and changed the project to Dos. Moving
from Object Windows to Turbo Vision was not to terribly difficult.
But then that may have been because I am used to encapuslating my
user interface into a single module/unit.
I quickly put together a large application using Turbo Vision and the
Paradox Engine. It works quite well. We had over 20 people at a
time using it on our network doing online updating.
Now for the problems. The dos extender in the first release will not
work with Btrieve. Supposedly there is a fix for this, but I have
not bothered to get it.
The nastier problem is how the dos extender grabs all the available
memory. I am not sure of all the details. We have four versions of
TeX that run on the PC. The versions are small (only uses
conventional memory, it needs about 3-400K), big (only uses
conventional, ems and xms), 386 specific using VCMI (I think that is
the name) and 386 specific using DPMI.
The small version of TeX works like a champ when called from a
Borland Pascal program. The big version runs very very slowly.
This has something to do with the way BP 7.0's dos extender grabs all
the xms memory. If a file takes 20 seconds to process using big TeX
from the DOS command line, it will probably take 5 minutes to process
the same program from a BP Protected mode program. Both the VCMI and
the DPMI programs crash. They will not work from a BP protected mode
program.
In many ways it is easier for me to program for Windows. There is no
need for a dos extender, that is part of Windows. So I can call DPMI
programs without the problems I have under DOS.
I am currently working on yet another large project. This one is
still in the preliminary stages. But I need to deliver both a Dos
and Windows based solution. I am currently planning on using BP to
do this.
BUT, things change. There is a possibility I will have to do a
project for OS/2. If that is the case I will get authorization to
buy about $3,000 worth of tools. Those will include a new Modula-2
compiler that runs under Dos, OS/2, Windows, and Windows NT. I will
also get a dos extender from a third party; plus some other
libraries. With that tool set, I would again leave Pascal.
All in all, BP 7.0 is a nice package. It is well worth its $500
price tag. It is not perfect. It does have some limitations
(despite the Borland Ads).
On the other hand, if I was not concerned about linking in 3rd party
tools like the Paradox Engine. There is a very nice product called
OM2. This is a full Modula-2 and Oberon-2 compiler. It runs as a
protected mode application under Dos, Windows, or OS/2. It is truely
flat model. This means that records, objects, and arrays are no
longer limited to 64K. Nor are programs limited to 640K.
Unfortunately there is no way to link in any external libraries, at
this time.
Jeffrey M\kern-.05em\raise.5ex\hbox{\b c}\kern-.05emArthur
a.k.a. Jeffrey McArthur
==========
pascal/turbo #4684, from ccalvert, 245 chars, Wed Mar 9 14:35:08 1994
Comment to 4683.
----------
On Page 11 of the User's Guide there is an explanation of
how to limit the amount of protected mode memory that
RTM will use:
SET DPMIEM=MAXMEM 2000
where 2000 is the amount of memory in kbytes you want the run
time manager to access.
pascal.865postmast,
From: news@fon (News)
Subject: pascal
Date: Mon, 4 Apr 1994 13:31:59 GMT
Hi
Da li neko zna da DPMI program napravljen sa BP 7.0 pukne (General Protection
Fault) svaki put kada probate da pristupite pointeru koji je nil.
Da pojasnim:
type
PTip = ^TTip;
TTip = record
neki_podaci:...;
next, prev: PTip
end;
var
a: PTip;
temp: PTip;
begin
new(a);
a^.neki_podaci:=...
a^.prev:=nil; a^.next:=nil;
...
temp:=a^.prev <-- Ovde pukne mora da se uradi :
if a^.prev=nil
then temp:=nil
else temp:=a^.prev; !!!!!
Nisam probao kada je temp ne tipski pointer.
Srdjan
pascal.866dyura,
Imam problem.Preneo sam sa sezama TPU za rad sa dBase fajlovima ali kad
sam raspakovao i hteo da startujem neki od prilozenih programa uvek mi je bio
vracen [error 72 unit file format error TBase.TPU].Sta da radim? Napominjem
sve se desava u Borlandu v.7.0.
dyura
pascal.867mmitrovic,
-> #866, dyuraŮ█▀█Ţ error 72 unit file format error TBase.TPU
Nabavi TPU za BP 7.0, ili nabavi source pa prevedi, ili napiši
svoj program u TP 6.0, ili jednostavno odustani od toga.
Choice is all yours ;)
pascal.868mmitrovic,
Otvorena je grupa TVision koja se bavi pisanjem proširenja za
Turbo Vision. I to i za OOPascal i za C++. Zainteresovani nek se
jave i nek pošalju neki programčić (što kraći, može i source)
pisan u TVisionu (proširenja se preferiraju više od korišćenja
postojećih objekata) pošto grupa nije za početnike.
pascal.869omega,
Da li Borland Pascal 7.0 obuhvata Turbo Pascal 7.0? Tj. to bi
znacilo da sa njim mogu da se pisu i dos i windows programi?
pascal.870dejanr,
-> #869, omega>> Da li Borland Pascal 7.0 obuhvata Turbo Pascal 7.0? Tj. to bi
>> znacilo da sa njim mogu da se pisu i dos i windows programi?
Mogu da se pišu i DOS i Windows programi, bez problema.
DOS programi mogu da se pišu i "obično" i u DPMI režimu, kada imaju
više memorije... ali je i dalje struktura ograničena na 64k, fuj :(
pascal.871snemcev,
-> #868, mmitrovic>> Otvorena je grupa TVision koja se bavi pisanjem proširenja za
DVesic je k'o stvoren za vas. Pitanje je samo koliko ima slobodnog
vremena na raspolaganju. Anyway, ako ovo čita, sam će se javiti.
pascal.872pedjak,
-> #869, omega> Da li Borland Pascal 7.0 obuhvata Turbo Pascal 7.0? Tj. to bi
> znacilo da sa njim mogu da se pisu i dos i windows programi?
Da.
pascal.873omega,
-> #870, dejanrŢ Mogu da se pisu i DOS i Windows programi, bez problema.
Da li to znaci:
win programi se pisu u Borland Pascalu
dos programi se pisu u Turbo Pascalu 7.0,
a Turbo Pascal 7.0 je DEO Borland Pascala?
pascal.874dejanr,
-> #873, omega>> > Mogu da se pisu i DOS i Windows programi, bez problema.
>>
>> Da li to znaci:
>> win programi se pisu u Borland Pascalu
>> dos programi se pisu u Turbo Pascalu 7.0,
>> a Turbo Pascal 7.0 je DEO Borland Pascala?
Pa... ne baš. Windows programi se pišu u Borland Pascalu. DOS programi
se takođe pišu u Borland Pascalu. Turbo Pascal je jeftinija verzija
Borland Pascala koja ne obuhvata podršku za Windows, DPMI i neke druge
stvari.
U svakom slučaju, kada uzmeš BP7.0 imaš kompletan paket, sve što treba
da bi pisao DOS, DOS+DPMI i Windows programe na paskalu.
pascal.875omega,
-> #874, dejanrŢ Pa... ne bas. Windows programi se pisu u Borland Pascalu. DOS programi
Ţ se takode pisu u Borland Pascalu. Turbo Pascal je jeftinija verzija
I dos programi se pisu pod windowsom?
pascal.876dejanr,
-> #875, omega>> > Pa... ne bas. Windows programi se pisu u Borland Pascalu. DOS programi
>> > se takode pisu u Borland Pascalu. Turbo Pascal je jeftinija verzija
>>
>> I dos programi se pisu pod windowsom?
Mogu, ali ne moraju. Mogu i u DOS integrisanom okruženju. A mislim da ima
i kompajler iz komandne linije.
pascal.877dpriest...,
Ima li neko source za prikazivanje GIF-a ?
ako nema moracu da izgubim par dana da ga oravim iz
opisa GIF formata... POMAGAJTE JUNACI ! :(
pascal.878dpriest...,
opet ja... treba mi isto kao i u prethodnoj poruci
neki hint (citaj source) za prikazivanje TTF fontova
help...
P.S. iskljucivo za DOS! ne radim u AT 2 XT dev. kit. :)