|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Типизированные файлы
помогите написать цикл который заменит все отрицательные числа в файле на их модули.
|
#2
|
||||
|
||||
В теме звучит типизированный. Где структура?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
В файле содержатся переменные типа integer.....короч как сделать ентот цикл??
|
#4
|
|||
|
|||
Я бы вычитал все в массив, а потом записал все измененное.
|
#5
|
|||
|
|||
Я же тебе уже давал код, там всего пару строк изменить надо было)
Код:
var F:File of Integer; x:Integer; begin AssignFile(F, 'filename.txt'); Reset(F); while not eof(F) do begin Read(F, x); if (x < 0) then begin Seek(F, FilePos(F)-1); Write(F, 0); end; end; CloseFile(F); end; ... |
#6
|
|||
|
|||
Спасибо!!!!!!!! вот до ентой строчки я не могла додуматься
Код:
Seek(F, FilePos(F)-1); |