[es] - Binary Typed File?!?!

voj@
Vojislav Babic
Sarajevo

Član broj: 9200
Poruke: 72
*.ppp-01.sa.lol.ba.

Sajt: www.paradajz.cjb.net

Profil

^{11.06.2003. u 00:02 - pre 253 meseci}

Radim nesto Pascal ovih dana,fajlove,postoje Textualni,znaci obicni i Binarni koji mogu biti Typed(uglavnom za ispis recorda ili njegovo snimanje koliko sam skonto) i Untyped (slkuze za prikaz i sadrze sliku i ziku).
Rad sa obicnim textualnim kao znam ali me zbunjuju ovi binarni typed znaci ne znam kako da ih ispisem ili sacuvam u njih nesto,konkretno treba mi za high score moje igrice ,recimo da je sadrzaj recorda "r.ime" i "r.score" koji je u samoj strukturi obican integer(ne znam ni da li moze ovako) i predstavljen je varijabilom znaci integerom "a",e sada kako da taj "a" prispojim "r.score" i da to uz "r.ime" unesem u binarni fajl i onda snimim i na kraju prikazem(ne mora po redosledu),znaci moze li mi iko mailovati ili objaviti ovdje kod za snimanje i prikaz Binary Typed File i njegovo prikazivanje,ja sam nesto probavao i improvizovao ali nije islo,takodje moze li mi neko pojasniti primjenu Untyped fajlova znam da se koristi ono "blockread" i "blockwrite" ali nisam skonto kako mogu ista prikazati preko njih unaprijed hvala i pozdrav svima...

cOOl

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
80.93.225.*

+62 Profil

Re: Binary Typed File?!?!

^{11.06.2003. u 15:31 - pre 253 meseci}

1) Untyped file mozes uslovno posmatrati kao typed file sa record-om velicine 1 bajt.
2) BlockRead i BlockWrite rade i sa typed fajlovima; citaj pazljivo help o ovim funkcijama i bice ti jasno.
3) NE POSTOJE razlicite vrste fajlova, vec postoje razliciti pristupi fajlu. Sta to znaci? Znaci da mozes otvoriti text fajl kao binary, i obratno - binary fajl kao text (samo sto to cudno izgleda).
4) Ako napravis neki record i napravis 'file of type', a zelis da mu pristupas sa BlockRead i BlockWrite, pogledaj funkciju sizeof(); trebace ti zbog velicine recorda.
Poz

Rajko

Odgovor na temu

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.ppp-bg.sezampro.yu

ICQ: 135970738
Sajt: localhost

Profil

Re: Binary Typed File?!?!

^{11.06.2003. u 18:24 - pre 253 meseci}

Code:

type
rezultat=record
ime:string;
score:integer;
end;
TFajl=file of rezultat;

var F:TFajl;
r:rezultat;
a:integer;
ime:string;
.............

assign(F,'rezultati.txt');
rewrite(F); //ili reset(F) , pogledaj u helpu razliku
r.ime:='neko ime';
r.score:=a; // a je rezultat ,koji si ranije upisao.
write(F,r);
close(F);

Pokusaj nesto ovako.
Najbolje je da pogledas u helpu o funkcijama za rad sa binarnim fajlovima. Imas tamo i neke dobre primere.
Pozdrav.

blog

Odgovor na temu

kingrale
Adnan Ralic
Sarajevo

Član broj: 5620
Poruke: 16
195.222.49.*

Sajt: www.delphi.co.ba

Profil

Re: Binary Typed File?!?!

^{12.06.2003. u 14:14 - pre 253 meseci}

Sto si takav, daj covjeku sta se ima peglat po helpu :)

rewrite(F) - brise sav prethodni sadrzaj i postavlja pokazivac na pocetak.
reset(F) - postavlja pokazivac na pocetak.

Odgovor na temu

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.beotel.net

ICQ: 135970738
Sajt: localhost

Profil

Re: Binary Typed File?!?!

