Új hozzászólás Aktív témák

• #1911 Lortech addikt N!tRo #1910

  Új Válasz 2007-05-21 19:32:18 #1911

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz N!tRo #1910 üzenetére

  Kis kieg, mert talán pont a fáljkezelés része kell neki:
  
  type emberek = record
  nev,nemzetiseg: string;
  rajtszam: integer;
  end;
  
  var
  adatfile : file of emberek;
  rek : emberek;
  
  assign (adatfile,'adatok.dat');
  REWRITE(adatfile);
  
  ciklus
  //rek beolvas feltölt
  Write(adatfile,rek);
  cvége;
  
  //másik beolvas feltölt
  //visszaolvasás, file mutatót az fájl elejére állítani
  seek(adatfile, 0);
  While (not Eof(adatfile))
  Read(adatfile,rek);
  ...
  close(adatfile);
  
  Szerintem nem kell ide tömb, mert az problémássá (maxelem számot bele kell égetni a kódba) és kevésbé optimálissá teszi. Nem szükséges letárolni az adatokat tömbben, azért van a fájl, hogy kiírjuk, egyszerre csak egyet kell memóriában tartani. Egyből kitesszük fájlba és mindig egy csak egy rekord példány van. Beolvasásnál ugyanígy elég végigszaladni és kiválasztani a maxot.
  
  [Szerkesztve]

Új hozzászólás Aktív témák