delphi строки

[motaro]

как заменить произвольную строку в файле.
например содержание файла file.txt:
stroka1
stroka2
stroka3 //эту строку нужно заменить
stroka4
stroka5
ничего на ум не приходит

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

используй TStringList

var L:TStringList;
begin
 L:=TStringList.Create;
 L.LoadFromFile(file.txt);
 L[3]:='замененная строка';
 L.SaveToFile(file.txt);
 L.Free;
end;

[motaro]

в файле строка может быть не обязательно 3, то есть не известен номер строки, а известно только её название, как в этом случае поступить?

[Volt]

обьясните как это понять

известно только её название

какое еще название?

[QunneD]

В uses добавь StrUtils

procedure TForm1.Button1Click(Sender: TObject);
var
  s : tstrings;
  text : string;
begin
  s := tstringlist.Create;
  s.LoadFromFile('file.txt');
  text := s.Text;
  text := ansireplacestr(text, 'stroka3', 'измененая строка');
  s.text := text;
  s.SaveToFile('file.txt');
  s.Free;
end;

[motaro]

Сообщение от QunneD

В uses добавь StrUtils

procedure TForm1.Button1Click(Sender: TObject);
var
  s : tstrings;
  text : string;
begin
  s := tstringlist.Create;
  s.LoadFromFile('file.txt');
  text := s.Text;
  text := ansireplacestr(text, 'stroka3', 'измененая строка');
  s.text := text;
  s.SaveToFile('file.txt');
  s.Free;
end;

спасибо .