подробно:
var
Fl:TFileStream;
F:TStrings;
I:integer;
begin
Fl:=TFileStream.Create('log.log', fmCreate); //создаем
Fl.Free; //уничтожаем
F:=TStringList.Create(); //открываем
F.LoadFromFile('log.log'); //файл...
F.Add('строка'); //добавляем строки
F.Add('строка'); //добавляем строки
F.Add('строка'); //добавляем строки
F.Add('строка'); //добавляем строки
...
удаляем символ
...
F.Free;
end;
в итоге должны получить:
строка
строка
строка
строка
строка
строк
|