нет,я пытаюсь взять основу твоего кода(тот минимум который полностью повторилбы функцию,неважно как она работает добавляет или заменяет)
Цитата:
|
Мог бы потестить и не спрашивать.
|
я конечно же потестил,перед тем как спросить,эээ вообщем результат нуль!ничего в файле не изменилось
Цитата:
|
Ты дописал в переменную s текст с Edit1 а в файл сохранил содержимое Memo1
|
(эта переменная s должна ,если я правильно понимаю вставать после <body>)
да,по ходу чуть приукрашиваю,направляюсь этим кодом(насчет insert):
Код:
Вставка подстроки в строку
Если требуется в имеющуюся строку вставить другую строку, можно использовать процедуру Insert(). Первый параметр - строка для вставки, второй - переменная, содержащая строку, куда нужно вставить, третий - позиция (номер символа), начиная с которого будет вставлена строка. Пример:
procedure TForm2.Button1Click(Sender: TObject);
var S: String;
begin
S:='1234567890';
Insert('000',S,3);
ShowMessage(S)
end;
В данном случае результатом будет строка "1200034567890".