rejetto forum

Software => &RQ => Russian => Topic started by: Krendel on March 10, 2004, 08:21:02 PM

Title: À ÿ ÿè÷êî âûöåïèë
Post by: Krendel on March 10, 2004, 08:21:02 PM

Çíà÷èòñÿ òàê çàõîäèì â ìåíþ "Î ïðîãðàììå" è æìåì êíîïêó "2" 17 ðàç, à çàòåì îäèí ðàç "5". Âûëåçåò ÿè÷êî 8O . Åñëè ÷òî-òî íå òî íàæàëè - íàæèìàéòå "esc" è îïÿòü ïî íîâîé. Àëãîðèòì òàêîé - ñóììà íàæèìàåìûõ ñêàíêîäîâ äîëæíà äàòü 903, esc ñáðàñûâàåò ñ÷åò÷èê.
Âçÿë èç èñõîäíèêà.

procedure TaboutFrm.FormKeyPress(Sender: TObject; var Key: Char);
var
  frm:TeasterFrm;
begin
if key=#27 then
  eggCounter:=0
else
  inc(eggCounter,ord(key));
if eggCounter=903 then
  begin
  frm:=TeasterFrm.create(NIL);
  frm.show;
  end;
end;

Title: À ÿ ÿè÷êî âûöåïèë
Post by: krendel on March 10, 2004, 08:33:09 PM

Íó âîò, íàïèñàë è íå ïðî÷åë ÷òî óæå äàâíî ÿè÷êî íàéäåíî, îáûäíî. À âîò õîòåëîñü áû çíàòü - òàì èñ÷î åñòü èëè íåò? È ÷òî çà ôðàçó àâòîð çàãàäàë  - èëè ïóñòü ïåðåäåëàåò òàê ÷òîáû òîëüêî íà íå¸ ñðàáàòûâàëî ÿè÷êî.
Åùå ðàç ïðîøó ïðîùåíèÿ çà ôóôåëüíûé òîïèê. :roll: