работа с файлом в Delphi

[TaYgA]

Всем доброго времени суток, столкнулся с простейшей задачей и на ней же застрял... Я понимаю, что тема уже избитая, но в подобных разобраться не смог Дан текстовай файл вида:
текст 1
текст 2
текст 3
текст 4
..........
нужно:
1) Найти строчку с текстом совпадающим с Edit1 и заменить на текст Edit2....
2) Найти строчку с текстом совпадающим с Edit3. Удалить её и следущую строчку...

[Пепел Феникса]

текстом совпадающим с Edit1

Edit1.Text:='Test';
какие строки подходят:
А)'Test';
Б)'Test35';
В)'6576Testklhkh';
?

[TaYgA]

Смысл я понимаю, я не понимаю как записать программно...
Я представляю себе это так:
1)

  var
   f: TextFile;
   a: String;
begin
  AssignFile(f,'test');
  Reset(f);
  while not Eof(f) do begin
    Readln(f,a);
      if (Edit1.Text=a)  then a:= Edit2.Text;
       break;
  end;
  Rewrite(f);
  Write(f,a);
  CloseFile(f);
end;

В этом случаи программа перепишет весь файл на значение переменной а... Как сделать подругому я не знаю...
2) Аналогично (1) находим строку, но как удалить две строки я не знаю

[Пепел Феникса]

может TStringList использовать?

[TaYgA]

Ну вообщето по условию задачу нужно решить через Edit

[Proof]

TaYgA

TStringList использовать так, загрузить в него текстовый файл, произвести необходимые изменения (замена строки) и сохранить в этот файл уже измененные данные.

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

Насколько мне известно, напрямую изменить текстовик нельзя.

[TaYgA]

Это плохо Поидеи пользователь не должен видеть, что именно сохранено в файле. Он знает значение всего одной строчки и от неё должен крутиться.... Ну ладно, буду думать как другим путём можно пойти... Спасибо за внимание к моей теме

Попробуй пойти вашим путём.... Скажите, а где находится компанент TStringList. И если можно, я бы хотел загружать в ListBox... Как это будет выглядить?!?!

[Вавел из ГМТУ]

Самое, наверное, правильное это создать список класса TStringList (как уже было написанно выше) и занести туда фаил. Потом обработь этот список и сохранить.

Для этого:
List : TStringList;
List := TStringList.Creat;

А после: List.Free;

Также можно(если изменения не сложные) создать, на время работы, временый фаил. Например с другим расширением, но темже именем. И в конце удалить исходный фаил, а у временого изменить расширение.

Если нужен регитсронезависимый(во какое слово) поиск то юзай AnsiLowerCase или же её противоположность AnsiUpperCase.

Скажите, а где находится компанент TStringList. И если можно, я бы хотел загружать в ListBox

Вкладка Standart 11-ая позиция.
ListBox1.Items.LoadFromFile(...)

[TaYgA]

Спасибо Буду пробываить

[TaYgA]

Всем доброго времени суток... Никак не даёт покоя эта задачка Скажите, а возможно ли в Delphi считывать файл построчно?!? Т.е. я хочу, чтоб при чтении файла прога брала первую строчку и сравнивала с Edit1, если они не равны, то эту строчку записывала в другой фал. Когда файл и Edit1 станут равны, то в новый файл запишется Edit2, после чего записать оставшиеся строки в другой файл без изменений. Если возможно так сделать, то привидите пожалуйсто маленький примерчик, как сравнивать файл по строчно с Edit1 и записывать в новый файл....