Конвертация строки

    TStringList *List = new TStringList;
    List->Text=Memo1->Text;
    String Str;
    for(int i=0; i<List->Count; i++)   {
 
        if (List->Strings[i].Pos("-1"))
        {
            Str = List->Strings[i].SubString(List->Strings[i].Pos("-1")+3,1000);
            Memo2->Lines->Add(Str);
        }
        if (List->Strings[i].Pos("http"))
        {
            Str = List->Strings[i].SubString(List->Strings[i].Pos("http"),1000);
            Memo2->Lines->Add(Str);
        }
 
    }
    delete List;

#include "RegExpr.hpp"
// ...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TRegExpr *re = new TRegExpr;
    re->InputString = Memo1->Lines->Text;
    re->ModifierM = true;
    re->Expression = "(^(#[^\\-]*)-1,)";
    if(re->Exec(re->InputString))
    {
        Memo2->Lines->Text = re->Replace(re->InputString, "", false);
    }
    delete re;
}

if (List->Strings[i].Pos("-1"))
* * * * {
* * * * * * Str = List->Strings[i].SubString(List->Strings[i].Pos("-1")+3,1000);
* * * * * * Memo2->Lines->Add(Str);
* * * * }
* * * * if (List->Strings[i].Pos("http"))
* * * * {
* * * * * * Str = List->Strings[i].SubString(List->Strings[i].Pos("http"),1000);
* * * * * * Memo2->Lines->Add(Str2);

 Memo2->Lines->Add(Str + "12345689" + Str2 + Str);

    TRegExpr *re = new TRegExpr;
    re->InputString = Memo1->Lines->Text;
    re->ModifierM = true;
    re->Expression = "(^(#[^\\-]*)-1,)(.*?)\\n(.*?)$";
    re->Compile();
    if(re->Exec(re->InputString))
    {
        do
        {
            // Match[0] = "#Постоянное значение:-1,(+99):Привет всем\r\nhttp://адрес"
            // Match[1] = "#Постоянное значение:-1,"
            // Match[2] = "#Постоянное значение:-1"
            // Match[3] = "(+99):Привет всем\r"
            // Match[4] = "http://адрес "
            Memo2->Lines->Add(re->Match[3] + re->Match[4]); // Можно убрать из Match[3] \r
        }
        while (re->ExecNext());
    }
    delete re;

(^(#[^\\-]*)-1,)(.*?)\\n    //идеально

(^(#[^\\-]*)-1,)(.*?)\\n(.*?)\\n(.*?)$

(^(#[^\\-]*)-1,)(.*?)

re->Expression = "(^(#[^\\-]*)-1,)(.*?)\\n(.*?)$";

re->Expression = "(^(#[^,]*),)(.*?)\\n((://.*?)|(.*?))\\n$";

    TRegExpr *re = new TRegExpr;
    re->InputString = Memo1->Lines->Text;
    re->ModifierM = true;
    re->Expression = "#([^,]*),([^\\n]*)\\n(([^#h]*\\n)?((http://(.*?))\\n))";
 
    re->Compile();
    if(re->Exec(re->InputString))
    {
        do
        {
            Memo2->Lines->Add(re->Match[2] + "\n" + re->Match[6]); // Можно убрать из Match[3] \r
        }
        while (re->ExecNext());
    }
    delete re;

#([^,]*),([^\\n]*)\\n(([^#h]*\\n)?(([url]http://(.*?))\\n[/url]))

#([^,]*),([^\n]*)\n(([^#^(.*?)://]*\n)?((^(.*?)://(.*?))\n))

re->Expression = "#([^,]*),([^\\n]*)\\n(([^#:/]*\\n)?((([a-z]*)://(.*?))\\n){1,1})";

re->Expression = "#([^,]*),([^\\n]*)\\n(([^#:/]*\\n)?((([a-z]*)://(.*?))(\\n|$)){1,1})";

re->Expression = "#([^,]*),([^\\n]*)\\n(([^\\d/]*\\n)?((([a-z]*)://(.*?))(\\n|$)){1,1})$";