ďťż

Ładny brzuch

Prosze powiedzcie co robie nie tak.
Do zapisu tabeli do pliku i jej odczytu używam funkcji BlockWrite / BlockRead.
Broblem w tym że o ile z zapisem jest wszystko OK to przy przy odczycie..?
Po którymś z kolei odczycie jakby następowało uszkodzenie pliku bo nie można już go odczytać. Błąd wyskakuje też przy próbie odczytania dwa razy tego samego pliku w przeciągu 2-3 sekund.

A to kod:

Procedura zapisu:
       var           a :integer;           f: file;        begin            nazwa_pliku:=jakas_nazwa;            assignfile(f, 'library\'+nazwa_pliku+'.lbc');            if FileExists('library\'+nazwa_pliku+'.lbc') then            begin                Reset(f,1);            end else begin                Rewrite(f,1);            end;            blockwrite(f,tab_komponentu,100*200*8,a);            closefile(f);        end;

Procedura odczytu
       var            f: file;            a : integer;        begin            nazwa_pliku:=jakas_nazwa;            assignfile(f, 'library\'+nazwa_pliku+'.lbc');            reset(f,1);            blockread(f, tab_komponentu,200*100*8,a);            closefile(f);        end;

PS.
tab_komponentu to tabela integer o wymiarach 200 na 100;


czy ta tablica jest dynamiczna?
jesli nie - proponuje uzyc sizeOf(tab_komponentu);
do okreslenia jej wielkosci :D

Jest statyczna ale to nie załatwia sprawy.


Jest statyczna ale to nie załatwia sprawy.


Jak użyć GetTickCount??
Jak to działa?


Jak użyć GetTickCount??
Jak to działa?

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •