[melserega]

Есть рабочая программа, но мне нужна что бы при введение даты программа искала только файлы этой даты, а она ищет от заданной даты и до сегодня!!!

вот программа:

[melserega]

Код:

unit Unit1;
interface

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

type
  TForm1 = class(TForm)
    SG: TStringGrid;
    Button1: TButton;
    MonthCalendar1: TMonthCalendar;
    SG1: TStringGrid;
    SG2: TStringGrid;
    SG3: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FindRes:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var FindFile: TSearchRec;
FindRes:Integer;

begin

FindRes:=FindFirst('\\Test\ARX_2013\__TAX__\ALL\\*.*',faAnyFile,FindFile); //Параметры функции задают поиск на диске с: любых файлов
      While FindRes=0 do
   begin
      if ((FindFile.Attr and faDirectory)=faDirectory) and
      ((FindFile.Name='.')or(FindFile.Name='..')) then
         begin
            FindRes:=FindNext(FindFile);
            Continue;
         end;
      if FileDateToDateTime(FindFile.Time)< MonthCalendar1.Date then
         begin
            FindRes:=FindNext(FindFile);
            Continue;
         end;

     begin
         SG.Cells[1, 0]:='     Имя файла'; //Инициация заголовка таблицы
         SG.Cells[2, 0]:='     Размер файла'; //Инициация заголовка таблицы
         SG.Cells[3, 0]:='     Дата файла'; //Инициация заголовка таблицы
         SG.Cells[0, 1]:='   1.ALL'; //Найден первый файл
         SG.Cells[1, 1]:=FindFile.Name; //Записываем в таблицу имя найденного файла
         SG.Cells[2, 1]:=IntToStr(FindFile.Size); //Записываем в таблицу размер найденного файла
         SG.Cells[3, 1]:=IntToStr(FindFile.Time);
         SG.Visible:=True;   //Если первый файл найден, показываем таблицу
         if (FindFile.Attr and faDirectory)=FindFile.Attr  //Определяем, это каталог или нет
           then SG.Cells[1, 1]:=SG.Cells[1, 1]+' '; //Если найденный файл - каталог, помечаем его
while FindNext(FindFile)=0 do //Ищем другие файлы на диске, пока не произойдёт ошибка поиска
  begin
      SG.RowCount:=SG.RowCount+1;
    SG.Cells[0, SG.RowCount-1]:='   '+IntToStr(SG.RowCount-1)+'.ALL';
    SG.Cells[1, SG.RowCount-1]:=FindFile.Name;
    SG.Cells[2, SG.RowCount-1]:=IntToStr(FindFile.Size);
    SG.Cells[3, SG.RowCount-1]:=IntToStr(FindFile.Time);
    if (FindFile.Attr and faDirectory)=FindFile.Attr
      then SG.Cells[1, SG.RowCount-1]:=SG.Cells[1, SG.RowCount-1]+' ';
  end;
  end;


  FindRes:=FindFirst('\\Test\ARX_2013\__TAX__\FIZ\\*.*',faAnyFile,FindFile); //Параметры функции задают поиск на диске с: любых файлов
      While FindRes=0 do
   begin
      if ((FindFile.Attr and faDirectory)=faDirectory) and
      ((FindFile.Name='.')or(FindFile.Name='..')) then
         begin
            FindRes:=FindNext(FindFile);
            Continue;
         end;
      end;
 end;
 FindRes:=FindNext(FindFile);
 end;
 FindClose(FindFile);
 end;

 end.

Админ: Пользуемся тегами для оформления кода!

[melserega]

я думаю тут ошибка if FileDateToDateTime(FindFile.Time)< MonthCalendar1.Date then но немогу понять как её исправить

[lmikle]

Утащил откуда-то исходник, а разобраться не судьба? На '=' поменять не пробовал?

[melserega]

Ну да если б это была так просто!!!!!

[BBBCat]

Имхо надо <>. А писал видимо всё же сам, ибо столько наворочено!

[melserega]

тоже пробывал не помогло!!!!

[poli-smen]

Сообщение от melserega

я думаю тут ошибка if FileDateToDateTime(FindFile.Time)< MonthCalendar1.Date then но немогу понять как её исправить

Пробуй так:

Код:

if Int(FileDateToDateTime(FindFile.Time)) <> Int(MonthCalendar1.Date) then