![]() |
![]() |
![]()
Post
#1
|
|
![]() Grupa: Zarejestrowani Postów: 2 064 Pomógł: 1 Dołączył: 22.01.2003 Skąd: Poznań Ostrzeżenie: (0%) ![]() ![]() |
Mam pewien problem z tym językiem - korzystajac sobei z wolnego czasu w święta postanowiłem napisać troche wcześniej (bardziej rozbudowaną, może na 6
![]() Kod for i:=0 to ilek do
begin assign(tmpfile,'kat-' + int2str(kat[i].id) + '.html'); {$I-} rewrite(tmpfile); {$I+} ........ tutaj zapisuje cośtam do pliku....... for x:=0 to ilep do begin if wyd[x].kategoria = kat[i].id then begin write(tmpfile,' <tr><td><a href="w-',x,'.html">',wyd[x].nazwa,'</a></td>'); writeln(tmpfile,wyd[x].data_wyd.dzien,'.',wyd[x].data_wyd.miesiac,'.',wyd[x].data_wyd.rok,'</td></tr>'); end; end; writeln(tmpfile,'</table><br><a href="index.html">Powrót...</a></body></html>'); close(tmpfile); end; i bez tej wewnętrznej pętli wszystko działa super - pliki zapisują się tyle ile trzeba. Natomiast na tej wewnętrznej pętli pascal sie wysypuje (po skompilowaniu i odpaleniu programu), i podaje mi coś takiego: ![]() Wszystkie zmienne są zadeklarowane prawidłowo, x, i, ilek, ilep są typu Integer - ogólnie wszystko jest OK, bo bez tej pętli działa :? Przy kompilacji nie wyskakują żadne błedy. Siedze nad tym już chyba ponad godzine i nic ![]() -------------------- |
|
|
![]() ![]() |
![]() |
Aktualny czas: 19.08.2025 - 15:19 |