[Drongo]

Merboot, Тоже по-дилетантски. Но вроде бы работает.

Код:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int count = 0;
   TStringList *lst = new TStringList();
   TStringList *lstReplace = new TStringList();
   lst->Text = Memo1->Text;
   String str = "Test:"; // Слово которое мы ищем
   String tempStr = ""; // Формируемая строка в которой найденое слово "Test:" + текст из Edit
//   lst->LoadFromFile(ExtractFilePath(Application->ExeName) + "Log.txt"); // Загружаем файл

   for(int i = 0; i < lst->Count; i++){
      if(!lst->Strings[i].Pos(str)){
         lstReplace->Add(lst->Strings[i]);
        }
      else if(lst->Strings[i].Pos(str)){
         tempStr = "";
         if(count == 1){
            tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
            tempStr += Edit1->Text;
            lstReplace->Add(tempStr);
           }
         else if(count == 2){
            tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
            tempStr += Edit2->Text;
            lstReplace->Add(tempStr);
           }
         else if(count == 3){
            tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
            tempStr += Edit3->Text;
            lstReplace->Add(tempStr);
           }
         else if(count == 4){
            tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
            tempStr += Edit4->Text;
            lstReplace->Add(tempStr);
           }
         else if(count == 5){
            tempStr = lst->Strings[i].SubString(1, lst->Strings[i].Pos(str) + str.Length());
            tempStr += Edit5->Text;
            lstReplace->Add(tempStr);
           }
         count++;
        }
     }
   lstReplace->SaveToFile(ExtractFilePath(Application->ExeName) + "Test.txt");

   delete lst;
   delete lstReplace;
}
//---------------------------------------------------------------------------