[es] - Pascal i .dat baza podataka

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Pascal i .dat baza podataka

^{16.01.2014. u 23:24 - pre 124 meseci}

pozdram
nov sam na forumu

programiram u vecini popularnih programskih jezika i posle dugo vremena druzenja s delphijem opet se vracam starom dobrom pascalu

naisam sam na jedan problem, zelim da napravim bazu podataka a tabele da budu data fajlovi

ne znam kako da ispisem vise podataka (redova u tabeli)

program sam mislio da stavim ovako nekako

Code:

type
ucenik=record
ime,prezime:string[30];
bodovi:integer;
...
var
student: ucenik
baza: file of ucenik

nisam siguran da mi je ovo dobro

DELPHI je zakon

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Pascal i .dat baza podataka

^{16.01.2014. u 23:42 - pre 124 meseci}

Meni se cini ok. Nesto otprilike ovako:

Code:

type
  TUcenik = record
    ime, prezime: string[30];
    bodovi: integer;
  end;

  TBaza = file of TUcenik;

procedure Upis;
var
  baza: TBaza;
  ucenik1, ucenik2: TUcenik;
begin
  ucenik1 := ...;
  ucenik2 := ...;

  AssignFile(baza, 'baza.dat');
  Rewrite(baza)
    Write(baza, ucenik1);
    Write(baza, ucenik2);
  CloseFile(baza);
end;

procedure Ispis;
var
  baza: TBaza;
  ucenik: TUcenik;
begin
  AssignFile(baza, 'baza.dat');
  Reset(baza)
    while not EOF(baza) do
    begin
      Read(baza, ucenik);
      WriteLn(ucenik.Ime);
    end;
  CloseFile(baza);
end;

begin
  Upis;
  Ispis;
end.

Pisano iz glave, verovatno ima sintaksnih gresaka, ali je bitan koncept.

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{17.01.2014. u 13:46 - pre 124 meseci}

nesto slicno sam i ja poklusao, ai kada zatvorim program i ponovo ga pokrenem on mi sve podatke brise i ubacuje nove

cij mi je da i stari podaci ostanu

sad nisam kuci pa nisam pokusao sa ovim kodom, mozda sam ja ranije gresio. Provericu kada stignem kuce

DELPHI je zakon

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{18.01.2014. u 12:14 - pre 124 meseci}

ne radi

opet mi briše stare podatke i čuva samo nove, meni trebaju i stari

DELPHI je zakon

Odgovor na temu

juha5803

Član broj: 74797
Poruke: 88
62.68.116.*

Profil

Re: Pascal i .dat baza podataka

^{18.01.2014. u 14:24 - pre 124 meseci}

Da nemaš negdje u kodu ovako nešto tj. da ti svaki put iznova kreira datoteku...

Code:

  AssignFile(logfile1,imedatoteke);

   if not(FileExists(imedatoteke)) then begin
    ReWrite(logfile1);
   end else begin
    Erase(logfile1) ;
    ReWrite(logfile1);
   end ;

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{18.01.2014. u 20:12 - pre 124 meseci}

AssignFile proceduru imam, mislim da je neophodna i koliko znam treba samo da otvara fajl, ali ostatak memam

DELPHI je zakon

Prikačeni fajlovi

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
..ppoe.dyn.broadband.blic.net.

+62 Profil

Re: Pascal i .dat baza podataka

^{19.01.2014. u 20:40 - pre 124 meseci}

Pogledaj u help-u append().

Pozz

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Pascal i .dat baza podataka

^{19.01.2014. u 21:34 - pre 124 meseci}

Mislim da WriteLn počne pisati uvijek na početku fajla. Ali provjeri jer nisam siguran.

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{20.01.2014. u 15:14 - pre 124 meseci}

Nosam kući pa ću help poggledati kasnije.

WriteLn, koliko ja znam ne može da se koristi sa binarnim fajlovima već samo sa tekstualnim ja sam koristio Write.

DELPHI je zakon

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{20.01.2014. u 15:16 - pre 124 meseci}

Nosam kući pa ću help poggledati kasnije.

WriteLn, koliko ja znam ne može da se koristi sa binarnim fajlovima već samo sa tekstualnim ja sam koristio Write.

DELPHI je zakon

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{20.01.2014. u 16:51 - pre 124 meseci}

Append radi samo kod tekstualnih fajlova, meni trebaju binarni data (*.dat) fajlovi.

DELPHI je zakon

Odgovor na temu

nekicneko90
Nekic Neko
Programer - ucenik
ETS Mihajlo Pupin
Novi Sad, Srbija

Član broj: 320261
Poruke: 54
*.opera-mini.net.

Profil

Re: Pascal i .dat baza podataka

^{20.01.2014. u 17:34 - pre 124 meseci}

Hvala svima, našao sam rešenje.

Namestio sam da se u svaki fajl upisuju podaci o jednom učeniku, a fajl ima naziv kao njihova šifra.

Baš mi je prijao ovaj mali povratak za pascal posle programiranja u delphiju, csharpu, c/cpp i javi

DELPHI je zakon

Odgovor na temu