//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

#include <string.h>
#include <windows.h>
#include <fstream>
#include <iostream>
#include <stdlib>
#include <conio>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}


AnsiString FindToken( AnsiString aSource, int aPosition, char aDelimiter )
{
/*
aSource : la chaîne de caractère à découper
aPosition: l'élément dans la chaîne que tu veux récupérer
aDelimiter: le caractère de séparation
*/
  TStringList *tokenizer = new TStringList() ;
  tokenizer->Text = StringReplace(aSource, aDelimiter , "\n", TReplaceFlags()<< rfReplaceAll );
 
  AnsiString resultat = "" ;
  if( aPosition < tokenizer->Count )
    resultat = tokenizer->Strings[ aPosition ] ;
  delete tokenizer ;
  return( resultat );
}



/**************************************************************************/
TStringList *MyList = new TStringList();

try
{
   MyList->LoadFromFile( "D:\\StatTab.csv" ) ;
  //récupération de la 6ième ligne du fichier :
AnsiString ligne = MyList->Strings[2] ;
AnsiString value = FindToken( ligne, 2, ';' ) ;

 Edit1->Text = value;
 Edit2->Text = ligne;
}
__finally
{
  delete MyList;
}