Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Files   Найти похожие ветки 

 
Ospa   (2002-12-18 23:03) [0]

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

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

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


 
Anatoly Podgoretsky ©   (2002-12-18 23:07) [1]

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


 
Karbo ©   (2002-12-19 01:49) [2]

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;


 
Rouse_ ©   (2002-12-19 02:38) [3]

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


 
Karbo ©   (2002-12-19 03:05) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
3-98964
Gregory
2002-12-09 23:13
2002.12.30
Проблема с Corrupt Index!


1-99112
Groove
2002-12-18 08:49
2002.12.30
TStringlist.SaveToFile _ чЁкаво?


3-98965
Goobit
2002-12-09 13:19
2002.12.30
Лог изменений в TClientDataSet


1-99149
Niko
2002-12-18 16:28
2002.12.30
Как привязать Label к Shape?


3-98962
SashaK
2002-12-09 17:39
2002.12.30
ADO не освобождает ресурсы !!!