C НАСТУПАЮЩИМ 8 МАРТА!!!

[Рустам]

С НАСТУПАЮЩИМ ПРАЗДНИКОМ, ДОРОГИЕ ЖЕНЩИНЫ! ЭТА ФУНКЦИЯ ДЛЯ ВАС!!!!

...
uses ..., MANS,...
...
function CongratulationOfWomanDay(DT: TDateTime): boolean;
var a,i: integer;
var WomanList: TList;
var MAN: TMAN;
begin
try
  MAN:=TMAN.Create();
    if DT<>StrToDate('08.03.2015') then CongratulationOfWomanDay:=False else begin
      WomanList:=TList.create();
      WomanList:=GetAllWomanNameList;
      for i:=0 to WomanList.count-1 do begin
        with WomanList do begin
          repeat
            a:=random(7)+3;
          until (a mod 2)>0;
  	      MAN.GiveFlowers(a,Items[i]);
  	      MAN.TellCompliment(ComplimentGenerate(a),Items[i]);
  	      MAN.SendPostCard(1,Items[i]);
        end;
      end;
      CongratulationOfWomanDay:=true;
    end;
    WomanList.Free;
  MAN.Free;
  except
    CongratulationOfWomanDay(Date);
  end;
end;

[ZuBy]

я конечно не женщина, но хотел проверить работоспособность...
увы и ах... плохо подготовились к подарку, нету функции которые используете

[Рустам]

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

я конечно не женщина, но хотел проверить работоспособность...
увы и ах... плохо подготовились к подарку, нету функции которые используете

А Какие функции конкретно вас интересуют? )
З.Ы. Немного подправил код...

[Toxa]

DT<>StrToDate('08.03.2015')

одноразовая функция, где же универсальность? :-)

[kta87]

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

где же универсальность? :-)

Да, да, да. Год явно нужно убирать. А еще нужно учесть корпоративы, которые как правило на 1-2 дня раньше проходят И еще:

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

MAN:=TMAN.Create();

наверное нужно заменить на

MAN:=TMAN.Create(True);

[zvygin1964]

http://www.youtube.com/watch?v=PnRCPDiPg_Q

[Pestsov]

Девушки с наступающим вас!

[Вадим Мошев]

Поздравляю всех женщин/девушек/девочек с восьмым марта. Я желаю чтобы вы всегда оставались такими хорошими, красивыми, добрыми и великолепными.



А вообще, честно говоря, ВСЕХ С ВОСЬМЫМ МАРТА. АБСОЛЮТНО ВСЕХ!

[Человек_Борща]

С праздником!

А вообще, честно говоря, ВСЕХ С ВОСЬМЫМ МАРТА. АБСОЛЮТНО ВСЕХ!

Тонко, очень тонко завязывай с травкой))

[type_Oleg]

Поздравляю наших чудесных барышень-программистов. Желаю чтоб, как у Ады Байрон... Чтоб и с Бэббиджем все было хорошо и с лордом Лавлейсом.