Где-то ошибка...

← →
eXPell © (2007-03-03 22:58) [0]

Подскажите как проблему разрешить.
В общем прога генерит последовательности чисел и записывает в файл.

Так вот, думаю что-то долго она работает, прерываю прогу, и начинаю исправлять код.

После чего замечаю, что система просто на тормозит. Запускаю диспечер: файл подкачки - 980 МБ (в обычном режиме работы едва до 250 доходит).

В чем может быть проблема?
ЗЫ. если надо я поясню)))
ЗЫЫ. на всякий случай код)))):
h:=100; assignfile(n,"D:\7\1.txt"); rewrite(n); repeat write(n,inttostr(h),"-"); for i:=1 to 20 do for j:=1 to 20 do begin write(n,inttostr(h),"-"); if i<=9 then s1:="00"+inttostr(i) else if i<=99 then s1:="0"+inttostr(i) else s1:=inttostr(i); write(n,s1,"-"); if j<=9 then s2:="00"+inttostr(j) else if j<=99 then s2:="0"+inttostr(j) else s2:=inttostr(j); write(n,s2,#13+#10); end; h:=h+1; until h=109; closefile(n); end;

← →
Palladin © (2007-03-03 23:17) [1]

ошибка не здесь

← →
eXPell © (2007-03-03 23:21) [2]

> Palladin © (03.03.07 23:17) [1]

дык, это единственный код в проге(!?). Я вот на форму кинул кнопку и в онклике написал выше приведенный код и все. Больше ничего в коде нет!

вот болван: я ж предварительно создавал .txt в блокноте, сохранил где надо пустой файл, а блокнот не закрыл с ним.

От этого скорее всего "подкачка" возросла?!

Где-то ошибка... Найти похожие ветки