pascal.310ssokorac,
-> #301, nbatocanin:> je to najveäa revolucija u programiranju posle uvoöenja
:> procedura.
Pa, izgleda da će morati da se proba...;)
Šteta što ne postoje objekti za SET CODE...;)))
pascal.311ssokorac,
-> #302, sslavko:> Nadam se da će vam ovaj UNIT biti dovoljna pomoć da
:> ukrotite vašeg
Hej, pa ovo je super! To je upravo ono što mi je trebalo! Hvala!!!
Stasha
pascal.312ssokorac,
Kako se u konkretnom primeru izvršava komanda EXEC? <ne na
Sezamu ;) >. Ja sam pokušavao gledajući help i primer u helpu da
napravim kratak program koji startuje TETRIS, ali ne ide.
Direktorijum je, recimo, c:ĐigreĐtetris.
pascal.313ssokorac,
-> #312, ssokorac Hm, ako sam bio nejasan, kako s─e KORISTI komandč EXEC a ne kako se
izvršava... :)
pascal.314ssokorac,
-> #302, sslavko
Meni TP 6.0 jaf│lja incorect file format za mouse.tpu...:( Je l' to razlicita
verzija TP-a, ili....? Ako jeste, ajde posalji source, pa da kompaj¤ŞŐ┤liram
sam... OK?
pascal.315nesavic,
-> #314, ssokoracEvo opet mene sa malo vremena, bilo bi mi drago da je sistem snimi moju poruku
prethodnu kada me iskljucio, ali sto se tice TPUÚ filea nemozes nista jer ti
upravo source i treba, mrzim PTT, ali sta da se radi, sto se tice EXEC funkcije
bitno je na pocetku rezervisati memoriju sa direktivom š$M br,br,brć
gde br predstavlja velicinu stacka, minimum heapa i maximum heapa koji
startovani program moze da koristi, bez te direktive EXEC procedura nece
raditi...
Bitno je i navesti COMSPEC specifikaciju koja vraca vas komandni interpreter tj
COMMAND.COM koji se mora izvrsiti po startovanju novog programa...
Sad ovo pisem napamet ali mislim da je znam celu kako izgleda!
EXEC(getenv('COMSPEC'),'/C' + Command);
getenv... vraca COMMAND.COM,
'/C' daje direktivu COMMANDu da se posle izvrsacvanja programa vrsi povratak u
stari program tj. gubi se i napunjeni COMMAND.C#M,
i na kraju Co▀mmand je KOMANDA kako joj ime kaze koja pretstavlja najobicniju
komandu DOSa pa tako i poziv programu ce biti prepoznat...!
Isto tako vazno je pre EXEC izvrsiti SwapVectors koja TPove INTove ustupa novom
programu tj. komandi i kasnije ih vratiti na staro mesto opet sa procedurom
SwapVectors...
Za sve ove procedure i mnogo toga mozete da me pitate na Velcomu gde sam
Úmoderator PASCAL ko_Ěferencije ovo ponavljam a mozda i ne jer me sistem
proslog puta iskljucio pa neznam da li mi je snimio poruku, znaci na Velcomu
postavite pitanje Nenadu Mijailovicu D▀octoru za Pascal, bice reci i o TVISIONu
koji pretstavlja novi OOP vid proramiranja koji opet pretstavlja veliko
poboljsanje a negde su i izgubljene neke stare dobre i lepe procedure
najobicnijeg programiranja...
NeŠa!
pascal.316sslavko,
-> #270, ssokorac>> Hm, otkrio sam kako da dobijem highlighted text...:)
>> Moram da stavim textmode(mono); ;))
Dovoljno ti je da staviš textcolor(15). Time ćeš imati beli
highlighted boju slova. Za neku drugu boju probaj textcolor(16),(17)...
pascal.317sslavko,
-> #266, ssokorac>> Kako da dobijem highlited tekst? Tj. kako da sa writeln
>> ('Stasha'); ;) dobijem highlited ispisano Stasha?
Probaj sledeće:
uses crt;
var i:integer;
begin
ClrScr;
for i:=1 to 255 do
begin
textcolor(i);
write('Stasha')
end
end.
pa ćeš videti šta sve možeš da dobiješ.
Pozdrav
Slavko.
pascal.318sslavko,
-> #272, ssokorac>> Recimo imam neki text fajl, recimo 'ss.txt' i u njemu
>> tekst:'Bio jednom car' i hoću da ubacim izmedju 'jednom'
>> i 'car' - 'jedan'. Kako to da izvedem u pascal programu.
>> Takodje, recimo da upisujem u neki ss fajl:
>> write(ss,'d'), zatim hoću da obrišem taj karakter 'd'.
>> Kako?
Nešto slično sam i ja skoro pitao. Pogledaj malo starije poruke( od
pre mesec-dva) pa ćeš videti par veoma zanimljivih odgovora.
Pozdrav
Slavko.
pascal.319sslavko,
-> #311, ssokorac>> Hej, pa ovo je super! To je upravo ono što mi je trebalo!
>> Hvala!!!
Nema na čemu. :))))
Pozdrav
Slavko.
pascal.320sslavko,
-> #314, ssokorac>> Meni TP 6.0 jaf│lja incorect file format za
>> mouse.tpu...:( Je l' to razlicita verzija TP-a, ili....?
>> Ako jeste, ajde posalji source, pa da kompaj¤ŞŐ┤liram
TP 5.5. Niam probao na TP 6.0 ali ako ne radi oda ću poslati i source.
Pozdrav
Slavko.
mouse.paspascal.321ilazarevic,
-> #301, nbatocanin█ Pozdrav, Nenad
Molim te da staviš nekakav kod, poludeh od onih a sa kružićem i e sa
tačkicama :)
pascal.322hercog,
-> #293, stomic**> CGA,EGA i VGA. Ako ne uspeš javi da ti pošaljem primer.
Uradio sam slededće
Sa binobj sam sve bgi preveo u obj. Zatim sam pomoću driver.pas
to preveo u driver.tpu, a zatim sam iskompajlirao moj program u
koji sam ubacio deo iz bgilink.pas koji služi za inicijalizaciju
grafike. Sve se lepo završilo, al kad startujem moj program na
ekranu dobijem samo neke zbrljotine. Ako taj program startujem
u direktorijumu gde se nalazi herc.bgi radi bez problema. Zato
šalji primer.
Hercog
pascal.323dzakic,
-> #312, ssokorac>> Kako se u konkretnom primeru izvršava komanda EXEC? <ne na
>> Sezamu ;) >. Ja sam pokušavao gledajući help i primer u helpu da
>> napravim kratak program koji startuje TETRIS, ali ne ide.
Pretpostavljam da nisi koristio $M direktivu... Pogledaj još
jednom primer u helpu pa vidi da li si sve uradio kao tamo..
{ $M 1024,0,0 }
exec('d:\path\file.ext','parametri');
pascal.324macak,
Ne secam se koja bese poruka...
NijeÚ] ni vazno.Uglavnom na mono monitoru kad ubacis kombinaciju
TEXTCOLOR(8);TEXTBACKGROUND(15); dobijes inverzna slova (crno na svetloj
pozdini). Ne znam da li ce ovo da upali i na VGA.Probaj nesto trivijalno
uses crt;
begin
textcolor(8);
textbackground(15);Ú]
writeln('bezveŚze');
end.
pascal.325stomic,
Da li je neko pokušao da piše neki kraći (ASCII) tekst
pomoću TVEDIT, (nalazi se u demo programima za Turbo Vision). Kucanje
traje OK, posle nekog vremena mi se blokiraju neki tasteri (mislim par
tastera sa brojevima, itd...).
Jel' zna neko kako da se reši problem, jer je editor vrlo dobar,
jedino što ima limit od 64Kb po tekstu.
stomic
pascal.326stomic,
-> #322, hercog$ u direktorijumu gde se nalazi herc.bgi radi bez problema.
$ Zato šalji primer.
Pogledaj primere BGILINK je glavni program i UNITi BGIDRIV
(za kartice) i BGIFONT (za fontove), koji se uključuju u glavni
program. Analiziraj ih trebalo bi da bude OK!. Za svaki slučaj ti
ih šaljem uz ovu poruku. Tu je i .MAK (make) file sa kojim možeš
da sklopiš automatski (sa MAKE.EXE) ceo program. Analiziraj sve to
pa ako opet budeš imao problema javi.
stomic
bgilink.zippascal.327ssokorac,
U vezi mouse.tpu-a...:)
Kako da dobijem neki lepši kursor od one obične treptajuće crte...? Ako može,
naravno...
Stasha
pascal.328ssokorac,
-> #323, dzakic:> š $M 1024,0,0 ć
Nisam ovo stavio... hvala, i tebi i sslavku.
Jedno pitanje u vezi toga:
Ako hoću da startujem Windows iz programa, pa mi treba sva
raspoloživa memorija (skoro sva:), da li nekakko može da se program
swap-uje, ili nešto srugo, tek da ne stoji svo vreme u memoriji? I
ako može, naravno, kako?
pascal.329dejanr,
-> #328, ssokorac>>da li nekakko može da se program swap-uje, ili nešto srugo, tek da ne
>> stoji svo vreme u memoriji? I ako može, naravno, kako?
Pogledaj datoteku uz poruku 9.24 u konferenciji PC.SOFT.
pascal.330obren,
-> #329, dejanr> Pogledaj datoteku uz poruku 9.24 u konferenciji PC.SOFT.
Hvala na obaveštenju! I ja sam ovo odavno tražio, ali sam mislio da je
štos upotreba nedokumentovane funkcije 4B04h. U stvari ono rešenje koje
je poslao taj sa bix-a radi lepo, međutim mislim da može i kraće. Treba
malo pogledati kako to radi Turbo C, on ima uz funkcije SPAWN mogućnost
da novi program potpuno zameni stari, ali koliko se sećam, a odavno sam
to gledao, poziva funkciju 4Bh podfunkciju 04 (nedokumentovana je, što
pravi problem oko potrebnih parametara).
P.S.
U onoj konferenciji PC.SOFT, ima lepih stvari! Mogao bi neko ko se seća
da napiše šta još ima tako lepo tamo. Bar neke krupnije probleme koji su
rešavani, jer ne mogu da DL celu konferenciju da bih je pogledao.
pascal.331ilazarevic,
-> #312, ssokorac█ Kako se u konkretnom primeru izvršava komanda EXEC? <ne na
█ Sezamu ;) >. Ja sam pokušavao gledajući help i primer u helpu da
Recimo, ovako:
SwapVectors;
Exec(getenv('COMSPEC'),'/C c:ĐigreĐtetris');
SwapVectors;
Pre tog poziva mora da se pozove instrukcija $M koja odvaja definisanu
količinu memorije za stek i definiše min i max za heap.
pascal.332vvelisavljev,
Jel ima neko yu fontove (*.chr) za turbo pascal ?
Ili još bolje ako ima neki font editor ili font konvertor pomoću koga se mogu
dobiti yu fontovi.
pozdrav, Viktor !
pascal.333dzakic,
-> #331, ilazarevic>> Pre tog poziva mora da se pozove instrukcija $M koja odvaja
žisto terminologije radi: $M nije instrukcija već direktiva
kopmpajleru kakav kod da generiše. Zato se i piše u vitičastim
zagradama. Ako je nema u sorsu, može da se podesi preko menija u
integrisanoj okolini.
pascal.334dnikolic,
-> #295, prvul>> Ne! TVision je biblioteka objekata za Turbo Pascal,
Postoji i TV za C++.
dn
pascal.335skoprivica,
Kako da iz programa vratim errorlevel ?
pascal.336stomic,
-> #335, skoprivica$ Kako da iz programa vratim errorlevel ?
Halt(B: Word);
Gde je B broj ErrorLevel-a, ako se izostavi podrazumeva
se ErrorLevel=0.
Evo sada i jedno pitanje. Zašto u HELPu za TP piše da
parametar HALTa je tipa Word (znači od 0..65535), a inače to je
funkcija dos interrupta 21h (AH=4Ch), a u AL se stavlja ExitCode
(odnosno ErrorLevel), AL je Byte (0..255)! Jel' to TP poziva neki
drugi interrupt za prekid programa, ili je greška u HELPu (nedaj
bože kompajleru)?
stomic
pascal.337dragisha,
-> #301, nbatocaninű> Pri tome UNIT koristi za komunikaciju sliüan sistem kao i
ű> objekti, zato ëto se radi o izuzetno efikasnoj i
ű> jednostavnoj komunikaciji. Skraäeno reüeno, UNIT se za
ű> vreme izvrëavanja zaista ponaëa kao statiüki objekat, ali
ű> nema sve osobine koje imaju objekti. Na primer,
Ne bas. Navodjenje nekog Unit-a u Uses direktivi uvoze se svi njegovi
elementi (da ne kazem objekti) i poslije toga lako dolazi do kolizija u
davanju imena. Moduli u Moduli-2, a isto i objekti, koriste kvalifikovani
pristup (analogno pristupu pojedinim poljima slogovne varijable).
ű> obraäate paćnju: OOP je neëto izuzetno praktiüno i
ű> korisno. Mislim da je to najveäa revolucija u
ű> programiranju posle uvoöenja procedura.
Objektno programiranje je, slicno strukturiranom programiranju u njegovo
doba, ustvari samo novi vid organizacije koda.
Ono sto je vazno u programiranju (za OOP pogotovu) je da se pojedini
dijelovi prave tako da sto 'kontrolisanije' komuniciraju sa okolinom. To
zovu 'slaba veza', a znaci da se pojedinom objektu (ili Modulu u Moduli-2)
pristupa samo u strogo kontrolisanim tackama.
...
dragisha
pascal.338djnsnd,
-> #331, ilazarevic> Recimo, ovako:
>
>
> SwapVectors;
> Exec(getenv('COMSPEC'),'/C c:ĐigreĐtetris');
> SwapVectors;
>
> Pre tog poziva mora da se pozove instrukcija $M koja
> odvaja definisanu količinu memorije za stek i definiše min
> i max za heap.
Ako radiš u TV to nije dovoljno. Potrebno je nešto ovakvo:
DoneSysError;
DoneEvents;
DoneVideo;
DoneMemory;
SetMemTop(HeapPtr);
SwapVectors;
Exec(Str1, Str2);
SwapVectors;
SetMemTop(HeapEnd);
InitMemory;
InitVideo;
InitEvents;
InitSysError;
Redraw;
Našao sam to u nekom listingu.
DjnSnd
pascal.339djnsnd,
Da li neko može da mi objasni ograničenja koja Borland uvodi korisnicima
(copyright) pri upotrebi delova Demo programa.
DjnSnd
pascal.341predragd,
-> #325, stomic> Da li je neko pokusao da pise neki kraci (ASCII) tekst
> pomocu TVEDIT, (nalazi se u demo programima za Turbo
> Vision). Kucanje traje OK, posle nekog vremena mi se
> blokiraju neki tasteri (mislim par tastera sa brojevima,
> itd...).
Da bi resio taj problem trebao bi da nabavis fajl EDITOR.PAT, koji
se nazalost nalazi (koliko sam ja uspeo da razumem) na BIX-u. Ako
uspes da dodjes do tog fajla ne bi bilo lose da ga posaljes. Ovo isto
mozes da procitas u poruci 9.136 u staroj konferenciji PC.SOFT.
Pedja.
pascal.342predragd,
Zdravo
Evo i jedno konkretno pitanje na temu TV. Zna li neko kako se radi
sa TListBox objektom. Naime, ono sto mene interesuje je kako da dobijem
na izlazu iz ovog dialog-a podatak u listi koji sam selektovao. Npr:
u objektu TFileDialog selektojemo odredjeni fajl pritiskom na ENTER
ili duplim klikom na misa. Na izlazu se dobije ime fajla koji smo
izabrali. Kako doci do toga. U originalnom uputstvu, naravno, gotovo
nista ne pise o TListBox objektu.
Pozdrav, Pedja.
pascal.343predragd,
-> #332, vvelisavljev> Jel ima neko yu fontove (*.chr) za turbo pascal ?
> Ili jos bolje ako ima neki font editor ili font konvertor
> pomocu koga se mogu dobiti yu fontovi.
U prilogu ti saljem font editor za .CHR fontove. YU fontove bi
mogao eventualno da nadjes u programu QUATRO PRO 3.01. Uz program
se dobije i disketa sa nasim fontovima (8 fontova, uz napomenu da je
program sigao direktno od MARAND-a). Mogao bih eventualno da ti
posaljem te fontove, ali tek kroz dve nedelje.
Pedja.
bgifont.arjpascal.344djelovic,
-> #334, dnikolic> Postoji i TV za C++.
Ima li ga ko?
pascal.345djnsnd,
U uputstvima za TPas pise da je rad sa typed i untyped datotekama mnogo
brzi nego rad sa tekstualnim datotekama.
Da li neko ima prakticna iskustva kolika je razlika?
Dejan
pascal.346djnsnd,
U Programer's Guide i Library Reference uputstvima TP (uz par
nedoslednosti) pise da se procedura Append (za nastavak upisivanja u
datoteku) moze primenjivati samo na tekstualne, a ne i na ostale (typed
i untyped ) datoteke.
Da li postoji nacin da se nastavi sa upisivanjem u ranije formirane
datoteke ova dva tipa?
Dejan
pascal.347djnsnd,
Da li neko zna ko je sada diler Borlanda za YU? Znam da je (pre rata) to
bio Marand. Poslednju poruku od njih sam dobio pre par meseci. Posto mi
ne odgovara da placam u tolarima, da komuniciram iskljucivo na
slovenackom, da se maltretiram sa postanskim vezama sa Slovenijom i sl.
predlazem da svi registrovani korisnici sa Sezama napisu pismo ili
potpisu peticiju (dogovoricemo se naknadno) u kojoj bi trazili da se
odredi novi zastupnik za YU (ili Srbiju).
Posto ovo nije mesto za ovakve razgovore (tema je Pascal), pozivam sve
zainteresovane, registrovane korisnike TP ili TP4Win da mi se jave pa da
se prebacimo u grupu. Posto se mi korisnici TP dogovorimo izacicemo sa
predlogom i pred ostale korisnike (BC++, TC, TA, Quatro, Paradox ...)
DjnSnd
Dejan
pascal.348djnsnd,
Ja sam registrovani korisnik Turbo Pascala, pa imam svu literaturu koja
se dobija u paketu. Ipak, voleo bih da nadjem jos neke specijalizovane
knjige na engleskom (ili nasem jeziku) prvenstveno o Turbo Viziji i
eventualno o objektnom programiranju u Turbo Pascalu.
Da li neko ima ili je mozda video neku takvu knjigu?
pascal.349hercog,
-> #326, stomic**> program. Analiziraj ih trebalo bi da bude OK!. Za svaki
**> slučaj ti ih šaljem uz ovu poruku. Tu je i .MAK (make)
**> file sa kojim možeš
Ajd ti to pošalji još jednom jer ima grešku u zip fajlu
Hercog
pascal.351dejanr,
-> #345, djnsnd>> U uputstvima za TPas pise da je rad sa typed i untyped datotekama mnogo
>> brzi nego rad sa tekstualnim datotekama.
Moje iskustvo je da je rad sa tekst datotekama dovoljno brz (naročito ako
koristiš settextbuf i dodeliš dovoljno memorije za bafer). Naravno, najbrži
pristup je sa blockread/blockwrite pošto tako direktno zoveš DOS.
Ono što je katastroflano sporo je, ako na primer treba da čitaš slovo po
slovo, koristiš
ime: file of byte;
...
while not eof(ime) do
read (ime, podatak;
pascal.352dejanr,
-> #346, djnsnd>> Da li postoji nacin da se nastavi sa upisivanjem u ranije formirane
>> datoteke ova dva tipa?
Naravno! Ovako napamet, možeš da uradiš reset (ime,1), onda seek(ime,dužina)
i onda prosto (block)write (ime, podatak...). Dužinu saznaš funkcijom koja
se, mislim, zove filesize.
pascal.353dejanr,
Zna li neko kako se na turbo paskalu može simulirati seek (datoteka, adresa)
ako je datoteka tipa text? (pretpostavljam da ne može nikako, al' ko zna?
pascal.354skoprivica,
-> #339, djnsnd>-> Da li neko moze da mi objasni ogranicenja koja Borland uvodi
>-> korisnicima (copyright) pri upotrebi delova Demo programa.
Mislim da nema ogranicenja, kao ni za .bgi i sl...
Aje... CTEBO.
pascal.355ilazarevic,
-> #333, dzakic█ žisto terminologije radi: $M nije instrukcija već direktiva
█ kopmpajleru kakav kod da generiše. Zato se i piše u vitičastim
Eh, bože moj, teminologija mi nikad nije bila jača strana ;)
pascal.356stomic,
-> #337, dragisha$ Ne bas. Navodjenje nekog Unit-a u Uses direktivi uvoze se
$ svi njegovi elementi (da ne kazem objekti) i poslije toga
$ lako dolazi do kolizija u davanju imena. Moduli u
$ Moduli-2, a isto i objekti, koriste kvalifikovani pristup
$ (analogno pristupu pojedinim poljima slogovne varijable).
Nisam siguran da li si mislio na ovo ali i TP omogućava
npr. Crt.TextColor(Yellow) za postavljanje žite boje, ako imate
istu proceduru u glavnom programu, ili nekom unitu, a želite da
pozovete tu proceduru iz CRT unita, onda koristite ovo, a ako
ne, onda samo TextColor
stomic
pascal.357stomic,
-> #339, djnsnd$ Da li neko može da mi objasni ograničenja koja Borland
$ uvodi korisnicima (copyright) pri upotrebi delova Demo
$ programa.
Mislim da nepostoji nikakvo ograničenje prema
korisnicama, jer su dali i izvorni kod (većine programa),
i sada da nas ograniče nekim CopyR. U svakom slučaju možeš
uzeti deo prepisati (malo izmeniti) da ne bude totalno prepisan.
Nisam siguran ali smatram da nema smisla uvoditi neke
zaštite (možda na cele demo programe, ali i to teško, kada
su već davali source kod).
stomic
pascal.358stomic,
-> #341, predragd$ Da bi resio taj problem trebao bi da nabavis fajl
$ EDITOR.PAT, koji se nazalost nalazi (koliko sam ja uspeo
$ da razumem) na BIX-u. Ako uspes da dodjes do tog fajla ne
$ bi bilo lose da ga posaljes. Ovo isto mozes da procitas u
$ poruci 9.136 u staroj konferenciji PC.SOFT.
Ako neko ima pristup BIXu (Dejane?), ako može da mi
skine ovaj EDITOR.PAT, ili da li ga ima negde na exYU BBSovim?
Uopšte šta radi taj file (malo čudna ekstenzija). Da li neko
zna gde je greška u programu (pošto je dat izvorni kod, pa da
ispravimo, video sam da ima dosta delova pisanih u asembleru)?
stomic
pascal.359stomic,
-> #353, dejanr$ Zna li neko kako se na turbo paskalu može simulirati seek
$ (datoteka, adresa) ako je datoteka tipa text?
$ (pretpostavljam da ne može nikako, al' ko zna?
Neverujem da ima šanse. Bilo bi lepo napraviti ASCII
editor koji ne učitava tekst u memoriju, već radi sa diskom,
liniju po liniju (neverujem da bi bilo suviše sporo), pa kako
pomeraš kursor(gore/dole), čitaš i file pomoću SEEK/READ.
Jedino što mi pada na pamet da se ASCII datoteka
pretvori u File of Rec, gde je
Rec = Record
Text: String[LineLength];
End;
Pa da iz ASCII datoteke prvo prepišemo sve u ovu,
novu datoteku, pa posle nazad. Ali izgleda malo glupo, a i
mislim da bi bilo sporo! OK?
stomic
pascal.360stomic,
-> #342, predragd$ Kako doci do toga. U originalnom uputstvu,
$ naravno, gotovo nista ne pise o TListBox objektu.
Nisam siguran da li ovo tražiš, ali pokušaj sa
SetData(Ver Rec), gde je Rec varijabla (ili slog, Record),
pa posle sa GetData(Ver Rec), uzmi izmenjene podatke.
stomic
pascal.361stomic,
-> #349, hercog$ Ajd ti to pošalji još jednom jer ima grešku u zip fajlu
Evo stiže! žudime da je bilo grešaka u ZIP fileu.
Ako budeš imao (još) problema javi. OK?
stomic
bgilink.zippascal.362dejanr,
-> #354, skoprivica>> > Da li neko moze da mi objasni ogranicenja koja Borland uvodi
>> > korisnicima (copyright) pri upotrebi delova Demo programa.
>>
>> Mislim da nema ogranicenja, kao ni za .bgi i sl...
Ima ograničenja. Program uz koji isporučujete/u koji ugradite BGI, CHR
i slične fajlove mora biti pod kopirajtom. Dakle, ili u njemu mora biti
poruca (C) 199x Pera Perić, ili ako to iz nekog razloga ne želite, onda
u njemu mora biti poruka "delovi ovog programa su (C) Borland inc)".
Sve to je vrlo detaljno prožvakano u licenci koja ide uz Borlandove jezike
pascal.363ognjan,
Ovdje je*e lud zbunjenog. Neka mi neko otkrije gdje je greška ili XRD TP.
( znam da je nešto glupo ali nekontam ... )
program space_to_tab;
var ime:string[12];
buffer:string[80];
f1,f2:text;
rc:char;
pos,zpos,zbroj,i,j:integer;
flag:boolean;
procedure novo_ime;
var t,l:Byte;
imebak:string[12];
begin
imebak:=ParamStr(1);
t:=Pos ('.',imebak);
l:=Length(imebak);
if t>0 then
begin
Delete (imebak,t+1,l-t);
Insert ('BAK',imebak,t+1);
end
else
Insert ('.BAK',imebak,l+1);
Assign(f,ParamStr(1));
Rename (f,imebak);
WriteLn ('Rename ',ParamStr(1),' to ',imebak);
end;
begin
if paramcount=0 then
begin
poruka;
halt;
end;
novo_ime;
{$I-}
assign(f1,paramstr(1));
reset(f1);
if ioresult<>0 then
begin
writeln('Trazena datoteka nije pronadjena ');
halt;
end;
{$I+}
assign(f2,ime);
rewrite(f2);
if paramcount>=2 then
parametri
else
begin
zpos:=1;
zbroj:=2;
end;
repeat
read(f1,rc);
if ord(rc)=13 then
pos:=1;
if ord(rc)=32 then
begin
if pos>=zpos then
begin
flag:=true;
i:=0;
repeat
i:=i+1;
pos:=pos+1;
read(f1,buffer[i]);
if ord(buffer[i])<>32 then flag:=false;
until((i<zbroj) and flag);
end;
end;
if flag then
write(f2,chr(7))
else
begin
for j:=1 to i do
write(f2,buffer[j]);
end;
until EOF(f1);
close(f1);
close(f2);
end.
pascal.364dejanr,
-> #359, stomic>> > Zna li neko kako se na turbo paskalu može simulirati seek
>> > (datoteka, adresa) ako je datoteka tipa text?
>> > (pretpostavljam da ne može nikako, al' ko zna?
>>
>> Neverujem da ima šanse... Jedino što mi pada na pamet da se
>> ASCII datoteka pretvori u File of Rec
Da se razumemo, ja sam problem koji izlažem rešio tako što sam
napravio nekakav unit FileOps koji radi sa "untyped" fajlovima
(preko blockread/blockwrite) a simulira rad sa tekstom, dakle
ima čitanje linija, baferiše čitanje i tako to. Radi onoliko brzo
koliko rade tekst fajlovi (pa i nešto brže), može sve što i
(katastrofalno spor) pristup sa file of byte uračunavajući i seek i
tako to. Taj unit koristim već godinama kada mi treba rad sa velikim
tekst datotekama, ali sve nešto računam, možda ima i neki "sistemski"
način. Najzad, za DOS je i datoteka tipa text obična binarna datoteka,
a na raspolaganju je njen handle... možda bi se nešto dalo "smutiti"?
Ako ne, nema mi druge nego da jednom sednem i pišem
FileOpsTheNextGeneration, jer sam valjda za ovih 5 godina otkad
sam napisao stari FileOps ponešto naučio ;)
pascal.365nboskovic,
-> #343, predragd*> program sigao direktno od MARAND-a). Mogao bih eventualno
*> da ti posaljem te fontove, ali tek kroz dve nedelje.
Ajde mejluj i mene a kada...pa čim ti se ukaže prilika.
Unapred hvala.
(c) klap
nikola
pascal.366skoprivica,
-> #357, stomic>-> Mislim da nepostoji nikakvo ogranicenje prema
>-> korisnicama, jer su dali i izvorni kod (vecine programa),
>-> i sada da nas ogranice nekim CopyR. U svakom slucaju mozes
>-> uzeti deo prepisati (malo izmeniti) da ne bude totalno prepisan.
A i onako TV programi lice jedan na drugog (Alt-x i slicne stvari)
Aje... CTEBO.
pascal.367vbole,
-> #353, dejanr> Zna li neko kako se na turbo paskalu može simulirati seek (datoteka,
> adresa) ako je datoteka tipa text? (pretpostavljam da ne može nikako,
> al' ko zna?
Eh, moj majstore, a ja tvoj umetak 'Turbo Pascal 4.0' držim na polici,
zbog sintakse...
Stvarno mi to nije nikad palo na pamet, zašto hoćeš da se na taj način
šetaš po Text-datoteci ?
U svakom slučaju, malo sam se igrao i evo ga program za testiranje i
u njemu ( šta bi moglo biti ?? ) - procedura koja postavlja pointer na
zadatu adresu u fajlu.
Ako postaviš pointer iza kraja datoteke, nema greške, dobijaš - ništa.
Isto to dobijaš ako se postaviš na CR.Ako se postaviš na LF, biće učitan
LF i sledeći red.To važi za ovaj način učitavanja, ako na početku dekla-
rišeš dužinu Linije, učitava se length(Linija) bajtova, ali opet najviše
do kraja linije u fajlu.Uostalom, to i sam znaš, evo ga source ispod.
Ako u CX:DX staviš 0, a u al 2, možeš da saznaš dužinu fajla, što je
kod tipa text malo teže.
Ajd' javi mi stvarno zašto ti to treba i kako računaš adresu a da ne
pogodiš u CR.
program filepntr;
uses dos;
var
Infile : text;
Imefajla, Linija : string;
Regs : Registers;
gde, poz : real;
procedure setpointer(gde : real);
begin
reset(Infile); (* Pointer na početak fajla *)
Regs.ah:=$42; (* MS-DOS funkcija 42h *)
Regs.al:=0; (* Počni od početka + Offset *)
Regs.bx:=5; (* Broj Handle ako je prvi fajl *)
Regs.cx:=round(int(gde/65536)); (* Offset High *)
Regs.dx:=trunc(gde-(Regs.cx*65536));(* Offset Low *)
MsDos(Regs); (* Pozovi DOS-funkciju *)
end;
begin
if paramcount>1 then begin
writeln('Samo jedan parametar !');
halt;
end;
Imefajla:=paramstr(1);
(* Imefajla:='double.pas'; *)
š$I-ć
assign (Infile,Imefajla);
reset (Infile);
if ioresult<>0 then begin
writeln('Nema fajla sa tim imenom !!');
halt;
end;
repeat
write('Na koju poziciju: ');
Readln(poz);
setpointer(poz-1); (* Prvi bajt je ustvari offset nula, zato -1 *)
Read(Infile,Linija);
writeln(Linija);
until false;
end.
bye... vbole
P.S. Kuku, zaboravih fotografiju na konju...
pascal.368bulaja,
-> #347, djnsnd│Posto ovo nije mesto za ovakve razgovore (tema je Pascal), pozivam sve
│zainteresovane, registrovane korisnike TP ili TP4Win da mi se jave pa da
│se prebacimo u grupu.
└───
Ovo mozda nije, ali postoji u PC.USER tema nabavka, namenjena upravo
ovakvim stvarima.
pascal.369macak,
-> #363, ognjanNesto sam ceprkao po ovom tvom fajlu (imas par nedefinisanih
promenljivih i jos par stvari,ali to nije toliko vazno).
Vazno je sto nece da "radi" funkcija POS.
Da nije greska u Pascalu??? :))
pascal.370dejanr,
-> #367, vbole>> Stvarno mi to nije nikad palo na pamet, zašto hoćeš da se na taj način
>> šetaš po Text-datoteci ?
Uopšte me ne zanima za tekst datoteke, ali uzmi u obzir da rad sa tekst
fajlovima funkcioniše dobro, brz je i ima rešeno baferisano čitanje sa
settextbuf... ovo bi bilo mnogo komfornije za rad sa binarnim datotekama
kada postoji seek.
Tvoj program ću probati, ali nisam ubeđen da će raditi dobro zbog
settextbuf - bojim se da će, iako je DOS-om pointer "oteran" na drugo
mesto, davati pogrešne podatke pri čitanju.
pascal.371dzakic,
-> #370, dejanr>> settextbuf - bojim se da će, iako je DOS-om pointer "oteran" na
>> drugo mesto, davati pogrešne podatke pri čitanju.
Neće čak ni pomeriti pointer. Problem je kod file handle-a uvek
pet). Kako zapravo saznati handle nekog fajla? Zna li se
organizacija strukture na koju ukazuje promenljiva tipa file?
pascal.372stomic,
-> #366, skoprivica$ A i onako TV programi lice jedan na drugog (Alt-x i slicne
$ stvari)
To je samo još jedan primer nasleđivanja, mada sve
može da se menje, ali smatram da nema svrhe, radna okolina
je odlično postavljena. A i kada se navikneš da radiš sa
TP, pri prelasku na neki drugi program rađen u TV pola
stvari znaš kako se rade (F3-Open file, F2-Save, naravno
i to može da se menja ali nema potrebe).
stomic
pascal.373stomic,
-> #363, ognjan$ Ovdje je*e lud zbunjenog. Neka mi neko otkrije gdje je
$ greška ili XRD TP. ( znam da je nešto glupo ali nekontam
$ ... )
Kako si uopšte uspeo da prevedeš? Imaš definisanu
promenljivu Pos, a koristiš i proceduru Pos. Prednost ima
promenljiva. Možda je ovde problem?
stomic
pascal.374dragisha,
-> #356, stomicű> Nisam siguran da li si mislio na ovo ali i TP omogucava
ű> npr. Crt.TextColor(Yellow) za postavljanje zite boje, ako
ű> imate
Jah, upravo to. Sad cu da potrazim ostale mane...
:)
dragisha
pascal.375djnsnd,
-> #362, dejanr> Sve to je vrlo detaljno prožvakano u licenci koja ide uz
> Borlandove jezike
Jeste, razumeo sam sta pise, ali mnije bilo logicno. Odnosno, nije mi
bilo jasno zbog cega je tako.
Hvala.
DjnSnd
pascal.376djnsnd,
-> #351, dejanr> Moje iskustvo je da je rad sa tekst datotekama dovoljno
> brz (naročito ako koristiš settextbuf i dodeliš dovoljno
> memorije za bafer). Naravno, najbrži pristup je sa
> blockread/blockwrite pošto tako direktno zoveš DOS.
Da li je dovoljno brz za rad sa datotekama duzine npr. 2,3,4 ili 5 Mb?
ILi npr. da li bi SOR, da je pisan u pascalu mogao da bude kreiran sa
tim datotekama ili bi mogao da radi sa text datotekama?
Hvala.
pascal.377macak,
-> #369, macakJoooj...koji sam manijak! :)
Nisam uopste video da ima i promenljiva POS. :)))
Sorry!
P.S.Izvinjavam se Borlandu sto sam posumnjao u njihov proizvod. ;)))))
pascal.378djnsnd,
-> #271, djnsnd Osniva se grupa koja ce se baviti
Turbo Vision-om Turbo Pascala 6.0
************
Pozivam sve zainteresovana da mi se jave.
Ima jos mesta.
DjnSnd
pascal.379dzakic,
-> #376, djnsnd>> Da li je dovoljno brz za rad sa datotekama duzine npr. 2,3,4 ili 5 Mb?
Brz je koliko može da bude. Ako te interesuje da li pomeranje
pointera sa početka na neko 'daleko' mesto zahteva čitanje svih
tih nekoliko megabajta, dovoljno je da ti kažem da seek zapravo
*izračuna* poziciju na disku i učita direktno traženi sektor.
>> ILi npr. da li bi SOR, da je pisan u pascalu mogao da bude
>> kreiran sa tim datotekama ili bi mogao da radi sa text datotekama?
Mogao bi sor da bude i u paskalu sa untyped datotekama. I paskal
i C pozivaju iste dosove rutine. Sa text datotekama, nikako.
pascal.380obren,
-> #371, dzakic> Neće čak ni pomeriti pointer. Problem je kod file handle-a uvek
> pet). Kako zapravo saznati handle nekog fajla?
Handle nekog fajla je na samom početku strukture na koju pokazuje file.
To važi za sve vrste datoteka pa i text i netipizirane. Dakle može se
tačno odrediti handle nekog fajla umesto da se kao u onom programu računa
da je on uvek 5. Evo jednog od načina:
var f : text; (* može i file of... ili samo file *)
handle : integer;
ptr : ^integer;
begin
assign(f, 'imefajla.ext');
reset(f);
ptr:=addr(f);
handle:=ptr^;
.
.
.
posle se može iskoristiti funkcija 42h da se pomeri pointer pošto je
handle željene datoteke poznat. Inače nije loša ideja da se binarne
datoteke otvore kao text da bi se iskoristilo settextbuf. To mi ne
bi nikad palo na pamet. Jedino što se moraju pisati neke procedure u
asembleru ali i to ide u korist brzine.
pascal.381vbole,
-> #370, dejanr> Tvoj program ću probati, ali nisam ubeđen da će raditi dobro zbog
> settextbuf - bojim se da će, iako je DOS-om pointer "oteran" na drugo
> mesto, davati pogrešne podatke pri čitanju.
Ama, neće sigurno, baš zbog toga sam i stavio ono " reset(Infile); "
na početak procedure.
To radi pascal, a ne DOS.
Znači, pointer se uvek postavi na početak fajla i očisti se buffer -
bez resetovanja bi naravno davao pogrešne podatke.
Ja ga isprobao sa buf od 1000 do 65000 Bajtova i uvek daje tačne podatke.
bye... vbole
pascal.382vbole,
-> #371, dzakic> Neće čak ni pomeriti pointer.
Auuu, al' si kategoričan... Da se kladimo da hoće ??
> Problem je kod file handle-a uvek pet).
Ja napisah da to važi samo ako je fajl koji se obradjuje učitan kao
prvi.DOS ima 5 predefinisanih HANDLE-a ( od 0 do 4 ), svaki sledeći
fajl ( ili device ) dobija za 1 veći broj od prethodnog, prvi učitani
je broj 5.Ne verujem da je toliki problem zapamtiti kako i koje fajlove
otvaraš, pa im u programu davati iste brojeve kao DOS.
bye... vbole
pascal.383nbatocanin,
-> #321, ilazarevic> Molim te da staviš nekakav kod, poludeh od onih a sa
> kružićem i e sa tačkicama :)
Veoma se izvinjavam svima. Koristim kodni raspored koga nema u SET
CODE, pa često zaboravim da izvršim konverziju. Moraću stvar da
automatizujem.
Pozdrav, Nenad
pascal.384nbatocanin,
-> #337, dragisha> Objektno programiranje je, slicno strukturiranom
> programiranju u njegovo doba, ustvari samo novi vid
> organizacije koda.
Ne znam da li si mislio u jako pozitivnom ili "osrednjem" značenju.
Ako ovako gledaš, i procedure su "samo" novi vid organizacije koda.
pascal.385dzakic,
-> #382, vbole>> Auuu, al' si kategoričan... Da se kladimo da hoće ??
>> Ne verujem da je toliki problem zapamtiti kako i koje
>> fajlove otvaraš, pa im u programu davati iste brojeve kao DOS.
Pa znam da hoće pomeriti pointera fajla sa handle-om pet, ali to
ručno brojanje handle-a mi se ne sviđa jer program može da radi i u
nekom multitaksing okruženju, pa tvoj program nije jedini koji
otvara datoteke. Zanimalo me je ono što je obren napisao - prvi
element u file strukturi.
pascal.386dejanr,
-> #375, djnsnd>> Jeste, razumeo sam sta pise, ali mnije bilo logicno. Odnosno, nije mi
>> bilo jasno zbog cega je tako.
Vrlo je logično. Borland zadržava određena prava nad tim programima, ako
ništa drugo moralna. Ako bi ti ugradio nešto od toga u neki program koji
uopšte nije pod copyright-om (makar tvojim), onda sa njim može svako da
radi šta 'oće. To je OK za onaj deo programa koji je tvoj (ako ti tako
želiš) ali Borland želi da sačuva svoja prava na deo koji je njihov.
pascal.387andrejl,
Kako u grafičkom režimu na Herculesu prikazati strelicu miša. Naime
na VGA driver sam sve prepozna i radi, a na HGC ne konstatuje prelazak
u grafički režim.
bye, andrejl
pascal.388djnsnd,
-> #379, dzakic>>> Da li je dovoljno brz za rad sa datotekama duzine npr.
> 2,3,4 ili 5 Mb?
>
> Brz je koliko može da bude. Ako te interesuje da li
> pomeranje pointera sa početka na neko 'daleko' mesto
> zahteva čitanje svih tih nekoliko megabajta, dovoljno je
>* da ti kažem da seek zapravo izračuna* poziciju na disku i
>* učita direktno traženi sektor.
Izgleda, da se nismo razumeli.
Da li su text fajlovi dovoljno brzi za rad sa datotekama duzine npr. 2,
5 ili 6 MB. Primer takve aplikacije bi bio Sor jer on radi sa
tekstualnim datotekom.
Problem je što na text datoteke ne može da se primeni SEEK, a na typed
ili untyped APPEND.
Nadam se da je sada jasnija moja dilema.
pascal.389janko,
-> #370, dejanr
> Uopšte me ne zanima za tekst datoteke, ali uzmi u obzir da
> rad sa tekst fajlovima funkcioniše dobro, brz je i ima
> rešeno baferisano čitanje sa settextbuf... ovo bi bilo
> mnogo komfornije za rad sa binarnim datotekama kada
> postoji seek.
Ne želim da popujem, ali C ima setbuf i setvbuf naredbe kojima
se aktivira baferisanje bilo koje datoteke, i text i ne-text.
Tu uopšte ne moraš da razvijaš svoje rutine za baferovanje, jer
je to već ugrađeno u standardne biblioteke. A korišćenje text
režima za ne-tekst datoteke u Pascal-u mi ne miriše na dobro --
dovoljno je da ima u datoteci chr(26) i...
pascal.390vvelisavljev,
-> #343, predragd HVALA!
Lepo radi. Jedino mi nije jasno kako da u TP koristim nove fontove?
Jedino što sam uspeo da uradim je da menjam njegove standardne fontove i to
zaista lepo radi. Ali mi nije jasno kako da nagovorim TP da mi piše na primer
YUSANS.CHR fontom?
pozdrav, Viktor !
pascal.391dzakic,
-> #388, djnsnd>> Problem je što na text datoteke ne može da se primeni SEEK, a na
>> typed ili untyped APPEND.
Na typed i untyped može da se uradi seek(f,filesize(f)) i da se
nastavi sa pisanjem. To je append, zar ne?
Tvoja dilema mi nije jasna. Sor zapravo ne bi ni mogao da se
napiše bez seek, prema tome text fajlovi otpadaju. Što se brzine
tiče, nisam kompetentan kolika je razlika u brzini. Naravno da
zavisi od "zalogaja" kojim uzimaš podatke iz datoteke. Dakle,
kod text datoteka od onog bafera koji može da se podešava a kod
typed i untyped od broja slogova koje uzimaš u jednom čitanju.
Moja je procena da će dobar disk cache tu razliku smanjiti na
razumnu meru.
pascal.392vbole,
-> #380, obren> Handle nekog fajla je na samom početku strukture na koju pokazuje file.
> To važi za sve vrste datoteka pa i text i netipizirane. Dakle može se
> tačno odrediti handle nekog fajla umesto da se kao u onom programu
> računa da je on uvek 5.
Ja sam probao da saznam broj sa FileRec.Handle i TextRec.Handle, ali sam
dobijao neke leve podatke...
Šta oni ustvari vraćaju ??
bye... vbole
pascal.393ndragan,
-> #358, stomic/ Uopšte šta radi taj file (malo čudna ekstenzija). Da li neko
.PATch - zakrpa, odnosno fajl u kome ima ono što ti treba da zakrpiš original.
pascal.394dejanr,
-> #389, janko>> A korišćenje text režima za ne-tekst datoteke u Pascal-u mi ne
>> miriše na dobro -- dovoljno je da ima u datoteci chr(26) i...
i... ništa. žita ga kao i svaki drugi bajt. Probaj ovaj program:
var a: text;
b: file;
znak: char;
fs, i: longint;
begin
writeln; writeln;
assign (b,'a.txt');
reset(b,1);
fs:=filesize(b);
close(b);
assign (a,'a.txt');
reset(a);
for i:=1 to fs do
begin
read (a,znak);
writeln (ord(znak));
end;
end.
Naravno, u a.txt ubaci i nekoliko EOF (1A) karaktera. žitaće ih sasvim
normalno.
pascal.395dragisha,
-> #384, nbatocaninű> Ne znam da li si mislio u jako pozitivnom ili "osrednjem"
ű> znacenju. Ako ovako gledas, i procedure su "samo" novi
ű> vid organizacije koda.
Znacenje "u kom sam mislio" je vrlo POZITIVNO. Cinjenica je da mnogo
ljudi prepoznaje neke elemente objektnog programiranja kao dijelove svojih
dosadasnjih metoda. Ja sam u zadnjih nekoliko godina (od kada sam poceo
raditi u M2) koristio ADT (Abstract Data Type) koji je vrlo blizak pojmu
klase, a izvodiv je BEZ OO jezika.
dragisha
pascal.396dragisha,
-> #382, vboleű> Ja napisah da to vazi samo ako je fajl koji se obradjuje
ű> ucitan kao prvi.DOS ima 5 predefinisanih HANDLE-a ( od 0
ű> do 4 ), svaki sledeci fajl ( ili device ) dobija za 1
ű> veci broj od prethodnog, prvi ucitani je broj 5.Ne
ű> verujem da je toliki problem zapamtiti kako i koje
ű> fajlove otvaras, pa im u programu davati iste brojeve kao
ű> DOS.
File pri otvaranju ima jedan flag koji kaze da li je "inheritable". Ako
program koji poziva tvoj program ima na taj nacin otvorene fajlove (npr,
pozivas ga iz svog omiljenog editora) onda je lako moguce da prvi otvoreni
fajl nema handle 5 nego neki veci.
dragisha
pascal.397ilazarevic,
U vezi onog unita za rad sa mišem:
Kada se izađe iz programa koji koristi ovaj unit, kursor postaje
tanka crta koja trepće iznad, a ne ispod slova?! Jel to mora tako?
pascal.398obren,
-> #392, vbole> Ja sam probao da saznam broj sa FileRec.Handle i TextRec.Handle, ali
> sam dobijao neke leve podatke...
> Šta oni ustvari vraćaju ??
Ja probao i radi!?! Utoliko je bolje od onog mog rešenja jer je lepo
dokumentovano (mada u help-u piše da se to koristi interno od strane
turbo pascala). Samo napišeš handle:=filerec(f).handle. Jedino nisam
siguran da li je ova struktura "novitet" šestice ili je bila dostupna
i u ranijim verzijama. Ako neko koristi 5.5 neka vidi u helpu, jer
handle je bio i kod 5.5 na samom početku file strukture, samo što su
tu strukturu izgleda sada i dokumentovali (a možda je bila i ranije?).
Dragan
pascal.399adezelin,
-> #252, stomic>|#*}- Ako procedure vraca bajt, onda (nisam siguran, posle
>|#*}- onog lapsusa sa RET 0 :-))) stavi izlaznu vrednost u
>|#*}- AL, ako je izlaz word ili integer onda u AX. Za
>|#*}- ostale tipove neznam. Nepravi neku funkciju u TP
>|#*}- prevedi program, i pregledaj ga sa nekim debugom
>|#*}- (najbolje TD, ukluci i source kod). Pokusaj da predes
>|#*}- na TP 6.0, i asemblerske programe mozes glatko da
>|#*}- pises u TPu.
>|#*}- Pozdrav stomic
>|#*}- ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Hvala ti mnoogooo!
Usput imam za TP 6.0 neke rutine za rad sa spritovima pa ako ti treba,
samo trazi!!!(skinuo sam ih sa nekog BBS-a PD su)
pascal.400adezelin,
-> #256, vvelisavljev>|#*}- Nema za PCX, ali zato imam za GIF.
>|#*}- pozdrav, VV
Super stvar, ali steta, nije za TP 5.5(bar da ima source!).
Da nemas kod sebe slucajno i source ili tako nesto(mozda bi pomogli i
TPU-ovi za TP 5.5)??
Thanx unapred!!
pascal.401vbole,
-> #398, obren> Ja probao i radi!?! Utoliko je bolje od onog mog rešenja jer je lepo
> dokumentovano (mada u help-u piše da se to koristi interno od strane
Jel' se sećaš kad je Dejan poslao onaj program za ispis vremena i
datuma nekog fajla, a nije uradio reset(f) ??
E pa, učlanih se i ja, doduše, ja zaboravio na ime fajla...
Ajde ja kao provereni lapa, ali crnjak je što je Dejan još '88 u umetku
za TP 4.0 napisao: "Samo povezivanje logičkog i fizičkog imena nije
dovoljno; datoteku treba i otvoriti...".
> handle je bio i kod 5.5 na samom početku file strukture, samo što su
> tu strukturu izgleda sada i dokumentovali (a možda je bila i ranije?).
Radi unazad do 4.5 ( starije nemam ).
bye... vbole
pascal.402bdm.,
-> #397, ilazarevic## Kada se izade iz programa koji koristi ovaj unit, kursor
## postaje tanka crta koja trepce iznad, a ne ispod slova?!
## Jel to mora tako?
Ne znam o kom je Unit-u rec ali probaj ovako nesto
PROGRAM Prog(Input, Output) ;
VAR
CursorShape : Word ABSOLUTE $0040:$0060 ;
MemoCursorShape : Word ;
BEGIN
MemoCursorShape:= CursorShape ;
...
CursorShape:= MemoCursorShape ;
WriteLn
END. { Prog }
BDM.
pascal.403nesavic,
Pozdrav,
e pa meni ONAJ dragi unit za misa ne radi u GRAFICKOM modu, tj. nema nikakve
strelice, ni crossa nema nista nego na slepo... A text mod lepo radi...!
NeŠa!
pascal.404dzakic,
-> #394, dejanr>> i... ništa. žita ga kao i svaki drugi bajt. Probaj ovaj program:
Jako lepo, Dejane. Ali šta sa onim:
var s:string; f:text;
while not eof do
readln(f,s); ?
pascal.405ssokorac,
-> #403, nesavic:> e pa meni ONAJ dragi unit za misa ne radi u GRAFICKOM
:> modu, tj. nema nikakve
Pa, unit je i bio za text mode!
pascal.406ssokorac,
EVo unit-a pcx.tpu i ega.tpu. Prvi služi za rad za slikama pcx
formata a drugi - nemam pojma! :) Shareware je, pa ako hoćete source,
morate da pošaljete 1$ tamo negde...:) Ah, da, radi samo na TP 6.0.
Stasha
tppcx.arjpascal.407stomic,
-> #399, adezelin$ Usput imam za TP 6.0 neke rutine za rad sa spritovima pa
$ ako ti treba, samo trazi!!!(skinuo sam ih sa nekog BBS-a
$ PD su)
Nema na čemu. Što se tiče toga šalji, možda i nije
loše. Baš me interesuje našta liči, jer već u TP imaju, na
neki način, ugrađene procedure za sprajtove (GETIMAGE i
PUTIMAGE).
stomic
pascal.408dejanr,
-> #404, dzakic>> > i... ništa. žita ga kao i svaki drugi bajt. Probaj ovaj program:
>>
>> Jako lepo, Dejane. Ali šta sa onim:
>>
>> var s:string; f:text;
>> while not eof do
>> readln(f,s); ?
Šta? I dalje ništa :) Bilo je reči o čitanju BINARNE datoteke kao
tekstualne. U binarnoj datoteci READLN nema smisla, a EOF sam testirao
kako piše u poruci 4.394
pascal.409majkl,
-> #390, vvelisavljev> Lepo radi. Jedino mi nije jasno kako da u TP koristim nove
> fontove? Jedino što sam uspeo da uradim je da menjam
> njegove standardne fontove i to zaista lepo radi. Ali mi
> nije jasno kako da nagovorim TP da mi piše na primer
> YUSANS.CHR fontom?
Tome služi funkcija InstallUserFont, a primer možeš pokupiti
iz helpa.
Koliko sam ja primetio na nekoliko stvari treba obratiti
pažnju:
- font YUSN.CHR instalira se pozivom InstallUserFont('YUSN')
tj. bez .chr
- ime font datoteke može imati maksimalno 4 slova. Ako
je ime kraće pri pozivu funkcije mora se dopuniti
blanko simbolima
- u datoteci YUSN.CHR mora na odgovarajućem mestu biti
upisano ime fonta - YUSN
Pozdrav, Majkl
pascal.410zddb,
-> #347, djnsnd
Kao korisnik "Turbo Pascal"-a, zainteresovan sam za ostvarivanje prava
korisnika, preko drugog centra, a ne preko Slovenaca.
Molim vas da me ubacite u Grupu.
Zoran D. Brkić
pascal.411djnsnd,
-> #391, dzakicZahvaljujem na odgovorima i strpljenju.
Djn