Формирование списка

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *Pars=new TStringList;//Куда же без него :3
Pars->Delimiter=';'; //задаем разделитель
for (int i=0; i<=Memo1->Lines->Count; i++)
                {
        for (int j=0; j<=Memo3->Lines->Count; j++)
        {
        if ( Memo3->Lines->Strings[j].Pos(Memo1->Lines->Strings[i])!=0 )
         {
          Pars->DelimitedText=Memo3->Lines->Strings[j];//делим строку с учетом разделителя
          Memo4->Lines->Add(Pars->Strings[1]);//фиксируем пол
         }
        }
                }
delete Pars;
}

#include <memory>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
std::auto_ptr< TStringList > slNamesAll ( new TStringList ),
                             slNamesMan ( new TStringList ),
                             slNamesWom ( new TStringList ),
                             slCurrStr  ( new TStringList );
slCurrStr->Delimiter = ':';
 
slNamesAll->Sorted = true;
slNamesAll->Duplicates = dupIgnore;
 
slNamesAll->LoadFromFile( "D:\\111\\file.txt" );
 
#define NAME 0
#define SEX 1
const String ManStr( "муж" ), WomStr( "жен" );
for( int countRow=0; countRow < slNamesAll->Count; countRow++ )
  {
  slCurrStr->DelimitedText = slNamesAll->Strings[countRow];
 
  if( slCurrStr->Strings[SEX] == ManStr )
    slNamesMan->Add( slCurrStr->Strings[NAME] );
  else if( slCurrStr->Strings[SEX] == WomStr )
    slNamesWom->Add( slCurrStr->Strings[NAME] );
  }
 
 
Memo1->Text = slNamesMan->Text;
Memo2->Text = slNamesWom->Text;
}

   Memo4->Clear();
   for(int i=0;i<Memo1->Lines->Count;i++) {
     String st = Memo1->Lines->Strings[i];
     if(0>Memo3->Lines->IndexOf(st+":жен"))
       Memo4->Lines->Add(st+":муж"); else
       Memo4->Lines->Add(st+":жен");      }

Pars->Delimiter=';';

TStringList *Pars=new TStringList;
 
for (int i=0; i<=Memo4->Lines->Count; i++)
                {
        for (int j=0; j<=Memo7->Lines->Count; j++)
        {
        if ( Memo7->Lines->Strings[j].Pos(Memo4->Lines->Strings[i])!=0 )
         {
           Pars->Clear();
          ExtractStrings(TSysCharSet() << ',', TSysCharSet(),
          StringReplace(Memo7->Lines->Strings[j], ";", ";\n", TReplaceFlags() << rfReplaceAll).c_str(), Pars);
          Memo8->Lines->Add(Pars->Strings[1]);
         }
        }
                }
delete Pars;
}

Pars->StrictDelimiter = true;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *Pars=new TStringList;//Куда же без него :3
Pars->StrictDelimiter=true;//задаем разделитель строго
Pars->Delimiter=';'; //задаем разделитель
for (int i=0; i<=Memo1->Lines->Count; i++)
                {
        for (int j=0; j<=Memo2->Lines->Count; j++)
        {
        if ( Memo2->Lines->Strings[j].Pos(Memo1->Lines->Strings[i])!=0 )
         {
          Pars->DelimitedText=Memo2->Lines->Strings[j];//делим строку с учетом разделителя
          Memo3->Lines->Add(Pars->Strings[1]);//фиксируем пол
         }
        }
                }
delete Pars;
}

Builder != Builder 6

for(int i=0;i<Memo4->Lines->Count;i++) {
 
String st = Memo4->Lines->Strings[i];
if(0<Memo7->Lines->IndexOf(st+";отеч")) {
Memo8->Lines->Add("отеч"); }
else
if(0<Memo7->Lines->IndexOf(st+";тенд")) {
Memo8->Lines->Add("тенд"); }
else
if(0<Memo7->Lines->IndexOf(st+";НЕТЕН")) {
Memo8->Lines->Add("НЕТЕН"); }
else
if(0<Memo7->Lines->IndexOf(st+";госз")) {
Memo8->Lines->Add("госз"); }
 
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList *File=new TStringList;
TStringList *Tekst=new TStringList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
File->LoadFromFile("C:\\ïðèìåð1.csv");
Tekst->Text = StringReplace(File->Text, " ", "", TReplaceFlags() << rfReplaceAll);
Tekst->Text = StringReplace(Tekst->Text, ";;", "", TReplaceFlags() << rfReplaceAll);
StringGrid1->RowCount=Tekst->Count;
for (int i=0; i<Tekst->Count; i++ )
{
StringGrid1->Cells[0][i]=i+1;
StringGrid1->Cells[1][i]=Tekst->Strings[i];
}
File->Clear();
Tekst->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->ColWidths[1]=180;
StringGrid2->ColWidths[1]=180;
StringGrid3->ColWidths[1]=180;
StringGrid3->ColWidths[1]=180;
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
File->LoadFromFile("C:\\ïðèìåð2.csv");
Tekst->Text = StringReplace(File->Text, " ", "", TReplaceFlags() << rfReplaceAll);
Tekst->Text = StringReplace(Tekst->Text, ";;", "", TReplaceFlags() << rfReplaceAll);
Tekst->Text = StringReplace(Tekst->Text, "\"", "", TReplaceFlags() << rfReplaceAll);
StringGrid2->RowCount=Tekst->Count;
for (int i=0; i<Tekst->Count; i++ )
{
StringGrid2->Cells[0][i]=i+1;
StringGrid2->Cells[1][i]=Tekst->Strings[i];
}
File->Clear();
Tekst->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TStringList *Pars=new TStringList;
Pars->Delimiter=';';
for (int i=0; i<StringGrid1->RowCount; i++)
                {
        for (int j=0; j<StringGrid2->RowCount; j++)
        {
        if (StringGrid2->Cells[1][j].Pos(StringGrid1->Cells[1][i])!=0 )
                        {
         StringGrid3->Cells[0][i]=i+1;
         StringGrid3->Cells[1][i]=StringGrid1->Cells[1][i];
         Pars->DelimitedText=StringGrid2->Cells[1][j];
         StringGrid3->Cells[2][i]=Pars->Strings[1];
         StringGrid3->RowCount++;
                        }
 
        }
                }
delete Pars;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TStringList *SL=new TStringList;
 
for(int i=0;i<StringGrid3->RowCount;i++)
 {
  StringGrid3->Rows[i]->Delimiter=L';'; // Ðàçäåëèòåëü
  SL->Add(StringGrid3->Rows[i]->DelimitedText);
 }
SL->SaveToFile("C:\\1.csv");
delete SL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete File;
delete Tekst;
}
//---------------------------------------------------------------------------