[lmikle]

Сообщение от Неподарок

Огромное спасибо!

А в чом проблема была?
И как можно сделать так чтобы если f.strings[i] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

With frm_ofice.nlist.Items.Add Do
        Begin
          Caption:=f.Strings[i];
          SubItems.Add(f.Strings[I+1]);
          SubItems.Add(f.Strings[I+2]);
          SubItems.Add(f.Strings[I+3]);
          Inc(I,4);
        End;

Код:

With frm_ofice.nlist.Items.Add Do
        Begin
          If StrToDate(f.String[i]) = Date Then
           Begin
            Caption:=f.Strings[i];
            SubItems.Add(f.Strings[I+1]);
            SubItems.Add(f.Strings[I+2]);
            SubItems.Add(f.Strings[I+3]);
           End;
          Inc(I,4);
        End;

[/