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

#include <vcl.h>
#pragma hdrstop

#include "vSImporter.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfImporter *fImporter;
//---------------------------------------------------------------------------
__fastcall TfImporter::TfImporter(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfImporter::Button1Click(TObject *Sender)
{
	RechercherDfm(PATH);
}
//---------------------------------------------------------------------------
void __fastcall TfImporter::RechercherDfm(const AnsiString &asDirectory)
{
	TSearchRec sr;
	if(!FindFirst(asDirectory+"*",faAnyFile,sr)) {
        do {
            if(sr.Name != "." && sr.Name != "..") {
                if( sr.Attr &= faDirectory ){
                    RechercherDfm(asDirectory+sr.Name+"\\");
                }else {
                    if(ExtractFileExt( sr.Name ) == ".dfm") {
                        TraiterDFM(asDirectory+sr.Name);
                    }
                }
            }
        }while(!FindNext(sr));
    }
    FindClose(sr);
}
//---------------------------------------------------------------------------
void __fastcall TfImporter::TraiterDFM( const AnsiString &asFichier )
{
    char * cLigne = new char[100 + 1];
	ifstream Fic(asFichier.c_str(), ios::in);
    if(Fic.is_open() ) {
    	do{
        	Fic.getline(cLigne, 100, '\n');
            if( strstr(cLigne, "object") != 0 ){
            	GetObject(cLigne);
            }
        }while(!Fic.eof());
    }
    Fic.close();
    delete cLigne;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfImporter::GetObject(char * cLigne)
{
	char * cObjResult = NULL;
    //char * cRefResult = NULL;
    cObjResult = strtok(cLigne, " :");
    cObjResult = strtok(NULL, " :");
    ShowMessage(cObjResult);
}