DelFusa Blog 総本山

プログラミングの話題とかです。

NEW | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

制御変数前方宣言無しで値も書き換えられる新しいフォーーーーーウ構文の実装

では、FOOOOOOOOOOOOOOOOOOOOOOOOOR、構文の実装です。



          ,,,,,,,,∧,,∧                   
        @′ ミ;゚д゚彡                
        ,; と;,,;;;;;;U;;;;U;;彡;;,,,,             
     、,,;ミ;;          "''''彡'            
    、、ミ'' ,         ,,,  "ミミ    ゾヌーッ!!     
    ミ    ,             ミミ           
  、ミ゙゙   彡  ミ   ;;   ○   ○ミ          
  、ミ    彡  ミ            ミミ          
  ミ  ,,  彡;;;;;;;; ミ        ,____▼ミ_,,..、;;:~-:''"゙⌒゙   
  ミ                 //W∨w∨::::::::゙:゙     
  ''';ミ              (M∧M∧ミ::::::::゙:゙        
  ''''ミ               ̄ ̄ ̄ミ ``゙⌒`゙"''~-、:;;,_  
    ''''ミ             ;;;ミミ             ゙
      "〃;;;,,,,彡  ミ ミ,,ヾミミ                
         ;彡  ミ ミ
         彡(巛ミ》彡ミ》






フォーーーーーーーフォーーーーーーーフォーーーーーーー

type
 varEx = class
  class var I: Integer;
 end;

 forEX = class
 private
  class var Increment: Integer;
  class procedure SetI(const Value: Integer); static;
 public
  class property I: Integer write SetI;
 end;

 toEX = class
  class function I(Value: Integer; IncValue: Integer = 1): Boolean;
 end;

 down_toEX = class
  class function I(Value: Integer; IncValue: Integer = -1): Boolean;
 end;

class procedure forEX.SetI(const Value: Integer);
begin
 varEx.I := 0;
 Increment := Value;
end;

class function toEX.I(Value, IncValue: Integer): Boolean;
begin
 varEx.I := varEx.I + forEX.Increment;
 forEX.Increment := IncValue;
 Result := varEx.I <= value;
end;

class function down_toEX.I(Value, IncValue: Integer): Boolean;
begin
 varEx.I := varEx.I + forEX.Increment;
 forEX.Increment := IncValue;
 Result := value < varEx.I;
end;
フォーーーーーーーフォーーーーーーーフォーーーーーーー

よもや、こんな短いコードで、わけのわからない『フォーォーォーォーォーォー』が実装できるとは
誰もが、夢にも描かなかったでしょう。
(誰も描かないってば)

こっそり、この構文を混ぜておいたサンプルコードを人にさらしたり、海外の掲示板に貼り付けたりしたら・・・・

大ひんしゅくものでしょうね。

取り扱いにはくれぐれもお気を付けください。
Delphiでの黒魔法。滅びの呪文バルスみたいなものですから!






え?!
再帰関数や、別関数呼び出しに対応してないって?

これが?

え?!



        ∧,,∧ ガビーン
        ミ ,,゚Д゚彡
        ミ つ ミつ  なんですとー
        ミ ,,,⊃
        ,;;\);,,,,,,,,,,,,,,;;彡;;,,,,         
     、,,;ミ;;          "''''彡'           
    、、ミ'' ,         ,,,  "ミミ    

スポンサーサイト

| 未分類 | 02:38 | comments:0 | trackbacks(-) | TOP↑

COMMENT















非公開コメント

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。