evo kako sam ja to obavio (ako neko ima primedbu ili bolju ideju neka nastavi...)
Code:
/* izdvaja sve srpske fontove i prikazuje ih
u Memo kontroli
predpostavka je da ti fontovi pocinju sa YU ili C_ ili Cir...
a ima nekih koji se zavrsavaju sa _L
*/
AnsiString imeFonta;
AnsiString CET[]={"Beograd","Nis","Aleksinac","Novi Sad"}; //CET ovi fontovi
TStringList * fonts= new TStringList();
fonts->Assign( Screen->Fonts);
for(int i= 0; i< fonts->Count; i++)
{
imeFonta= fonts->Strings[i];
if ((imeFonta.Pos("YU")> 0) ||
(imeFonta.Pos("C_")>0) ||
(imeFonta.Pos("C ")>0 ) ||
(imeFonta.Pos("Cir")>0 ) ||
(imeFonta.Pos("_L")>0) )
{ Memo2->Lines->Add(imeFonta);continue; }
int k= (int) (sizeof(CET)/sizeof(AnsiString));
for(int j=0;j<k;j++)
if(CET[j]==imeFonta) { Memo2->Lines->Add(imeFonta); continue;}
}
delete fonts;
/* izdvaja sve srpske fontove i prikazuje ih
u Memo kontroli
predpostavka je da ti fontovi pocinju sa YU ili C_ ili Cir...
a ima nekih koji se zavrsavaju sa _L
*/
AnsiString imeFonta;
AnsiString CET[]={"Beograd","Nis","Aleksinac","Novi Sad"}; //CET ovi fontovi
TStringList * fonts= new TStringList();
fonts->Assign( Screen->Fonts);
for(int i= 0; i< fonts->Count; i++)
{
imeFonta= fonts->Strings[i];
if ((imeFonta.Pos("YU")> 0) ||
(imeFonta.Pos("C_")>0) ||
(imeFonta.Pos("C ")>0 ) ||
(imeFonta.Pos("Cir")>0 ) ||
(imeFonta.Pos("_L")>0) )
{ Memo2->Lines->Add(imeFonta);continue; }
int k= (int) (sizeof(CET)/sizeof(AnsiString));
for(int j=0;j<k;j++)
if(CET[j]==imeFonta) { Memo2->Lines->Add(imeFonta); continue;}
}
delete fonts;
Tape loading error