1 2 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
|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString nvlMac;
ListView1->Clear();
TListItem *item;
TStringList *sl = new TStringList();
sl->Sorted = true;
sl->Duplicates = dupAccept;
sl->LoadFromFile( "Adj.coz" );
AnsiString date;
AnsiString ip;
AnsiString mac;
for( int i=0; i < sl->Count; i++ )
{
item = ListView1->Items->Add();
AnsiString l= sl->Strings[i];
date = strtok(l.c_str(), ";");
ip = strtok(NULL, ";");
mac = strtok(NULL, ";");
item->Caption = mac;
item->SubItems->Add(ip);
item->SubItems->Add(date);
if(Item->Caption == nvlMac){
ListView1->Canvas->Brush->Color = clWhite ;
}
else
{
ListView1->Canvas->Brush->Color = clYellow ;
}
nvlMac = Item->Caption;
}
delete sl ;
} |
Partager