1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| this->Liste_Fichier = new TStringList();
this->Liste_Fichier->LoadFromFile("Contacts.csv");
I=0;
Ligne=Liste_Fichier->Strings[I];
this->StringGrid_Annuaire->Cells[0][I] = Ligne.SubString(0,Ligne.Pos(",")-1) ;
this->StringGrid_Annuaire->Cells[1][I] = Ligne.SubString(Ligne.Pos(",")+1,Ligne.LastDelimiter(",")-Ligne.Pos(",")-1) ;
this->StringGrid_Annuaire->Cells[2][I] = Ligne.SubString(Ligne.LastDelimiter(",")+1,Ligne.Length()) ;
Liste_Fichier->Delete(I);
Liste_Fichier->Sort();
TRect R;// = Rect;
for(I=0;I<Liste_Fichier->Count;I++) {
if(I>0) this->StringGrid_Annuaire->RowCount++;
Ligne=Liste_Fichier->Strings[I];
this->StringGrid_Annuaire->Cells[0][I+1] = Ligne.SubString(0,Ligne.Pos(",")-1) ;
this->StringGrid_Annuaire->Cells[1][I+1] = Ligne.SubString(Ligne.Pos(",")+1,Ligne.LastDelimiter(",")-Ligne.Pos(",")-1) ;
this->StringGrid_Annuaire->Cells[2][I+1] = Ligne.SubString(Ligne.LastDelimiter(",")+1,Ligne.Length()) ;
for(J=0;J<26;J++)
if(((TButton * )this->Button_Tri_Annuaire->Items[J])->Caption==Ligne.SubString(0,1))
((TButton * )this->Button_Tri_Annuaire->Items[J])->Enabled=true;
} |
Partager