Удалить строку из файла

← →
dimodim_FORCE (2004-12-22 08:19) [0]

Как удалить строку V из файла текстового типа (Наприменр ХТМЛ)помогите плз.

← →
Александр Иванов © (2004-12-22 08:33) [1]

Если файл небольшой, то:

var Str:TStringList;
begin
try
Str:=TStringList.Create;
Str.LoadFromFile(FileName);
Str.Delete(StrNumber);
Str.SaveToFile(FileName);
finally
Str.Free;
end;
end;

← →
Думкин © (2004-12-22 09:04) [2]

> try
> Str:=TStringList.Create;

так не надо.

← →
Gero © (2004-12-22 09:17) [3]

> Думкин © (22.12.04 09:04)

Угу, да еще и переменная дополнительная зачем-то.

← →
Jay1982 © (2004-12-22 09:41) [4]

Ну тогда открой файл оф шортстринг, и копируй его в другой, а ненужную строку просто не копируй

← →
begin...end © (2004-12-22 09:43) [5]

> [4] Jay1982 © (22.12.04 09:41)

Почему "оф шортстринг"?

← →
Jay1982 © (2004-12-22 09:52) [6]

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

← →
Gero © (2004-12-22 10:44) [7]

> Потому что при стринг, будет ерор: нот финализед,

Это ты так думаешь?

← →
Jay1982 © (2004-12-22 10:58) [8]

Это я так знаю

← →
Jay1982 © (2004-12-22 11:01) [9]

[Error] Unit1.pas(19): Type "String" needs finalization - not allowed in file type

← →
Gero © (2004-12-22 11:01) [10]

> Jay1982 © (22.12.04 10:58)

TextFile - открывай и читай на здоровье.

[Error] Unit1.pas(19): Type "String" needs finalization - not allowed in file type

Тогда намного усложняется выполнение поставленой задачи

> Jay1982 © (22.12.04 11:03)

А по-моему оно усложняется при shortstring.
Напиши свой вариант с shortstring.

var
i: Integer;
F1, F2: TextFile;
S: string;
begin
...
Reset(F1);
Rewrite(F2);
i := 0;
while not SeekEof(F1) do
begin
Readln(F1, S);
if i <> V then
Writeln(F2, S);
Inc(i);
end;
...
RenameFile...

Решение кривое, но верное.
Лучше всего, конечно, TFileStream.

Это не ко мне, не я же автор вопроса

Удалить строку из файла Найти похожие ветки