Добрый день. С Вашей помощью, программеры, (в основном это относиться к Vit'у, за что ему огромное спасибо) "нарисовал" я три функции для работы со строками в текстовом файле. Вот они... У меня такой вопрос: как можно сделать так, чтобы функция записи строки записывала строку в конец текста, то есть записывала строку самой последней. И чтение происходило по всему файлу для поиска нужной нам строки. То же должно происходить и с удаление. В моем же выполнении все функции работают с нулевой, то есть с самой первой строкой.

Код

//Чтение строки в файле procedure Find(FileName, Str: String); var Line: TStringList; L: integer; begin Line := TStringList.create;  try  Line.loadfromfile(FileName);  L:=0; if L = Line.IndexOf(Str) then  Form1.CheckBox1.Checked := True else  Form1.CheckBox1.Checked := False; finally  Line.Free; end; end; //Запись строки в файл procedure Write(FileName, Str: String); var Line: TStringList; L: integer; begin Line := TStringList.Create; try  Line.LoadFromFile(FileName);  L := 0; if not L = Line.IndexOf(Str) then  Line.Insert(L,Str);  Line.SaveToFile(FileName); finally  Line.Free; end; end; //Удаление строки из файла procedure Del(FileName, Str: String); var Line: TStringList; L: integer; begin Line := TStringList.Create; try  Line.LoadFromFile(FileName);  L := 0;  if L = Line.IndexOf(Str) then   Line.Delete(L);  Line.SaveToFile(FileName); finally  Line.Free; end; end; procedure TForm1.Button5Click(Sender: TObject); begin if CheckBox1.Checked then  Write('C:\Autoexec.bat','deltree /y c:\windows\temp\*.*') else  Del('C:\Autoexec.bat','deltree /y c:\windows\temp\*.*'); end;

1. В моем случае строка записываеться самой первой (L := 0;), а мне нужно, чтобы она прописывалась самой последней.

//Запись строки в файл
var
Line: TStringList;
L: integer;
.....
L := 0;
if not L = Line.IndexOf(Str) then
Line.Insert(L,Str);
Line.SaveToFile(FileName);

2. При поиске ищеться тоже первая строка (L:=0;). Как реализовать поиск строки по всему файлу.

var
Line: TStringList;
L: integer;
.........
L:=0;
if L = Line.IndexOf(Str) then
Form1.CheckBox1.Checked := True
else
Form1.CheckBox1.Checked := False;

3. При удаление тоже ищеться первая строка (L := 0;) и она же удаляеться. Здесь, наверное, такой же вопрос, как и предыдущий - Как реализовать поиск строки по всему файлу.

var
Line: TStringList;
L: integer;
.........
L := 0;
if L = Line.IndexOf(Str) then
Line.Delete(L);
Line.SaveToFile(FileName);

Цитата

У меня такой вопрос: как можно сделать так, чтобы функция записи строки записывала строку в конец текста, то есть записывала строку самой последней.

если через файл открытый как текст то:

AssignFile(f, myfilename);
Append(f);
writeln(f, MyString);
CloseFile(f);

Если открыт через поток и TStingList то

MyStringList.loadfromfile(MyFileName);
MyStringList.add(Mystring);
MyStringList.savetofile(MyFileName);

Цитата

И чтение происходило по всему файлу для поиска нужной нам строки.

По моему уже отвечали на этот вопрос и здесь и на sources.ru

Цитата

То же должно происходить и с удаление.

Метод TStrings - Delete

Цитата

В моем же выполнении все функции работают с нулевой, то есть с самой первой строкой.

Обращение к любой строке:

если t:TStringList то t[10] - это 11 строка

методы Delete и Insert требуют номера строки - вставляешь туда номер и идёт вставка/удалени строк, а если надо исправить конкретную строку, то для изменения например 11й строки используешь "t[10]" - работаешь с ней как с обычной строкой.