поиск файлов по дате создания и по маске

[marales]

подскажите где ошибка
Ищу файлы по маске '*.txt' по всем имеющимся дискам
Хотел добавить, чтобы ещё фильтровалось по дате создания например например найти файлы txt с датой создания больше 16.09.2015

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,masks;

type
  TForm1 = class(TForm)
    List: TListBox;
    ListBox1: TListBox;
    Button2: TButton;
    procedure GetFixedDriveList;
    procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.GetFixedDriveList;
var
    Size, Pos: Cardinal;
    Buffer: array[0..127] of AnsiChar;
    P: PChar;
begin
    form1.List.Update;
  try
      form1.List.Clear;
      Size:=GetLogicalDriveStrings(SizeOf(Buffer), Buffer);
      Pos:=0;
      while Pos<Size do begin
          P:=@Buffer[Pos];
          if GetDriveType(P) = DRIVE_FIXED then form1.List.Items.Add(p);
      while Buffer[Pos]<>#0 do Inc(Pos);
          Inc(Pos);
  end;
  finally
      form1.List.Update;
end;
end;


procedure Tform1.FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
  datetime:TDateTime;
begin
  form1.ListBox1.Update;
  try
    Path:=IncludeTrailingBackSlash(Path);
    FindResult:=FindFirst(Path+'*.*', faAnyFile, SearchRec);
    try
      while FindResult = 0 do with SearchRec do begin
        if (Attr and faDirectory<>0) then begin
            if IncludeSubDir and (Name<>'..') and (Name<>'.') then
                  FindFiles(Path+Name, Mask, List, IncludeSubDir);
            end else begin
        if MatchesMask(Name, Mask) then
              begin
              datetime:=FileDateToDateTime(SearchRec.Time);
              if datetime>16/09/2015 then List.Add(Path+Name);
              end;
        end;
    FindResult:=FindNext(SearchRec);
    end;
    finally
        FindClose(SearchRec);
  end;
  finally
    form1.ListBox1.Update;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to form1.list.items.count-1 do
   FindFiles(List.Items[i],'*.txt',ListBox1.Items,True);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
GetFixedDriveList;
end;

end.

[Stilet]

datetime>16/09/2015

Что это?
Нужно уж так делать:

datetime>EncodeDate(2015,09,16);

[northener]

Очень забавно наблюдать эти неизвестно для чего вызываемые TWinControl.Update в начале работы и затем повторяемые в секции finally. Чтобы это значило?

А в целом я согласен что Дельфи такая недоделанная, ну просто ужас! Не может понять простую строчку

datetime>16/09/2015

. Ведь даже любой дурак понимает что она означает.

[min@y™]

Очень забавно наблюдать эти неизвестно для чего вызываемые TWinControl.Update в начале работы и затем повторяемые в секции finally. Чтобы это значило?

это обычно означает, что говнокод спионерен из интернетов чуть менее, чем полностью, причём сам пионер не понимает, как он работает.


совет: пионер, тыришь – тырь вагонами!

[саша40]

Сообщение от min@y™

совет: пионер, тыришь – тырь вагонами!

Думаю данная фраза имеет историческую оценку. Теперь я понимаю, почему в современном мире коррупция буквально везде.

Алгоритм следующий:
1. Ищем файл.
2. Проверяем его расширение(GetFileExt), если оно равно "txt", то продолжаем, иначе вернутся к действию 1.
3. Проверяем его дату создания(Там надо через атрибуты(Attribute) файла или типо того), если она больше или равна данному, то возвращаемся к действию 1, иначе записываем в список.
4. Вернутся к действию 1.
Юзаем FindFirst, FindNext, FindClose, TSearchRec и GetFileAttribute.

[min@y™]

Думаю данная фраза имеет историческую оценку. Теперь я понимаю, почему в современном мире коррупция буквально везде.

ай шайтан, слющяй, как догадался?

Алгоритм следующий:

1. берешь компонент.
2. устанавливаешь его в поллитру компонентов.
3. кидаешь на форму и юзаешь.

[саша40]

Сообщение от min@y™

ай шайтан, слющяй, как догадался?



1. берешь компонент.
2. устанавливаешь его в поллитру компонентов.
3. кидаешь на форму и юзаешь.

По верхней: Книги читаю много. + Учил историю.

По компоненту: Надо же. Уже даже компонент поиска файлов есть. Смотрите не разленитесь, с такими средствами.

[min@y™]

Надо же. Уже даже компонент поиска файлов есть. Смотрите не разленитесь, с такими средствами.

Причём тут лень? Чо б время не сэкономить? Жизнь-то одна.

[JUDAS]

Минай, судя по тому что у ватора темы нет в секции uses юнитов в преффиксами Vcl. она работает в "блокноте" для программирования (Делфи 7), а не в профессиональном расширенном приложении ХЭ8.
Stilet

EncodeDate(2015,09,16);

от этой функции я отказался по простой причине, если в неёё всунуть 13 месяц или 32 число она тупо выдаёт ексепшэн.
Лучше уже d:= StrToDateTimeDef(formatfloat('00',1 6)+':'+formatfloat('00',09)+':'+for matfloat('0000',2015),Now());

[min@y™]

Минай, судя по тому что у ватора темы нет в секции uses юнитов в преффиксами Vcl. она работает в "блокноте" для программирования (Делфи 7), а не в профессиональном расширенном приложении ХЭ8.

И чо?