| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 
 |  
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
  AnsiString op=" [ ";
 
  if(OpenDialog1->Execute()) {
  Form1->Caption="Slim SoftProgPic "+op+ OpenDialog1->FileName+" ]";
  AnsiString ExtensionApplication = ExtractFileExt(OpenDialog1->FileName).LowerCase(); // = l'extension".hex"
 
  //debut condition message erreur extension : message d'erreur.
  if(ExtensionApplication!=".hex"){
	 MessageDlg("Erreur d'extension sur le fichier selectionner [ "+ExtensionApplication+" ]",mtError, TMsgDlgButtons() << mbOK, 0);return;
  }//fin de condition si message d'erreur
 
 
   TStringList *Liste    =   new TStringList;
   Liste->LoadFromFile(OpenDialog1->FileName);
   int NbLignes          =   Liste->Count;
   AnsiString NomComplet =   ExtractFileName(OpenDialog1->FileName);//Extraire nom du fichier
   AnsiString Chaine     =   Liste->Strings[NbLignes-1];
   ProgressBar1->Min     =   0;
   ProgressBar1->Max     =   NbLignes;
   Memo1->Font->Size     =   10;
   Memo1->Font->Name     =  "arial";
   Memo1->Font->Color    =   clBlue;
 
 
 
 
 
 
 
  for(int i=0;i<=NbLignes;i++){
 
		ProgressBar1->Position++; // Incrémente la position de la ProgressBar1
		Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
 
 
		if(i==NbLignes){ //si chargement fichier terminer
		Memo1->Font->Color=clBlue;
		LabelCompteLigneFichier->Caption="Nombre de lignes : "+IntToStr(NbLignes);
		int FichierHandle = FileOpen(OpenDialog1->FileName, fmOpenRead);
		LabelTailleFichier->Caption=NomComplet+op+FormatFloat("### ### ### Ko",FileSeek(FichierHandle, 0, 2))+" ] ";
		}//*********************************************************************
		else{//si chargement fichier  pas terminer
		Memo1->Font->Color=clGray;
		LabelCompteLigneFichier->Caption="Chargement du fichier...";
		}
 
 
   }
 
 
 } |