[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