[Drongo]

Может кто нибудь поможет переписать данный код что бы последнюю строчку программа не сносила? »

Расширьте вашу задачу, опишите подробно, что есть и что хотите получить?

[Merboot]

Есть текстовый файл,сколько там строк не известно. (Они могут меняется.)
Нужно заменить всего "5" строк.
Пример:

Test: 0
Test: 1
Test: 2
Test: 3
Test: 4
Test: 5

Нужно заменить текст который написан после "Test: "
Промеж данных строк могут быть и другие текстовые поля.
Для каждой из "5" строк есть свой Edit.
Edit1,Edit2... Нужно заменять текст на тот что написан в Edit.

{Вроде нормально описал что хочу.}

Почти тоже самое что просил автор темы.

[Drongo]

Почти тоже самое что просил автор темы. »

Да, можно немножко модифицировать код и приспособить под вашу задачу, я завтра-послезавтра сделаю.

[Merboot]

Спасибо,буду ждать.

[Drongo]

Merboot, А всё-таки, прикрепите файл, который нужно обработать, мне легче тестировать на живом примере чем на выдуманом.

[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;
}
//---------------------------------------------------------------------------