pascal.516ilazarevic,
-> #513, dmiric
█ Meni ne radi. Kad malo pomeraš mouse po commanderu pojavljuju se
█ strlice na dole koje ostaju na mestu gde je bio mouse...
Potpuno isti slučaj je i kod mene. Da li je verzija 9.04 rešenje?
Ako jeste.... TRAčI SE! :)
pascal.517dmiric,
subj: Tp6, OOP
Kakva je funkcija sl. reči PRIVATE u definiciji objekta... Recimo deklaracija
ide ovako:
type
xyz = object
...
...
PRIVATE
...
I tome slično. koliko sam shvatio ova direktiva omogućava encapsulation. Ali
kako se ogleda njeno dejstvo na promenljive, a kako na procedure.
Meni bi bilo logično da se promenljive deklarisane posle PRIVATE mogu samo
očitavati (ili čak ni to), a procedure se ne mogu izvršavati... I ukoliko se
prekrši ova zabrana sa kojom greškom će reagovati compiler...
Što je najveći štos u HELP nema ni pomena o ovome, ja sam naišao na ovo u
nekom unitu, a kolko se sećam u nekom fajlu pročitah da tp6 omogućava
encapsulation. Pa jel to to?
(md)
pascal.518dmiric,
Zna li neko sa kojim bi se programom za crtanje mogle izraditi sličice koje bi
se zatim pomoću PutImage i GetImage prikazvati na ekranu... Kolko sam shvatio
to je običan bitmapirani format, al pošto se slabo razumem u grafičke formate
ne znam sa kojim programom bi to mogao da uradim...
thanx
(md)
pascal.519vitez.koja,
-> #517, dmiricPRIVATE deklaracija oznacava pocetak internog podrucja nekog objekta.
Sve procedure i funkcije iza PRIVATE mogu se pozivati samo iz drugih
procedura tog objekta, a promenljive su takodje dostupne samo u tom
objektu...
Prinpic je isti kao kod modula - sve sto je deklarisano ispod
IMPLEMENTATION ne vidi se nigde sem u procedurama tog modula...
vladimir
pascal.520vitez.koja,
-> #518, dmiricNIJE obican bmp ;)
pascal.521wizard,
-> #516, ilazarevic>> █ Meni ne radi. Kad malo pomeraš mouse po commanderu pojavljuju se
>> █ strlice na dole koje ostaju na mestu gde je bio mouse...
>>
>> Potpuno isti slučaj je i kod mene. Da li je verzija 9.04 rešenje?
>> Ako jeste.... TRAčI SE! :)
Ja sam tu verziju dobio na disketama, ali sam je zamenio novom. Na
žalost, jedno vreme se neću moći javljati. :(
<<nenad<<
pascal.522dmiric,
-> #516, ilazarevic> Potpuno isti slučaj je i kod mene. Da li je verzija 9.04
> rešenje? Ako jeste.... TRAčI SE! :)
Jeste rešenje je. Ako se isekulovic slaže poslaću ti u mail....
(md)
pascal.523dmiric,
-> #519, vitez.koja> Prinpic je isti kao kod modula - sve sto je deklarisano
> ispod IMPLEMENTATION ne vidi se nigde sem u procedurama
> tog modula...
Jasno! Hvala na odgovoru.... :)
(md)
pascal.524dmiric,
-> #520, vitez.koja> NIJE obican bmp ;)
Nego kakav. Ima li neko opis formata... Ili neki util sa kojim bi se lakše
radilo...
(md)
pascal.525ndragan,
-> #521, wizard/ žalost, jedno vreme se neću moći javljati. :(
Iz ovog zaključujem da će trik sa nestajanjem proraditi, a da će onda
na redu biti vežbe iz vraćanja.
pascal.526isekulovic,
-> #522, dmiric>> Jeste rešenje je. Ako se isekulovic slaže poslaću ti u
>> mail....
Nema potreba, vec sam mu poslao:)))
Il, zaviri u grupu herc.
pascal.527bearboy,
-> #518, dmiric˙¨:> se zatim pomocu PutImage i GetImage prikazvati na ekranu... Kolko sam
˙¨:> shvatio to je obican bitmapirani format, al posto se slabo razumem u
˙¨:> graficke formate ne znam sa kojim programom bi to mogao da uradim...
Evo sta ja radim - bio je tu u okolini neki unit za manipulaciju sa PCX
slikama, s njim ucitam PCX sliku, ostavim je na skrinu, i lepo skinem delic
sa getimage. Najbolje je da ovo ne radis na active page-u, jer to izgleda
malo blesavo..
pascal.528dmiric,
-> #526, isekulovic> Il, zaviri u grupu herc.
A kako to da izvedem.? Obijanjem sistemskog softvera?:) Ili je to novi feature
za koji ne znam :))))
(md)
pascal.529dmiric,
-> #527, bearboy> Evo sta ja radim - bio je tu u okolini neki unit za
> manipulaciju sa PCX slikama, s njim ucitam PCX sliku,
> ostavim je na skrinu, i lepo skinem delic sa getimage.
> Najbolje je da ovo ne radis na active page-u, jer to
> izgleda malo blesavo..
Da, to je i meni palo napamet... U suštini kad nema boljeg rešenja i to nije
loše...
(md)
pascal.530ilazarevic,
-> #522, dmiric
█ Jeste rešenje je. Ako se isekulovic slaže poslaću ti u mail....
Hvala, slom mi je već poslao :)
pascal.531isekulovic,
-> #528, dmiric>> A kako to da izvedem.? Obijanjem sistemskog softvera?:) Ili
>> je to novi feature za koji ne znam :))
Rekoh Il, mislio sam na ilazarevica posto sam mu poslao u grupu herc:)
Ako hoces mogu da te ubacim u grupu herc2.
ivan
pascal.532dmiric,
Ćao!
Da li neko zna da li je moguće korsititi metod kao proceduralnu varjablu?
Probao sam nešto poput ovog, ali neće da radi.
program Tst;
TYPE
HandlerTYPE = procedure;
CDiskOBJ = object
procedure Handler;
end;
{$F+}
procedure CDiskOBJ.handler;
Begin
writeln ('/ Procedure CDISKOBJ.Handler \');
End;
{$F-}
VAR
Cdisk :CDiskOBJ;
CurrHandle:handlerTYPE;
BEGIN
CurrHandle:=CDisk.handler; <---Error Invalid procedure or function
reference
CurrHandle;
END.
Postoji li način da ovo proradi? U suštini ne vidim zašto ne bi proradilo.
Metod je procedura a ovde je čak i statička, mada i da ja virtual ne bi
trebalo da se jave problemi, jer se assign vrši tek u run-timeu.
(md)
PS. Sada mi pade na pamet da ovo može da se reši u specijalnom slučaju, kad se
koriste objekti koji imaju zajedničkog pretka, pa pomoću kompatibilnosti
pointera... ali to radi samo u slučaju zajedničkog pretka :)
pascal.533dmiric,
-> #531, isekulovic> Rekoh Il, mislio sam na ilazarevica posto sam mu poslao u
> grupu herc:)
Sorry, sorru :) Ja sam ono Il, shvatio kako ili :))))
(md)
pascal.534dmiric,
Koja je poslednja verzija TurboDebuggera? Zadnja za koju ja znam je 1.5?
(md)
pascal.535dmiric,
subj: WP komande u TP6
Za one koji su u TP6 ludeli zbog WS like komandi evo rešenja, koje možda nije
preterano elegantno, ali što je najvažnije radi...
Iako na žalost turbov integrisani editor ne dopušta da se definišu komande kao
u WP, postoji način da se on prevari. Rešenje je krajnje prosto, treba
koristiti sjajan dzakicev ZKEY drajver za tastaturu, koji omogućava da se na
niskom nivou izvrši proizvoljno premapiranje ascii/scan koda... Pošavši od
toga, dovoljno je izmeniti vrednosti za Cursor Up/left/right/down u
ctrl-e,ctrl-s,ctrl-d,ctrl-x respektivno. Ovo se postiže pravljenjem .kbd
fajla:
tp6.kbd:
=================================
>> $4800 $1205 ; UpAr -> Ctrl-E
$4b00 $1f13 ; LfAr -> Ctrl-S
$4d00 $2004 ; RgAr -> Ctrl-D
$5000 $2d18 ; DnAr -> Ctrl-X
>>
>>
>>
=================================
zatim treba napraviti fajl za TEMC, turbo editor Macro compiler...
wp.tem
=================================
Script WP;
Alt-F4 : SetBlockBeg;
Ctrl-End : DeleteToEol;
Alt-F2 : Replace;
Ctrl-U : RestoreLine;
Ctrl-Home : MoveToPrevPos;
ctrl-PgUp : MatchPairBackward;
Ctrl-Pgdn : MatchPairForward;
DnAr : CursorDown; /* Kada ZKEY ne radi */
UpAr : CursorUp;
LfAr : CursorCharLeft;
RgAr : CursorCharRight;
ctrl-e : CursorUp; /* Kada ZKEY radi */
ctrl-s : CursorCharLeft;
ctrl-d : CursorCharRight;
ctrl-x : CursorDown;
home+ctrl-S : LeftOfLine;
End : RightOfLine;
home+ctrl-D : RightOfline;
home+ctrl-X : EndCursor;
home+ctrl-E : HomeCursor;
=============================
TEMC će prihvatiti kombinacije home+ctrl-S i sl dok home-CrLf neće. Zašto je
to tako,ostaje tajna koju znaju oni u Borlandu...
Zatim ovakav script fajl treba komapjlirati, sa komandne linije:
TEMC wp turbo.tp
i stvari su gotove. Još treba napraviti mali batch:
@echo off
d:
c:\yu\keyb\zkey tp6 -a0 <--- uključuje zkey sa tp6.kbd
cd d:\lang\tp6 %1 %2 %3 %4 %5 %6
turbo
c:\yu\keyb\zkey -u <----deinstalira zkey.
i stvari će da rade!
Kretanje kroz IDE menije ide bez problema, jer su podržane i ctrl-s,... dakle
ws komande, naravno ako vam je potreban stari raspored tastature (recimo kad
runujete svoj program ) dovoljno je stisnuti ctrl-alt-f1 i zkey prestaje
premapiranje tastature, dakle sve je kao da ga nema... Naravno na ponovno
premapiranje tastature vraćate se sa ctrl-alt-f2.
Eto. Možda je bilo zgodno izabrati neke druge komande, ali s obzirom da TEMC
podržava jako malo kombinacija, učinilo mi se da je ova najbolja...
Uz poruku je vezan fajl u kome su svi fajlovi potrebni da se posao obavi..
(md)
tp6_wp.zippascal.536ssokorac,
Da li se, recimo, slovo 'z', moze preneti modemom ovako:
onaj sto salje:
assign (modem, 'COM1');
rewrite(modem);
write(modem,'z')
onaj sto prima:
assign(modem,'COM1');
reset(modem);
read(modem,slovo)
ili to ide mnogo komplikovanije...?
pascal.537dejanr,
-> #535, dmiricBravo! Možda ovim povodom skinep taj TP6.0 sa police :)
pascal.538ilazarevic,
-> #531, isekulovic
█ Rekoh Il, mislio sam na ilazarevica posto sam mu poslao u grupu
█ herc:)
Jah, jah... GM904 sam već dobio :) Problem je rešen - pre dva dana
sam greškom izbrisao (nepovratno) Norton Commander :)))
pascal.539mjova,
-> #534, dmiric> Koja je poslednja verzija TurboDebuggera? Zadnja za koju
> ja znam je 1.5?
POSLEDNJA (ne zadnja) verzija je 3.0 (čini mi se) iz BC++ v3.0, ali ja
radim sa TD v2.5
SY
pascal.540cacxa,
-> #536, ssokoracIde komplikovanije...
pascal.541ilazarevic,
-> #533, dmiric
█ Sorry, sorru :) Ja sam ono Il, shvatio kako ili :))))
Nemoj da me neko ovde shvata kao Bulovu operaciju :)))
pascal.542dmiric,
-> #539, mjova> POSLEDNJA (ne zadnja) verzija je 3.0 (čini mi se) iz BC++
> v3.0, ali ja radim sa TD v2.5
Thanx.
(md)
pascal.543dmiric,
-> #537, dejanr> Bravo! Možda ovim povodom skinep taj TP6.0 sa police :)
To bi bilo baš nice! Jeste da je 6-ca i bugovita i svojeglava, al kad se
navikneš na nju nije tako loša :)
(md)
pascal.544agobovic,
Zna li neko za Pascal kompajler za DOS koji prihvata funkciju
kao formalni (pa i stvarni) parametar procedure? Meni Turbo Pascal 5.0
pravi problem u liniji gde je deklaracija procedure b i kada u listi
formalnih argumenata naiđe na reč "function" - TP traži "identifier".
Pogledao sam "Pascal User Manual and Report" - Wirth & co. i
našao da je dozvoljeno prosleđivati funkciju (pa i proceduru) kao
parametar. VAX Pascal V3.4-114 mi lepo prevodi i daje ispravan rezultat:
2 0
ali je meni to potrebno na PC-ju. Možda je kod TP 5.5 ili 6.0 ovo
ispravljeno?
----------------- Odavde iseći (makazama?) -----------------------------
(*
Pascal program - primer za simuliranje staticke alokacije
nelokalnih promenljivih na promenljivoj m
*)
program pass ( input, output );
var m: integer;
function f ( n : integer ) : integer;
begin f := m + n end;
function g ( n : integer ) : integer;
begin g := m * n end;
procedure b ( function h ( n : integer ) : integer );
begin write ( h ( 2 ) ) end;
begin
m := 0;
b ( f ); b ( g ); writeln
end.
pascal.545janko,
-> #544, agobovic(*
Nije tako teško kao što izgleda
*)
program pass ( input, output );
var m: integer;
(* moj dodatak *)
type f_func= function (n: integer) : integer;
(* tvoja priča *)
function f ( n : integer ) : integer;
begin f := m + n end;
function g ( n : integer ) : integer;
begin g := m * n end;
procedure b ( h: f_func ); (* i ovo sam promenio *)
begin write ( h ( 2 ) ) end;
begin
m := 0;
b ( f ); b ( g ); writeln
end.
Pozdrav, Janko.
pascal.546bearboy,
-> #536, ssokorac˙¨:> onaj sto salje:
˙¨:> onaj sto prima:
˙¨:> ili to ide mnogo komplikovanije...?
Ide malo drugacije, jer ovako ne mozes 100% da uskladis citanje sa slanjem.
pascal.547djnsnd,
U majskom broju Racunara u Bajtovima lične prirode (476) je napisano da Turbo
Pascal ne može da odredi na uobičajen način dužinu tekst fajla.
To naravno, nije tačno.
Iako bi nekom možda, na prvi pogled, izgledalo da tim poslom treba da se
bavi procedura FileSize iz System unit, za ovu namenu treba upotrebiti
proceduru FindFirst (ili FindNext) iz Dos unit-a. Rezultat rada ove
procedure je promenljiva tipa SearchRecord sa poljima: Fill, Attr, Time,
Size i Name.
Dakle:
uses Dos;
type S: SearchRec;
...
FindFirst(ImeTextFajla, AnyFile, S);
Duzina:=S.Size;
...
Eto, šta se desi kad se ne(ma) čita uputstvo. ;)
end. (***** Djn *****)
pascal.548bojanp,
-> #545, jankoDa samo dodam par napomena:
Procedure i funkcije koje se koriste na ovaj način moraju
ispunjavati sledeće zahteve:
- moraju biri deklarisane kao far (znači {$F+})
- ne smeju biti standardne procedure i funkcije
- ne smeju biti ugnježdene procedure i funkcije
- ne smeju biti inline procedure i funkcije
- ne smeju biti interrupt procedure i funkcije
Pozdrav, Bojan
pascal.549vbole,
-> #547, djnsnd> U majskom broju Racunara u Bajtovima licne prirode (476) je napisano da
> Turbo Pascal ne moze da odredi na uobicajen nacin duzinu tekst fajla.
> To naravno, nije tacno.
To je, naravno, tacno, jer tvoj postupak nije uobicajen, tj. ne odre-
djujes duzinu **otvorenog tekst-fajla**, nego bilo kog fajla.Slican
postupak upotrebljava i dejanr, samo sto on otvori fajl kao binarni,
procita duzinu pa ga zatvori - otprilike isto to.
> Eto, sta se desi kad se ne(ma) cita uputstvo. ;)
Ja nemam uputstvo, ali ne verujem da je Borland bas to naveo kao
resenje za odredjivanje duzine tekst-fajlova...
pascal.550dejanr,
-> #547, djnsnd>> U majskom broju Racunara u Bajtovima lične prirode (476) je napisano da
>> Turbo Pascal ne može da odredi na uobičajen način dužinu tekst fajla.
>> To naravno, nije tačno.
Po meni je tačno. Uobičajen način da radim sa fajlom je
assign (fvar, 'name');
reset (fvar);
...
close (fvar);
E sad, ako je fajl tipa tekst, ne može se između reset i close napisati
ll:=filesize(fvar) što je jedini uobičajen način da se odredi dužina.
Neuobičajenih načina ima raznih, volj ti to sa findfirst, volj ti da
(što ja obično radim) otvoriš file kao netipiziran pa iščitaš dužinu.
No sve je to "pomoću konca i kanapa".
>> Eto, šta se desi kad se ne(ma) čita uputstvo. ;)
U Uputstvu piše da se funkcija filesize ne može primeniti na text
fajlove i to je sve o tome. Ne pominje se eksplicitno nikakav drugi
način, što znači da Borland smatra da nema potrebe za određivanjem
dužine text fajla.
pascal.553agobovic,
-> #545, jankoHvala za ideju. Turbo Pascal ovo ipak nije hteo da prevede - pri pozivu
b ( f ) ispiše poruku "Invalid procedure or function reference", ali sam malo
čačkao help i uspeo da prevedem uz direktivu $F+.
P.S. pišem on-line i sada videh da je i u poruci 4.548 to već napomenuto.
pascal.554ndragan,
-> #544, agobovic/ ----------------- Odavde iseći (makazama?) -----------------------------
Probao sam, al' lete staklići od mo(g)nitora na sve strane... :)
pascal.555djnsnd,
-> #550, dejanr> U Uputstvu piše da se funkcija filesize ne može primeniti
> na text fajlove i to je sve o tome. Ne pominje se
> eksplicitno nikakav drugi način, što znači da Borland
> smatra da nema potrebe za određivanjem dužine text fajla.
Ne. Borland smatra da nema potrebe da se dužina tekst fajla odredjuje
procedurom FileSize. Ta procedura daje rezultat u najmanjim jedinicama
koje se mogu upisati(blok ili record). Kod tekst fajlova je najmanja jedinica
karakter, a to je jedinica koja se koristi i u Dos-u.
U svakom slučaju nema potrebe za muvanje sa registrima.
Djn
pascal.556djnsnd,
-> #549, vbole> Ja nemam uputstvo, ali ne verujem da je Borland bas to
> naveo kao resenje za odredjivanje duzine tekst-fajlova...
Tamo gde se govori o radu sa datotekama i gde se kaže da se FileSize
koristi za typed i untyped datoteke to ne kaže. To je navedeno u
sledežem poglavlju (Dos unit).
pascal.557dejanr,
-> #555, djnsnd>> Ne. Borland smatra da nema potrebe da se dužina tekst fajla odredjuje
>> procedurom FileSize. Ta procedura daje rezultat u najmanjim jedinicama
>> koje se mogu upisati(blok ili record). Kod tekst fajlova je najmanja
jedinica
>> karakter, a to je jedinica koja se koristi i u Dos-u.
Obzirom da je ovo praktično isto što sam i ja rekao, nije mi baš jasno šta
znači ono "ne" na početku.
Inače, što se toga tiče, smatram da Borland nije u pravu i da je određivanje
dužine tekst fajla itekako potrebno. Makar pomoću trikova (opisanih).
pascal.558dmiric,
-> #548, bojanp> - moraju biri deklarisane kao far (znači {$F+})
> - ne smeju biti standardne procedure i funkcije
> - ne smeju biti ugnježdene procedure i funkcije
> - ne smeju biti inline procedure i funkcije
> - ne smeju biti interrupt procedure i funkcije
Kolko sam ja experimentisao ne mogu biti ni metodi. Ili možda grešim?
(md)
pascal.559dragisha,
-> #558, dmiricű>> - moraju biri deklarisane kao far (znači {$F+})
ű>> - ne smeju biti standardne procedure i funkcije
ű>> - ne smeju biti ugnježdene procedure i funkcije
ű>> - ne smeju biti inline procedure i funkcije
ű>> - ne smeju biti interrupt procedure i funkcije
ű> Kolko sam ja experimentisao ne mogu biti ni metodi. Ili
ű> možda grešim? (md)
Ne griješiš. Razlog je to što svaki metod osim onih parametara
koje si pobrojao u deklaraciji ima i SELF koji je skriven, tj.
podrazumijeva se jedno WITH unutar tijela metoda.
dragisha
pascal.560isekulovic,
Da nije neko slucajno skinuo pre blokade sledece fajlove sa tricklea?
-stay42.arc ('How to write a TSR program in Turbo Pascal')
-tp55tsr.zip ('TSR units for Turbo Pascal 5.5 applications')
-tppop16.arc ('TPUs and ASM for popup and TSR programs')
pascal.561bojanp,
-> #558, dmiric> Kolko sam ja experimentisao ne mogu biti ni metodi. Ili možda grešim?
Otkud metodi u TP 5.0????
Pozdrav, Bojan
pascal.562mensi,
-> #560, isekulovic>> Da nije neko slucajno skinuo pre blokade sledece fajlove
>> sa tricklea?
>> -stay42.arc ('How to write a TSR program in Turbo Pascal')
Imam samo ovaj, nadam se da ces imati srece i sa ostalima.
mensi
stay42.arcpascal.563dmiric,
-> #561, bojanp> Otkud metodi u TP 5.0????
Nema ih. Ja sam mislio na verzije 5.5 / 6.0.
(md)
pascal.564dmiric,
-> #559, dragisha> Ne griješiš. Razlog je to što svaki metod osim onih
> parametara koje si pobrojao u deklaraciji ima i SELF koji
> je skriven, tj. podrazumijeva se jedno WITH unutar tijela
> metoda.
Šteta. Zna li neko neki trik da se evo prenebregne?
(md)
pascal.565dragisha,
-> #564, dmiricű> Šteta. Zna li neko neki trik da se evo prenebregne?
Teži slučaj. Mislim da bi moglo kada bi bilo moguće deklarisati
proceduralne tipove unutar deklaracije klase, ali...
dragisha
pascal.566drpr,
Pošto mi je fajl moderator pre jedno mesec dana skidao neke
fajlove sa trickla mislio je da ja imam one koji se traže ali
nemam :(( Ali se javljam tj. pitam da li nekom trebaju sledeći
fajlovi za tp koje sam uz njegovu pomoć i sam skinuo a vezani
su za tp :
Pull55.arc Pulldown menus for TP5.5, uses QWIK55,WNDW55
Qwik55.arc Quick screen utilities v5.5 for TP5.5 (w/scr)
Wndw55.arc Popup widows for TP5.5,needs QWIK55.arc
Tpw60 .arc Windows for Turbo Pascal
Eto to je to pa ako nekom treba ja ću poslati.
cope
PS
Jedno pitanje za Fajl moderatora.Pošto koristim zip i arj
arhivere ja sam ove fajlove spakovao u arj.Da li sam time
narušio prava autora ili ne.Naravno sačuvao sam sve doc. koji
govore o pd ili sw verziji a i licenece.arc fajlove koji idu uz
ove datoteke.
pascal.567nenadp,
Jel zna neko gde ima kod nas da se kupi dobra knjiga za rad u
Turbo Pascal - u 6.0. Sa objasnjenjem objektnog programiranja.
Pozdrav, Nenad
pascal.568bojanp,
-> #566, drpr> Jedno pitanje za Fajl moderatora.Pošto koristim zip i arj
> arhivere ja sam ove fajlove spakovao u arj.Da li sam time
> narušio prava autora ili ne.Naravno sačuvao sam sve doc. koji
> govore o pd ili sw verziji a i licenece.arc fajlove koji idu uz
> ove datoteke.
Ukoliko si *sve* datoteke koje su bili u originalnoj arhivi stavio
u novu arhivu nisi narušio prava autora.
Pozdrav, Bojan
pascal.569isekulovic,
-> #562, mensi>> Imam samo ovaj, nadam se da ces imati srece i sa ostalima.
Hvala, ovaj mi je ponajvise trebao!:)
pascal.570dmiric,
-> #565, dragisha> Teži slučaj. Mislim da bi moglo kada bi bilo moguće
> deklarisati proceduralne tipove unutar deklaracije klase,
> ali...
Ma ustvari nije bitno, tu gde treba odstupi se od objekata ... i sve je ok.
pascal.573dmiric,
Nešto sam njuškao po OBJECTS.TPU (5.5) i ispada da je constructor po svojoj
prirodi procedura, tj moguće je nešto poput:
if Obj.Init then ...
Sad se postavlja pitanje u kojim slučajevima je vrednost obj.init false. Kad
se unutar Init-a izvrši FAIL? Btw da li fail radi i exit? I zašto ista šema ne
važi za Done?
(md)
pascal.574drpr,
TPW60.ARJ
Arhiva koja je zakačena uz poruku sadrži unit namenjen radu a
prozorima.Dovoljno je poznavanje osnova programiranja da bi se
ovladalo u radu sa prozorima koji ovaj unit omogućuje.Uz pomoć
njega će te biti u stanju da napravite svoju sopstvenu
aplikaciju koja će raditi za prozorima menijima ali koja neče
biti nekog moćnog izgleda.Ipak dobar je u smislu ako ne želite
da uđete u srž programiranja sa prozorima a oni su vam na neki
način potrebni!
cope
tpw60.arjpascal.575drpr,
QWIK55.arj
Unit koji zajedno sa sledeća dva čini moćnu alatku za rad sa
prozorima I kontrolu ekrana ....Procedure su dosta dobro
podeljene i obrađene u documentu koji ide uz arhivu a jedan
isečak imate i sami priliku da vidite, i osetite da je rad uz
pomoć doc-a veoma lak.F-je i procedure su napisane (dosta ih ima
i u asm kodu (koji nije dat)) veoma čitljivo a i imena su im
lako pamtljiva.Moje iskustvo se sastoji u sledećem:Veoma brzo
jako i efikasno.Posle nekoliko dana sam ovladao sa dosta
funkcija i procedura,a takođe postoje i neki utilites za
stringove ,kursor itd.U sadejstvu sa sledeća dva programa rad
sa prozorima je postao lak i zanimljiv.U arhivi je i demo program
koji je mene zapanjio i u potpunosti prikazuje mogućnosti koda.
Toplo ga preporučujem jer mislim da za većom brzinom nećete
imati potrebe.
T A B L E O F C O N T E N T S
1. INTRODUCTION . . . . . . . . . . . . . . . . . . . . . 3
Features . . . . . . . . . . . . . . . . . . . . . . 3
Using the Manuals . . . . . . . . . . . . . . . . . . 3
Licensing . . . . . . . . . . . . . . . . . . . . . . 4
Customer Service . . . . . . . . . . . . . . . . . . 4
ASP . . . . . . . . . . . . . . . . . . . . . . . . . 5
2. GETTING STARTED . . . . . . . . . . . . . . . . . . . . 6
Distribution Files . . . . . . . . . . . . . . . . . 6
Demonstration . . . . . . . . . . . . . . . . . . . . 6
Simple Programming . . . . . . . . . . . . . . . . . 6
Procedures and Functions . . . . . . . . . . . . . . 8
3. BASIC TECHNIQUES . . . . . . . . . . . . . . . . . . . 11
Number to String Conversion . . . . . . . . . . . . . 11
Cursor Mode Routines . . . . . . . . . . . . . . . . 11
Cursor Location Routines . . . . . . . . . . . . . . 13
EOS Marker . . . . . . . . . . . . . . . . . . . . . 13
Scrolling . . . . . . . . . . . . . . . . . . . . . . 14
Pop-Up Windows . . . . . . . . . . . . . . . . . . . 15
4. ADVANCED TECHNIQUES . . . . . . . . . . . . . . . . . . 17
Virtual Screens . . . . . . . . . . . . . . . . . . . 17
Video Pages . . . . . . . . . . . . . . . . . . . . . 18
Video Modes . . . . . . . . . . . . . . . . . . . . . 19
Multi-tasking Environments . . . . . . . . . . . . . 20
Interrupts . . . . . . . . . . . . . . . . . . . . . 20
5. HARDWARE DETECTION . . . . . . . . . . . . . . . . . . 21
Display Combination Code . . . . . . . . . . . . . . 21
Snow Checking . . . . . . . . . . . . . . . . . . . . 22
System Hardware . . . . . . . . . . . . . . . . . . . 23
Tips . . . . . . . . . . . . . . . . . . . . . . . . 23
APPENDIX A: Video Mode Table . . . . . . . . . . . . . . . 24
APPENDIX B: Cursor Mode Data . . . . . . . . . . . . . . . 26
Cursor Mode Tables . . . . . . . . . . . . . . . . . 26
Cursor Emulation . . . . . . . . . . . . . . . . . . 26
APPENDIX C: Performance . . . . . . . . . . . . . . . . . 29
Code Size . . . . . . . . . . . . . . . . . . . . . . 29
Speed . . . . . . . . . . . . . . . . . . . . . . . . 29
TP4 Usage . . . . . . . . . . . . . . . . . . . . . . 30
APPENDIX D: Application Products . . . . . . . . . . . . . 31
APPENDIX E: Revision History . . . . . . . . . . . . . . . 34
APPENDIX F: References and Credits . . . . . . . . . . . . 37
2
QWIK Screen Utilities User's Guide, Version 5.5
1. I N T R O D U C T I O N
FEATURES
Welcome to QWIK Screen Utilities!
You have just obtained a copy of the highest performance screen writing
tools available today for Turbo Pascal 5.5 (TP5). Both novice and
professional programmers will appreciate these simple and very powerful
utilities that gives you absolute control over your CRT displays in all
text modes.
Here are some of the features you will discover:
. Writes on all IBM compatible computers, displays and
adapters including the new PS/2 systems and Hercules.
. Superior video detection routine.
. Eliminates snow and flicker.
. Writes directly to the screen in absolute coordinates.
. Writes in all text modes and column modes.
. Writes on all video pages.
. Writes on virtual screens in RAM.
. Writes text and attribute, text only, or attribute only.
. Reads strings, characters and attributes.
. Uses End-Of-String (EOS) marker for quick string chaining.
. Provides standardized cursor control for all adapters.
. Enhanced cursor movement.
. 650+% faster than TP5 direct screen writing.
. Works in multi-tasking environments.
. Only 2.7k bytes of code if all 45 utilities are used.
. Optimized by the compiler and drops unused code.
. Used in all other Eagle products.
cope
qwik55.arjpascal.576drpr,
WNDW55.ARj
Nastavak skupa od tri unita a ovaj je vezan a razliku od
predhodnog samo za prozore dok je predhodni "radio" na screen
utilities.Opažanja su ista kao i za pedhodni unit doc je
opširan.....
cope
PS
Popup windows for TP5.5 needs QWIK55.arc
Jedna mala napomena zaone koji koriste tp6.0.Svi juniti imaju i
sors uz sebe tako da aako dođe do nekompatibilnosti sa 5.5
treba ih samo kompajlirati pod 6.0.Ima i caka koja se
pojavljuje uz sve a to je da u docu treba nađete koje junite
trebada preimenujete iz dosa da bi oni mogli da rade recimo
wndw55.tpu -> wndw.tpu
wndw55.arjpascal.577drpr,
PULL55.ARJ Pull downmenus for TP5.5, uses QWIK55.arj WNDW55.arj
Ovo je poslenji unit.Ispodimate sadržaj arhive u kojoj vidite i
pullshell.pas tj program uz pomoć koga će te moći da napravite
svoju aplikaciju,sa pulldown menijima.Sve što je važilo za
prošla tdv važi i zaovaj treći.Uz pomoć shell-a ja sam počeo da
pišem svoj programčić i ide veoma lako !Mislim da sam vam (uz
pomoć nboskovica koji je bio ljubazan da sve ovo baci na sezam)
bio od pomoći i da su neki našli baš ono što im je dugo trealo!
ARJ 2.30 Copyright (c) 1990-92 Robert K Jung. Jan 19 1992
Registered to [Drljaca Predrag R#100000]
Processing archive: PULL55.ARJ
Archive date : 1992-05-20 04:30:38
Filename Original Compressed Ratio DateTime modified CRC-32 AttrBTPMGVX
------------ ---------- ---------- ----- ----------------- -------- -----------
GOOF.PAS 2391 1055 0.441 89-08-24 00:00:00 82C3BFC6 A--W B 1
P55-VAR.INC 9236 2892 0.313 89-08-24 00:00:00 2276A177 A--W B 1
PULL55-.PAS 1973 765 0.388 89-08-24 00:00:00 53B34281 A--W B 1
PULL55.DOC 175488 47746 0.272 89-08-24 00:00:00 0FBB21F9 A--W B 1
PULL55.TPU 29312 12915 0.441 89-08-24 00:00:00 2D405975 A--W B 1
PULLDATA.PAS 19584 4567 0.233 89-08-24 00:00:00 CCCE1027 A--W B 1
PULLDEMO.PAS 2231 1066 0.478 89-08-24 00:00:00 C3231F26 A--W B 1
PULLDIR-.PAS 1249 533 0.427 89-08-24 00:00:00 96B028B7 A--W B 1
PULLDIR.TPU 6256 3107 0.497 89-08-24 00:00:00 65EC726D A--W B 1
PULLREF.DOC 82176 16331 0.199 89-08-24 00:00:00 83AB26FF A--W B 1
PULLSTAT.PAS 29693 7841 0.264 89-08-24 00:00:00 1D4A805A A--W B 1
PULLWORK.PAS 3867 1446 0.374 89-08-24 00:00:00 46346B7F A--W B 1
QWIK55.TPU 8256 4241 0.514 89-08-24 00:00:00 ED0B74C1 A--W B 1
READ.ME 1411 589 0.417 89-08-24 00:00:00 70B9F7BF A--W B 1
STRS.TPU 1408 540 0.384 89-08-24 00:00:00 7EC69DA0 A--W B 1
WNDWP55.TPU 33072 13567 0.410 89-08-24 00:00:00 E3D7D0CD A--W B 1
WUTIL.TPU 1008 423 0.420 89-08-24 00:00:00 769F7467 A--W B 1
PULLSHEL.ARJ 9122 9088 0.996 89-08-24 00:00:00 BDA61C6C A--W B 1
LICENSE.ARJ 5067 5037 0.994 89-09-18 22:23:46 0EE4B955 A--W B 1
------------ ---------- ---------- -----
19 files 422800 133749 0.316
cope
pull55.arjpascal.578ppekovic,
-> #574, drprHvala drpr-u na prilozima!
Paya
pascal.580duduk,
-> #576, drpr
> Jedna mala napomena zaone koji koriste tp6.0.Svi juniti
> imaju i sors uz sebe tako da aako dode do
> nekompatibilnosti sa 5.5 treba ih samo kompajlirati pod
> 6.0.Ima i caka koja se .........
Ali, aman, kako?! Ja sam u šestici uspeo da prevedem samo "strs".
Svi tpu-ovi su neupotrebljivi (unit file format error, tako valjda).
Pogledam malo pas-ove (pse?) i vidim u svim sorsovima uses qwik. Ja
pogledaj qwik(55).pas, ono lepo, nema nigde uses. Ali, ne lezi vraže,
ima gomila učitavanja obj-ova, a od njih u arhivama ni traga ni glasa. A
jurio sam ih po sve tri... I šta biva? Not found, eto šta biva!
Jes' da nisam mnogo zagledao, ali da obj-ovi padaju s neba, ne izgleda
mi moguće. Dakle, kako do upotrebljivih tpu-ova za v6.0?!!!
pascal.581drpr,
-> #580, duduk-> Svi tpu-ovi su neupotrebljivi (unit file
-> format error, tako valjda). Pogledam malo
-> pas-ove (pse?) i vidim u svim sorsovima
-> uses qwik. Ja pogledaj qwik(55).pas, ono lepo,
-> nema nigde uses. Ali, ne lezi vraže, ima
-> gomila učitavanja obj-ova, a od njih u arhivama
-> ni traga ni glasa. A jurio sam ih po sve tri...
-> I šta biva? Not found, eto šta biva!
Evo sta ja imam i nadam se da imaš i ti u arhivama prvi je
tpw60.pas
unit TPW60;
interface
uses
crt;
...............
to je unit od tog programa
dalje
{ =========================================================================== }
{ QWIK55.PAS - Unit for direct/virtual screen writing ver 5.5, 08-24-89 }
{ Copyright (c) 1986-1989 James H. LeMay, Eagle Performance Software }
{ For documentation on this file see QWIK55.DOC and QWIKREF.DOC. }
{ Only 46 bytes of global data is used. }
{ =========================================================================== }
{ R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ } { TP4 directives }
{$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-} { TP5 directives }
UNIT Qwik;
INTERFACE
var
..........................
ovo je od qwik.tpu
Mislim da je to što trebaš da prevedeš a ako neće nemam pojma
možda je zbog kompajler direktiva ali ja se u to baš ne razumem
pa nek neko drugi odgovori ako i dalje budeš imao problema ( ja
radim sa TP5.5 i nikakvih posebnoh problema nisam imao)
cope
pascal.582ilotina,
HI!
Zna li neko kako mogu da dobijem vrednost Zero flag-a nakon npr funkcije 01h
interapt 16h?
Pozdrav Ivan!
P.S. Taj interapt daje status tastature, zero flag=0 ako je buffer prazan, a =1
ako nije
pascal.583drakce,
-> #582, ilotina
│kako mogu da dobijem vrednost Zero flag-a nakon npr funkcije 01h interapt 16h
└─────
program zeroflag;
Uses Dos;
var regs: registers;
begin
regs.ah:=1;
intr($16,regs);
if (regs.flags and FZero)<>0
then
writeln('Zero flag is set')
else
writeln('Zero flag is reset');
end.
Registers je tip definisam u Dos unit-u i sadrži sve registre, a FZero je
konstanta (takođe iz Dos-a) i ima vrednost 64. Sa logičkim AND ispitaš da
li je 6. bit (Zero flag) setovan ili ne.
Pozdrav
pascal.584duduk,
-> #581, drpr
> UNIT Qwik;
> ...
> INTERFACE
> ...
Baš tako, u interface sekciji nema uses ..., dakle ovaj Qwik je, kako
bih rekao, "glavni" unit, na koji se ostali "pozivaju".
ALI, ne mogu da ga prevedem jer se u njemu traži komila obj-ova, neki
init, pa neki scroll, ima ih desetak možda, a u arhivama ni traga ni
glasa kako od "gotovih" obj-ova, tako ni od bilo čega što bi dovelo do
obj-a, nekog asm-a, recimo.
Ovako kako je, izgleda da source nije kompletan, možda nije ni
predviđeno da bude u "SW rel."?
BTW, da li postoji neki 'TPU koverter' koji bi prebacio TPU iz v5.5 u
formu iz v6.0? To bi moglo da bude spasonosno rešenje.
pascal.585ilotina,
-> #583, drakce Hvala!
pascal.586vvelisavljev,
-> #581, drpr I kod mene radi samo TPW60. Stvar je strašna, mislim da mi ni nije
potrebno ništa više za prozore i menije u Pascalu. HVALA. Svima ih
preporučujem. Naročito mi se sviđa što mogu lako da menjam onu proceduru za
meni. (potrebno mi je da se "odaziva" na još neke tastere osim ESC)
A što se tiče ostala tri paketa: sva sreća što nisam uspeo da prenesem
sva tri, žali bože vremena i para. Zato PAčNJA za sve one koji koriste TP 6.0,
i ne nameravaju da se vrate na 5.5, da ne prenose ova tri paketa koja u svom
nazivu imaju "55".
Viktor
pascal.587drpr,
-> #586, vvelisavljev-> A što se tiče ostala tri paketa: sva sreća što
-> nisam uspeo da prenesem sva tri, žali bože
-> vremena i para. Zato PAčNJA za sve one koji
-> koriste TP 6.0, i ne nameravaju da se vrate na
-> 5.5, da ne prenose ova tri paketa koja u svom
-> nazivu imaju "55".
Ja se svima izvinjavam ali sam mislio da Borland nije toliko
zasr** u vezi tih tpu-ova :(((>JA koristim tp5.5 i ako negde
vidite ova tri sledeća fajla shavtićete da oni mnogo bolje rade
od tpw60.Ako neko ima pristup trickleu(na neki volšeban način)
neka pogleda da li su stigle 60 verzije.U mom listingu od 4
maja '92 tih verzija nema :((
cope
pascal.588vvelisavljev,
-> #587, drpr> Ja se svima izvinjavam ali sam mislio da Borland nije toliko
Prihvaćeno, nema ljutim. ( ko mi kriv kad žurim sa DLom :) )
Još jednom, hvala na trudu!
pascal.589lucas,
Na disketi gde mi je bio turbo pascal 4.0 oštetili su mi se 4 fajla pa ako ih n
neko ima neka mi pošalje na mail.
To su sledeći fajlovi:
BINOBJ.EXE
BINOBJ.DOC
CPASDEMO.PAS
CPASDEMO.C
Unapred zahvalan LUCAS ....
p.s.Fajlovi su sa druge diskete koja se zove GRAPHICS/MICROCALC
p.s.s.Poruka za moderatora - Imam original tp 4.0 nebrini ovo nije piratisanje
samo mi se oštetila disketa
pascal.590jtitov,
Dobio sam neku SW zamenu za korisnike TPascal-a. S obzirom da ne pratim
konferenciju pascal, saljem izvod je ovde, pa ako ste zainteresovani da saljem
na Sezam.
Welcome to SYS60 replacement unit for Turbo Pascal 6.0!
How would you like to speed up your Turbo Pascal 6.0 programs without
changing a single line of code? You have just found the easiest way to do
it! SYS60 replaces the SYSTEM.TPU in your TURBO.TPL library with our unit
which has much faster algorithms for over 32 built-in procedures and
functions like Pos and Div. See as much as 800% increase in speed!
pascal.591dmiric,
Juče me je ortak ubeđivao da se kod koji se u tp6 generiše sa ASM naredbom
sporije izvršava nego ako se isto to napiše u TASMu i zatim linkuje. Ima li
realnog osnova za ovo i ako ima zašto je to tako...
(md)
pascal.592vbole,
-> #591, dmiric> Juce me je ortak ubedivao da se kod koji se u tp6 generise sa ASM
> naredbom sporije izvrsava nego ako se isto to napise u TASMu i zatim
> linkuje. Ima li realnog osnova za ovo i ako ima zasto je to tako...
Onaj deo izmedju 'asm' i 'end' se prevodi u isti kod kao i sa TASM-om.
Sad, sto TP uradi jos mali milion stvari pre i posle tog koda, to je
druga stvar, ali kod kao takav je isti u oba slucaja.
pascal.593dmiric,
-> #592, vbole> Onaj deo izmedju 'asm' i 'end' se prevodi u isti kod kao i
> sa TASM-om. Sad, sto TP uradi jos mali milion stvari pre i
> posle tog koda, to je druga stvar, ali kod kao takav je
> isti u oba slucaja.
To je i meni bilo logično i pokušao sam da ga ubedim, ali on je toliko zapeo
da me ubeđuje da me je na kraju pokolebao :)
thanx,
(md)
pascal.594ssokorac,
Neko je ovda skoro pitao da koja je najbolja knjiga za objektno
programiranje u TP 6.0, ali niko nije odgovorio... Zar niko ne zna ni
jednu dobru knjigu??
pascal.595ppekovic,
-> #594, ssokorac>> Neko je ovda skoro pitao da koja je najbolja knjiga za objektno
>> programiranje u TP 6.0, ali niko nije odgovorio... Zar niko ne zna ni
>> jednu dobru knjigu??
Ja imam jednu knjigu o pascal OOP-u ali za TP 5.5. Knjigu je napisao Ivan
Papeš, izdanje Naučna knjiga. Video sam i neke knjige autora Duška Savića
(dsavic) o OOP-u, možda u njima ima nešto vezano za TP 6.0. Uostalom, skoči do
palate Albanija, tj. knjižare Jugoslovenska knjiga, pa pogledaj, ako tamo nema,
neznam gde ćeš naći.
Paya
pascal.596dmiric,
-> #594, ssokorac> Neko je ovda skoro pitao da koja je najbolja knjiga za
> objektno programiranje u TP 6.0, ali niko nije
> odgovorio... Zar niko ne zna ni jednu dobru knjigu??
Ja imam "Object Oriented Programming in Turbo Pascal 5.5" by Ben Ezzel
published by Addison-Wesley.
Sve u svemu knjiga daje jedan programerski pristup svemu tome, kroz razvoj
nekoliko programa. Nema suvoparnog teoretisanja koje se često sreće u onom što
pišu neki domaći autori. Jedina zamerka je možda što nema silaženja u
potpalublje, mada je dosta toga napisano i o VMT i o nekim drugim podzemnim
stvarima.
Ah,da knjigu sam ko što reče ppekovic kupio u juggoslovenskoj knjizi kod (u)
Albanije pre jedno godinu dana...
(md)
PS. ako te još nešto zanima slobodno pitaj :)
pascal.597ssokorac,
-> #596, dmiric :> Ah,da knjigu sam ko sto rece ppekovic kupio u
:> juggoslovenskoj knjizi kod (u) Albanije pre jedno godinu
:> dana...
Hvala ppekovicu i tebi, skoknucu do (u:) Albanije pa cu pogledati...
Stasha
pascal.598dmiric,
-> #597, ssokorac> Hvala ppekovicu i tebi, skoknucu do (u:) Albanije pa cu
> pogledati...
Mada nisam nešto ubeđen sa ćeš naći nešto. Ja sam bio par puta i nikada nije
bilo ničeg o pascalu :(((
(md)
pascal.599ssokorac,
-> #598, dmiric :> Mada nisam nesto ubeden sa ces naci nesto. Ja sam bio
:> par puta i nikada nije bilo niceg o pascalu :(((
Pa, cekaj, malopre rece da si tamo kupio knjigu?
pascal.600dmiric,
-> #599, ssokorac> :> Mada nisam nesto ubeden sa ces naci nesto. Ja sam bio
> :> par puta i nikada nije bilo niceg o pascalu :(((
>
> Pa, cekaj, malopre rece da si tamo kupio knjigu?
Da al to je bilo pre rata :) Uostalom možda nađeš nešto. Javi rezultate.
(md)
pascal.601drpr,
Zanima me jedno objašnjenje u vezi unita.
Kada se izvršava deo koji se nalazi između begin i end. u unitu
Da li samim tim što sam postavio uses imeunita ili kada se
poziva bilo koja procedura definisana u implementation?
cope
pascal.602ssokorac,
-> #600, dmiric :> Da al to je bilo pre rata :) Uostalom mozda nades nesto.
:> Javi rezultate.
:) OK. Javicu...
pascal.603sslavko,
-> #590, jtitov>> Dobio sam neku SW zamenu za korisnike TPascal-a. S
>> obzirom da ne pratim konferenciju pascal, saljem izvod je
>> ovde, pa ako ste zainteresovani da saljem na Sezam.
Ja sam zainteresovan. Ako stvarno 8 puta ubrzava izvrsni program i još
ako je 100% kompatibilna sa SYSTEM.TPU onda zašto da ne?
Pozdrav
Slavko.
pascal.604dejanr,
-> #601, drpr>> Kada se izvršava deo koji se nalazi između begin i end.
Onoga momenta kada startuješ program, izvršavaju se prvo ti segmenti
begin...end u svim unit-ima koje program poziva. Ako ti unit-i pozivaju
neke druge unit-e, izvršava se i taj kod u njima. Tek se onda prelazi
na glavni program.
Ako te zanima tačan redosled (koji zavisi od redosleda navođenja unit-a,
ali se dalje komplikuje kada ti unit-i pozivaju druge, pritiskaj F7
(debugger) i posmatraj.
pascal.605sslavko,
Dragi moji SEZAM-ovci,
šaljem Vam Demo verziju svog programa BUGI (BUssines GuIde) na
testiranje. Nije veliki ali može da bude veoma koristan. Rado ću
primiti sve dobronamerne kritike i primedbe. Voleo bih da Vas što
više pogleda ovaj program kako bi što pre bio razvijen i doteran do
ozbiljne i pre svega korisne aplikacije.
Program šaljem ovde jer je napisan u Turbo Pascalu.
Pozdrav
Slavko.
bugidemo.zippascal.606ssokorac,
-> #605, sslavko :> primiti sve dobronamerne kritike i primedbe. Voleo bih
:> da Vas sto vise pogleda ovaj program kako bi sto pre bio
:> razvijen i doteran do
Evo jedne. Kod pretrazivanja po, recimo, imenu, kaze unesi ime ili
deo imena, kada unesem ejan, nikad ne nadje Dejana Ristanovica, jer
samo trazi imena sa takvim pocetkom (kao sto i napise posle '...nema
vise imena koji pocinju sa " ejan "'). Tu bi trebalo to izmeniti da
trazi i samo deo imena. Takodje, bila bi korisna i opcija koja
izbacuje sve podatke, a ne da ih trazi po nekom kriterijumu...
Stasha
pascal.607drpr,
-> #604, dejanr-> Ako te zanima tačan redosled (koji zavisi od
-> redosleda navođenja unit-a, ali se dalje
-> komplikuje kada ti unit-i pozivaju druge,
-> pritiskaj F7 (debugger) i posmatraj.
Sad me znima da li je moguće nekako promeniti taj redosled jer
bih zeleo recimo da ispitam neki uslov pa ako je sve to
ispunjeno da se ne radi pozivanje unita vec nesto drugo.Moze
recimo da sve delove koji se nalaze između begin i end bacim u
jednu proceduru pa ako je uslov ispunjen da je pozivam ali da
li postoji neko rešenje.Da vam kažem u čemu je problem.U
programu koji radim se crta neka "po-up" okolina sve je u
prozorima ali ako recimo koriznik navede neki svič želeo bih da
se sve to ne crta već da se ode na neke druge strukture.Mislm da
sam bio dovoljno jasan :)
cope
PS
Program radim u tp5.5 a program je veliki tako da je
jedino rešenje u radu sa uniti-ma.Tako da predlozi o trpanju
svega u jedan program ne vredi,program je duži biće bar od
64k.O prelasku na 6.0 opet nema govora jer koristim unite iz
5.5(one koje sam vam poslao a neće da se prevedu)
pascal.608drpr,
-> #605, sslavko-> šaljem Vam Demo verziju svog programa BUGI
-> (BUssines GuIde) na testiranje. Nije veliki ali
-> može da bude veoma koristan. Rado ću
Prvo pravi razliku između "Dejan" i "dejan" što može veoma da
smeta.Drugo se opcije biraju samo kursorima što neko kome to
smeta može da zameri,znači trebalo bi da može da se bira sa
početnim slovom opcije.Ako budete koristila yu slova sve poruke
treba da strpate u jednu datoteku da bi mogle da se konvertuju
u kodni raspored korisnika.Ostalo ne izgleda loše možda još
jedna stvar :).Trebalo bi da dozvolite definisanje sloga
korisniku,hoću da kažem da nekoga ne zanima predstavnik firme
ili nešto drugo to i ne upisuje ,to i "ne vidi", po tome i neželi
da traži;tako da umesto za takve stvari stalno kuca
enter vi mu okolinu namestite hendi :))
cope
Ps
nadam se da su kritike bile konstruktivne
pascal.609isekulovic,
-> #603, sslavko>> Ja sam zainteresovan. Ako stvarno 8 puta ubrzava izvrsni program i još
>> ako je 100% kompatibilna sa SYSTEM.TPU onda zašto da ne?
I ja sam zainteresovan.
ivan
pascal.610dusanp,
-> #605, sslavko Ex moj sslavko...
Video sam i boljih i lepsih telefonskih imenika.
O nekom biznis gajdu nema ni govora. Ne znam koliko
imaš godina, ali programerski staž ti je dosta kratak
ili te pisanje mrzi...
A cenu bi mogao da izracunas MaThAssistant-om (mala
crna kutija, ima tastere sa brojevima i zna 4 racunske
operacije) ;>.
Bez uvrede.
pascal.611sslavko,
-> #606, ssokorac>> Evo jedne. Kod pretrazivanja po, recimo, imenu, kaze
>> unesi ime ili deo imena, kada unesem ejan, nikad ne nadje
>> Dejana Ristanovica, jer samo trazi imena sa takvim
>> pocetkom
Da znam. Pretraživanje po *delu* imena još nije urađeno ali je u
planu.
Pozdrav
Slavko.
pascal.612sslavko,
-> #608, drpr>> Prvo pravi razliku između "Dejan" i "dejan" što može
>> veoma da smeta.
Tek sada vidim da uopšte nisam obratio pažnju na taj detalj :))
Kako to da mi se desi? :))) Biće ispravljeno veoma brzo.
>> Drugo se opcije biraju samo kursorima što neko kome to
>> smeta može da zameri,znači trebalo bi da može da se bira
>> sa početnim slovom opcije.
Biće, biće...
>> Ako budete koristila yu slova sve poruke treba da strpate
>> u jednu datoteku da bi mogle da se konvertuju u kodni raspored
>> korisnika.
Ovo je ideja koja mi se veoma dopada i sigurno će biti uskoro
primenjena.
>> Ps
>> nadam se da su kritike bile konstruktivne
Svakako. E da ih je više... :))))
Pozdrav
Slavko.
pascal.613bearboy,
Imam DOS programcic koji ima svoje parametre, a ja sam, genije, zagubio sors.
Problem je u tome, sto sad hocu da integrisem taj program u jedan drugi, i ne
znam kako da mu dostavim parametre potrebne za rad. Ako probam sa parametrom
tipa string, nece.... (radi se o .OBJ-u)
pascal.614ppekovic,
-> #610, dusanp>> Ex moj sslavko...
>> Video sam i boljih i lepsih telefonskih imenika.
>> O nekom biznis gajdu nema ni govora. Ne znam koliko
>> imaš godina, ali programerski staž ti je dosta kratak
>> ili te pisanje mrzi...
Konferencija PC.PROG, kao uostalom i ostale konferencije na Sezamu su širom
otvorene ne samo za iskusne programere već i za sve one koji nemaju mnogo
iskustva u programiranju. Ovakvim diskvalifikacijama nećeš učiniti nikom dobro,
ni sebi, ni sslavko-u. I ne zaboravi da postoje i oni koji znaju više od tebe
koliko ti znaš (?) više od sslavka.
Paya
pascal.615ssokorac,
-> #611, sslavko :> Da znam. Pretrazivanje po *delu* imena jos nije uradeno
:> ali je u planu.
Ih, bre, ko da za to treba godinu dana pa pravite plan... Ubaci ta
tri reda pa salji...:)
pascal.616ssokorac,
Moze li neko da napise (u konferenciju) dobru proceduru za kopiranje fajlova.
Ona iz help-a (repeat blockread blockwrite until kraj_datoteke) je suvise
spora...
Hvala unapred, Stasha.
pascal.617stomic,
-> #612, sslavko$>> Ako budete koristila yu slova sve poruke treba da
$>> strpate u jednu datoteku da bi mogle da se konvertuju u
$>> kodni raspored korisnika.
$
$ Ovo je ideja koja mi se veoma dopada i sigurno će biti
$ uskoro primenjena.
Procitaj malo o UKRASu u YU.KOD, imaš i UNIT u TP sa izvornim
kodom koji ti sve ovo obavlja ( pogodi ko je autor :) ), a i
nije potrebno da sve poruke držiš u jednoj datoteci.
Pozdrav, STomic.
pascal.618dusanp,
-> #614, ppekovic=> iskustva u programiranju. Ovakvim diskvalifikacijama
=> nećeš učiniti nikom dobro, ni sebi, ni sslavko-u. I ne
=> zaboravi da postoje i oni koji znaju više od tebe
Ok, priznajem da sam se malo zaboravio - izvinjenje
i sslavku i svima koji su se osetili pogodjenima. Vec
duze vreme se ljutim na "programere" koji urade posao ili
dva ali pri tome rapidno obaraju cene...
Naravno, ni na kraj pameti mi nije da je sslavko jedan od
njih, on je samo natrcao kada sam bio isprovociran:((
pascal.619dmiric,
-> #617, stomic> Procitaj malo o UKRASu u YU.KOD, imaš i UNIT u TP sa
> izvornim kodom koji ti sve ovo obavlja ( pogodi ko je
> autor :) ), a i nije potrebno da sve poruke držiš u jednoj
> datoteci.
Izvini što upadam :), jel se taj unit nalazi na sezamu?
(md)
pascal.620spantic,
-> #610, dusanp> Bez uvrede.
Izvini, ali kako možeš to da kažeš posle teksta u kome si ocrnio čoveka?
On se potrudio i nije tvrdio nigde da je napisao najbolji program na svetu
već jednostavno je izložio program primedbama. E pa, ne vidim da tvoja
zakeranja spadaju u to.