Проверка на праздничные дни....

[EugeneIsmatulin]

Есть расписание на нем даты в Lablel их всего 6
15.06.2009
16.06.2009
....
20.06.2009
есть также фаил txt в нем забиты праздничные дни к примеру 16.06.2009 кам можно сделать проверку чтобы если в фаиле txt встречается праздничный день то Lablel становиться неактивной.

[Neeter]

Вот функция:

function CheckHoliday(Lb: TLabel; Path: string): boolean;
var
 Holidays: TextFile;
 hdate: string;
begin
 Result := false;

 AssignFile(Holidays, Path);
 try
  Reset(Holidays);
  Readln(Holidays, hdate);
  if Pos(hdate, Lb.Caption) <> 0 then
   Result := true;
 finally
  CloseFile(Holidays);
 end;
end;

Вот пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckHoliday(Label1, 'D:\dates.txt') then Label1.Enabled := false
 else Label1.Enabled := true;
end;

[EugeneIsmatulin]

она работает если у меня в файле txt одна дата а у меня их несколько

[SERG1980]

function Holiday(dat,BDPath:string):boolean;
 var sl:TStringlist;
 begin
  result:=false;
  sl:=TStringList.Create;
  try
   sl.LoadFromFile(BDPath);
  except
   messagebox(0,'Ошибка открытия файла','Ошибка',MB_ICONERROR+MB_OK+MB_SYSTEMMODAL);
   exit;
  end;
  result:=sl.IndexOf(dat)<>-1;
  sl.free;
end;


label1.enable:=Holiday(Label1.Caption,'d:\1.txt')

[EugeneIsmatulin]

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.enable:= Holiday(Label1.Caption,'d:\1.txt');
end;

пишет [Error] Unit1.pas(43): Undeclared identifier: 'enable'

[SERG1980]

label1.Enabled
label1.Enabled:= not HoliDay(Label1.Caption,'d:\1.txt')

[Neeter]

Да, точно, забыл поставить цикл, могли бы и сами внятней посмотреть, что я написал и исправить:

function CheckHoliday(Lb: TLabel; Path: string): boolean;
var
 Holidays: TextFile;
 hdate: string;
begin
 Result := false;

 AssignFile(Holidays, Path);
 try
  Reset(Holidays);
  While not EOF(Holidays) do
  begin
   Readln(Holidays, hdate);
   if Pos(hdate, Lb.Caption) <> 0 then
   begin
    Result := true;
    Break;
   end;
  end;
 finally
  CloseFile(Holidays);
 end;
end;

[EugeneIsmatulin]

Спасибо все работает