) pracę do szkoły - ale wystąpił pewien problem. Mam taki oto fragment kodu:
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;
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
