| 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
 
 |  
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