^{13.06.2003. u 01:34 - pre 253 meseci}

Citat:

Sto si takav, daj covjeku sta se ima peglat po helpu :)

rewrite(F) - brise sav prethodni sadrzaj i postavlja pokazivac na pocetak.
reset(F) - postavlja pokazivac na pocetak.

Pa ajd kad si toliko navalio , da te malo dopunim.

rewrite(F) - Otvara datoteku u režimu pisanja. Ukoliko datoteka ne postoji, vrši kreiranje iste, u suprotnom briše prethodni sadržaj datoteke.

reset(F) - Otvara datoteku u režimu čitanja. Postavlja fajl pointer na prvi slog u datoteci. Ukoliko datoteka ne postoji program puca (naravno ovo može da se izbegne).
Provera da li postoji može da se odradi otprilike ovako:

Code:

{$I-}
reset(F);
if IOResult<>0 then rewrite(F);
{$I+}

Pozdrav.

blog

Odgovor na temu

kingrale
Adnan Ralic
Sarajevo

Član broj: 5620
Poruke: 16
195.222.49.*

Sajt: www.delphi.co.ba

Profil

Re: Binary Typed File?!?!

^{13.06.2003. u 12:14 - pre 253 meseci}

Nek se onda nadje nesto i za delphine/Ukoliko neko zeli sa delphijem ovo isto da radi:

Assign=AssignFile
Close=CloseFile

Poz

P.S. Bez zamjerke, postam iz dosade. Znam da se treba odgovarat samo na postavljena pitanja ali dosada cini svoje. Valjda se nece niko naljutit :/

Odgovor na temu

voj@
Vojislav Babic
Sarajevo

Član broj: 9200
Poruke: 72
*.ppp-01.sa.lol.ba.

Sajt: www.paradajz.cjb.net

Profil

Re: Binary Typed File?!?!

^{13.06.2003. u 21:59 - pre 253 meseci}

hej hvala svima na odgovorima,odmah cu probati da implementiram kod u moj vec postojeci,tako je nesto glasio i moj kod samo sto mi jos ranije nisu bili jasni "records" i "type"(koji i ne mora biti record koliko sam zadnjih dana skontao) ali sada mi se vec kristalizuje sve i kontekst i sintaksa pascala,inace teoriju sam dobro savladao sve te finese kao znam samo mi je implementacija problem ali ona se jedino moze nauciti upornom i ucestalom vjezbom valjda,eto da ne smaram vise hvala i pozdrav svima...
voj@

cOOl

Odgovor na temu

Che-Lik
Milan Milosavljevic
Novi Sad, Kragujevac

Član broj: 11392
Poruke: 15
*.ptt.yu

Sajt: www.MilanChe.tk

Profil

Re: Binary Typed File?!?!

^{18.06.2003. u 03:32 - pre 253 meseci}

Samo bih dodao jos jednu korisnu informaciju:

Ukoliko zelis da dodas u fajl koristi proceduru Append ili ti isto u delfiju

procedure Append(var F: Text);

Aj' u zdravlje

__________________
Che-gevara
Che-mpres
Che-kic
Che-LIK

Odgovor na temu

voj@
Vojislav Babic
Sarajevo

Član broj: 9200
Poruke: 72
*.ppp-01.sa.lol.ba.

Sajt: www.paradajz.cjb.net

Profil

Re: Binary Typed File?!?!

^{18.06.2003. u 23:05 - pre 253 meseci}

ok hvala skonto sam to,sada lijepo dodaje record u fajl,imam malih problema sa prikazivanjem ali skontacu i to,nego kada mu prispojim integer varijabilu koja je score onda u zapisanom fajlu pored unesenog imena prikazuje neku drugu vrijednost koja nije taj score koji je u igri dobiven,da li ima neka caka koju ne znam,mislim da li se treba konvertovati taj broj ili slicno...???!!!pozdrav

cOOl

Odgovor na temu