Нежелательные переносы строк в результатах поиска RegExpr

    String s = TFile::ReadAllText("D:\\test\\file.txt", TEncoding::GetEncoding(1251));
    std::auto_ptr<TRegExpr> re(new TRegExpr);
    re->Expression = "([^\\r])\\n";
    s = re->Replace(s, "$1", true);
    // дальше уже ищи своим регекспом в строке s то, что нужно

    String s = TFile::ReadAllText("D:\\test\\prim2.txt", TEncoding::GetEncoding(1251));
    std::auto_ptr<TRegExpr> re(new TRegExpr);
    re->Expression = L"(МА|ВИ|АМ|МА-1|МА-2)\\s((.*?)\\t+(.*?)\\t+(.*?)\\t+(.*?)\\t{2,}(.*?)\\t+(.*?)\\t+(.*?)\n)";
 
    re->Compile();
    if(re->Exec(s))
    {
        do
        {
            Memo1->Lines->Add(
            String().sprintf(_T("(1:%s) (2:%s) (3:%s) (4:%s) (5:%s) (6:%s) (7:%s)"),
            re->Match[1], re->Match[3], re->Match[4], re->Match[5], re->Match[6], re->Match[7], re->Match[8]));
        }
        while(re->ExecNext());
    }

   TStringList *list = new TStringList;
    list->Text = Memo4->Text;
    list->Duplicates=dupIgnore;
    list->Sorted=True;
    AnsiString del;
    for(int i = 0; i < list->Count; i++)
    {
        del = list->Strings[i];
        for(int y = 0; y < list->Count; y++)
        {
            if(list->Strings[y] == del)
            {
                list->Delete(y--);
            }
            Application->ProcessMessages();
        }
        list->Add(del);
    }
    Memo6->Clear();
    Memo6->Text = list->Text;
    delete list;

re->Expression = "(МА|ВИ|АМ|МА-1|МА-2)\\s((.*?)\\t+(.*?)\\t+(.*?)\\t+(.*?)\\t{2,}(.*?)\\t+(.*?)\\t+(.*?)\n)";

    String s = TFile::ReadAllText("D:\\test\\file.txt", TEncoding::GetEncoding(1251));
    std::auto_ptr<TRegExpr> re(new TRegExpr);
    re->Expression = L"(МА|ВИ|АМ|МА-1|МА-2)\\s((.*?)\\t+(.*?)\\t+(.*?)\\t+(.*?)\\t{2,}(.*?)\\t+(.*?)\\t+(.*?)\n)";
    re->ModifierG = false;
// ...
            Memo1->Lines->Add(
            String().sprintf(_T("(1:%s) (2:%s) (3:%s) (4:%s) (5:%s) (6:%s) (7:%s)"),
            re->Match[1], re->Match[3], re->Match[4], re->Match[5], re->Match[6], re->Match[7], (re->Match[8].IsEmpty() ? WideString("0") : re->Match[8])));

    re->Expression = L"(МА|ВИ|АМ|МА-1|МА-2)\\s((.*?)\\t+(.*?)\\t+(.*?)\\t+(.*?)\\t{2,}(.*?)\\t{1,2}(.*?)\\t+(.*?)\\n)";
    // re->ModifierG = false;