| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Files [D6, Win95/98]

Ospa ©   (2002-12-18 23:03:00) 

Открываю файл для записи. записываю в него текст.
открываю этот файл заново. нахожу нужно слово и удаляю это слово. закрываю файл.

AssignFile(F1,"rus.txt");
Append(F1);
...
...здесь вводится текст....
...закрывается файл...

открывается. т.е. нужно открыть для поиска и последующего удаления нужного слова из него. Reset(F1)??
Reset(F1)-вроде бы только для чтения...
так ак быть?

---

Karbo   (2002-12-19 03:05:00) [1]

Не думаю, что здесь скорость важна - там, наверно, текстовый файло строчек на 10..110. Ну а так, конечно, BlockRead, бинарный файл, все дела...

---

Rouse_   (2002-12-19 02:38:00) [2]

Однако скорость :(

---

Karbo   (2002-12-19 01:49:00) [3]

var
F1: TextFile;
Buf : array [1..100000] of string [100];
i,BufLen : integer;

begin
AssignFile (F1,"rus.txt");
Reset (F1);
Buflen :=0;
While not eof (F1) do begin inc(BufLen); ReadLn (F1, Buf [Buflen] ) end;
...нахожу в Buf нужно слово и удаляю это слово
ReWrite (F1);
for i:=1 to BufLen do WriteLn (F1, Buf [i] );
CloseFile(F1);
end;


---

Anatoly Podgoretsky   (2002-12-18 23:07:00) [4]

Текстовые файлы это файлы с последовательным доступом, или используй работу с этим файлом как с двоичным или переписывай в новый файл

---

Наверх