Разбитие строки на части

 AnsiString stroka="Äèìà:Ïðèâåò:122:11/1111/1:Îäèí:Äâà:0102030405060708091011121314 #Ïåðâàÿ ñòðîêà";
 int r=stroka.Pos("#");
 AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
 AnsiString kon=stroka.SubString(0, r-1);
 Memo1->Lines->Add(nach);
 TStringList *list = new TStringList;
 list->Delimiter=':';
 list->DelimitedText=kon;
 Memo1->Lines->AddStrings(list);
 delete list;

Memo1->Lines->Delete(4);

AnsiString stroka="Дима:Привет:122:11/1111/1:Один:Два:0102030405060708091011121314 #Первая строка";
 int r=stroka.Pos("#");
 AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
 AnsiString kon=stroka.SubString(0, r-1);
 Memo1->Lines->Add(nach);
 TStringList *list = new TStringList;
 list->Delimiter=':';
 list->DelimitedText=kon;
 list->Delete(3);
 Memo1->Lines->AddStrings(list);
 delete list;

 list->Strings[1]="Íó "+ list->Strings[1];

  TStringList *list = new TStringList;
  AnsiString stroka;
for( int i=0; i<mmo1->Lines->Count;i++ )
{
    if (!mmo1->Lines->Strings[i].IsEmpty())  
    stroka=mmo1->Lines->Strings[i];
 int r=stroka.Pos("#");
 AnsiString nach=stroka.SubString(r+1, stroka.Length()-r+1);
 AnsiString kon=stroka.SubString(0, r-1);
 Memo2->Lines->Add(nach);
 list->Delimiter=':';
 list->DelimitedText=kon;
 list->Delete(3);
 Memo1->Lines->AddStrings(list);
}
 delete list;}

if ( mmo1->Lines->Strings[i].IsEmpty( )  ) continue;

#include <boost/regex.hpp>
 
void __fastcall TForm1::btn1Click( TObject *Sender )
{
    using namespace boost;
 
    wregex pattern( L"(\\w+):(\\w+):(\\d+):\\d*/\\d*/\\d*:(\\w+):(\\w+):(\\d+) #(\\w+ \\w+)" );
 
    for ( size_t i = 0, l_count = memo_in->Lines->Count; i < l_count; ++i ) {
        wcmatch parts;
        if ( regex_match( memo_in->Lines->Strings[i].c_str( ), parts, pattern ) ) {
            memo_out->Lines->Add( parts[parts.size( ) - 1].str( ).c_str( ) );
            for ( size_t i = 1, parts_size = parts.size( ) - 1; i < parts_size; ++i ) {
                memo_out->Lines->Add( parts[i].str( ).c_str( ) );
            }
            memo_out->Lines->Add( "" );
        }
    }
}

AnsiString InputStr = str;
    TRegExpr* RegExp=new TRegExpr();
    RegExp->Expression="<[^>]*?>/*";
    RegExp->Compile();
    InputStr=RegExp->Replace(str,"",false);

    TRegExpr* RegExp=new TRegExpr();
    AnsiString str;
    AnsiString InputStr = str;
    for( int i=0; i<mmo1->Lines->Count;i++ )
{
    str=mmo1->Lines->Strings[i];
    RegExp->Expression="(\\w+):(\\w+):(\\d+):\\d*/\\d*/\\d*:(\\w+):(\\w+):(\\d+) #(\\w+ \\w+)";
    RegExp->Compile();
    InputStr=RegExp->Replace(str,"",false);
    Memo2->Lines->Add(InputStr);