[Electronic_Arts]

Дело вот в чем смотрим внизу

Код:

procedure TForm1.Button1Click(Sender: TObject);//создать
begin
memo1.Lines.Insert(5, 'Electronic_Arts');
end;

вот добавил в мемо данные и каким образом мне удалить именно эту надпись незная в каком она линии
если еще добавить так то уже этот не будет на 5ом линнии

[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Memo1.Lines[i] = 'Electronic_Arts' then
      begin
         Memo1.Lines.Delete( i );
         Break;
      end;
end;

[Electronic_Arts]

Все ОК!
А как после добавлении текста изменить ту месту где находится текст из edit1

Код:

begin
memo1.lines.insert(5, 'Electronic_Arts'+edit1.text);
end;

[Decoding]

Код:

// Заменить часть строки, содержащей подстроку из Edit
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Edit1.Text, 'Новое значение', [] );
         Break;
      end;
end;

// Заменить всю строку, содержащей подстроку из Edit
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Memo1.Lines[i], 'Новое значение', [] );
         Break;
      end;
end;

[Electronic_Arts]

Мне скорее всего подходит вот этот

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Edit1.Text, 'Новое значение', [] );
         Break;
      end;
end;

а как там сделать так что бы изменения добавились с Edit1.Text
я изменил там 'Новое значение' на Edit1.Text и поставил процедуру на KeyPress что бы добавления изменились при нажатии клавиш (добавления по буквам) но что то не получается ЧТО ДЕЛАТЬ?

[Decoding]

Найди индекс строки, в которую собираешься добавлять, и делай так:
Memo1.Lines[i] := Memo1.Lines[i] + Edit1.text

[Electronic_Arts]

Если можно кодик пожалуста а то мне худа придется
ЗАРАНИЯ СПОСИБО

[Electronic_Arts]

Я понял ты имел введу так

Код:

var
i:integer;
  begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := Memo1.Lines[i] + Edit1.text;
         Break;
      end;

но оно не добавляет по буквам
продолжительность добавления
E+El+Ele+Elec+Elect+................+и так до конца..
что делать?

[Decoding]

Посмотри... primer.zip

[Electronic_Arts]

нето смотрим на рисунок и придумываем что можно делать

[Decoding]

primer_new.zip
Зачем тебе нужно такое извращение?

[Electronic_Arts]

Спосибо за все
остался последний вопрос
Если в одной строке 2 таких мест например
code.code "edit1.text" code="edit2.text"

[Decoding]

Точно так-же, только вставлять текст из эдитов нужно в разные места строки, в зависимости от того, содержимое какого эдита меняется.