Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.137.171.121] |
|
Сообщ.
#1
,
|
|
|
Program HTML; var src : text; var dest : text; var stroka : string; var posres: byte; var x: integer; Begin assign(src, 'index1.htm'); reset(src); assign(dest, 'newfile.htm'); rewrite(dest); repeat readln(src,stroka); posres:=pos('code', stroka); if (posres <> 0) then Begin x:=x+1; writeln(x, ' Enter string'); readln(stroka); writeln(dest,stroka); writeln('Written!'); End else Begin x:=x+1; writeln (x,' There is no code in this string!'); writeln(dest,stroka); End; until (stroka = ''); writeln(dest,stroka); readln; End. В итоге создается пустой файл... |
Сообщ.
#2
,
|
|
|
А компилятор-то какой?
С чего начинается Х? |
Сообщ.
#3
,
|
|
|
Выходной файл за тебя кто закрывать будет?
В конце программы вставь: close(dest); |
Сообщ.
#4
,
|
|
|
Не понял, для чего эта прога, но ИМХО здесь надо не...
repeat //////// until (stroka=''); ...а... While not SeekEof(Src) do Begin /////// End; Это первое, а второе - файлы закрыть (Close(Src) тоже лучше сделать) |