オブジェクト思考の痛みのない予防接種

または、LazarusおよびFreePascalのOOPの基本原則について可能な限りシンプルに

パートI

OOP（オブジェクト指向プログラミング）を2つの方法で学習できます：クラスの構造と継承の原則に関する裸の理論、多態性、カプセル化を与える100冊の本を読んでください。たとえば、既製のコードを処理したが、ゼロから何かをシンプルだが美しいものにした。

Pascal、delphi、およびlazarusに捧げられたすべての本（私は後者について2つも発見しました）で、非常によく似た部分がOOPに捧げられています。 これらの本から、時代遅れの構造的アプローチがどれほどクールなOOPであるかについて多くを学ぶことができますが、これを実践するのに十分なスキルを得ることができません。 もちろん、ビジュアルアプリケーションのすべてのコンポーネントと構造要素はオブジェクトであるため、ビジュアルIDEを使用するプログラマーは既にデフォルトでOOPを使用していますが、独自の構造と抽象化をOOPパラダイムに転送することは非常に困難です。 すべての魅力を理解し、新しい展望を評価するために、私は小さなアプリケーションを作成することにしました。 同時に、三角法の存在を思い出しました。



アプリケーションは、サイズ、色、花びらの数など、さまざまな特性を持つ50個の極バラをランダムな場所に画面に描画します。 その後、それらをこすり、新しいものを描くなど。 もちろん、構造プログラミングの原理を使用して、50のボリュームを持つ通常の多次元配列を作成し、その中にすべての固有の特性を格納できます。 ただし、pascalはデータの厳密な型指定を意味するため、配列は異なる型の要素で構成できないことに注意してください。 レコードの配列（レコード）を作成できますが、記録からクラスまで、ささいなことは何ですか-1ステップ。 ここで行います。

OOPの重要な原則はカプセル化です。 これは、クラスが自身の内部でその作業のすべてのロジックを隠さなければならないことを意味します。 クラス（TPetalと呼びます）には、一意の特性（中心座標、サイズ、ポーラーローズ方程式の係数、色）、および作業方法を定義するさまざまな種類のデータを持つフィールドがあります。 プログラムの他の要素はすべて、これらのメソッドを呼び出すだけで、実装の詳細を詳しく調べる必要はありません。 クラスは自分自身を描いて消去することができるはずです。 まず、十分な：

{ TPetal } TPetal = class private R, phi: double; X, Y, CX, CY: integer; Scale, RColor, PetalI: integer; public constructor Create (Xmax, Ymax: integer); procedure Draw (Canvas: TCanvas; Erase: boolean = FALSE); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

クラスコンストラクターには2つのパラメーターがあります。これらは描画が行われるキャンバスの境界線です。 コンストラクターの実装は次のとおりです。

 constructor TPetal.Create(Xmax, Ymax: integer); begin inherited Create; CX:=Random(Xmax); CY:=Random(Ymax); RColor:=1+Random($FFFFFF); Scale:=2+Random(12); PetalI:=2+Random(6); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

Delphi / Lazarusのすべての人工クラスは、TObjectクラスの直接または間接の子孫です。そのクラスのオブジェクトを作成する場合、オブジェクトが正しく作成され、コンピューターメモリが割り当てられるように、親のコンストラクターを呼び出す必要があります。 したがって、コンストラクターの開始時に、親のコンストラクターを呼び出します。 その後、ポーラーローズのユニークな特性をランダムに生成します。中心の座標、色、スケール係数、および花びらの数を決定する係数です。

次は描画方法です。 ご覧のとおり、オブジェクトを描画または消去するために、2番目のパラメーターがあり、デフォルトでは値がFALSEである唯一のメソッドを記述しました。 これは、描画と削除が同じ操作であり、オブジェクトのみがランダムな色で描画され、黒で消去されるためです。 2番目のパラメーターを使用せずにプログラムからメソッドが呼び出されると、オブジェクトが描画され、Eraseパラメーターを使用すると、オブジェクトが消去されます。

 procedure TPetal.Draw(Canvas: TCanvas; Erase: boolean); begin phi:=0; if Erase then RColor:=clBlack; with Canvas do while phi < 2*pi do begin R:=10*sin(PetalI*phi); X:=CX+Trunc(Scale*R*cos(phi)); Y:=CY-Trunc(Scale*R*sin(phi)); Pixels[X,Y]:=RColor; phi+=pi/1800; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

花びらを描くために、極座標系で極バラ関数が使用されます ：

ここで、ρは半径座標を決定し、φは角度座標を決定します。 αは、花びらの長さを決定する係数です。 私たちの式では、バラが小さくなりすぎないように、係数はすぐに10に等しくなります。 360度（whileループ）をすべてキャプチャするために、角度座標は0から2πまでの範囲です。 そして、放射状座標を取得した後、デカルト：xとyを計算して、この点をキャンバスに描画します（現代のコンピューターが計算を実行する速度をもう一度驚かせます：メソッド内では、三角関数計算の長いサイクルがあります。 Zx-スペクトル）。 式（プログラム内のPetalI）の係数kは、花びらの数を決定します。 これまでのところ、簡単にするために、整数のみを使用しているため、すべてのバラは、オーバーラップしない花弁を持つハイトロコイドです。

したがって、クラスは実装されており、必要なスキルをすべて備えています。 使用する時間です。 アプリケーションのメインモジュールでは、まず、TPetalクラスの50個のオブジェクトの配列を宣言する必要があります。次に、フォームにImageとTimerをスローし、フォーム全体（クライアント）にイメージをストレッチし、タイマーに100ミリ秒の応答時間を設定します。 タイマーメソッドは次のようになります。

 var Form1: TForm1; Marg: boolean; Petals: array [0..49] of TPetal; CurPetal: smallint; //----------------------------------------------------------------------------------- procedure TForm1.Timer1Timer(Sender: TObject); begin if not Marg then begin Petals[CurPetal]:=TPetal.Create(img.Width,img.Height); Petals[CurPetal].Draw(img.Canvas); CurPetal+=1; if CurPetal=50 then Marg:=TRUE; end else begin Petals[50-CurPetal].Draw(img.Canvas,TRUE); Petals[50-CurPetal].Free; CurPetal-=1; if CurPetal=0 then Marg:=FALSE; end; img.Canvas.TextOut(10,10,IntToStr(CurPetal)+' '); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ご覧のとおり、私はいくつかのグローバル変数を使用しました。CurPetal-オブジェクトカウンターは、0〜50の値を取ります。 Margはカウンターボーダーインジケーターですが、メソッドのロジックからすべてが非常に明確でなければなりません。

構造プログラミングのパラダイムを使用した場合、タイマーハンドラー内で、一意のバラのすべての特性を個別に初期化し、それを描画してから消去する必要があります。 この方法は成長し、明らかではなかったでしょう。 しかし、今ではすべてを単独で行うクラスがあります-クラスコンストラクターはすぐにすべての特性を初期化し、DrawPetalクラスメソッドはすべての計算およびレンダリングロジックをカプセル化し、Canvasプロパティを持つ必要なオブジェクトへのポインターを取得します（これは任意のフォームです、およびほぼすべてのコンポーネント）。 結果は、このような素晴らしいスクリーンセーバーです。

OOPの次の原則-継承を探求して、後でTetallappingPetalなどのTPetalクラスから子孫を作成できます。この場合、ポーラーローズには花びらが重なります。 先祖クラスでこれを（ユニバーサル化するために）行うには、PetalIフィールドのタイプを実数に変更し、関連するルールに従ってこのフィールドをランダムな小数で初期化できるように子のコンストラクターをリロードする必要があります。

プロジェクトファイルをbitbucketリポジトリに保存し、ステージごとに個別のブランチを作成しました。 上記の例はlesson1ブランチにあります。

パートII

今、私は私たちがやったことをすることを提案します。 したがって、花びらの数が3〜16のポーラーローズを描画できるTPetalクラスがあります。ただし、重なり合わない花びらで取得するすべてのオブジェクト。 一方、下のプレートを見ると、さらに多くの種類があることがわかります。 形状は、n / dに等しい係数によって決定されます。

TPetalクラスから子を生成します。

  { TPetal } TPetal = class protected R, phi, PetalI: double; X, Y, CX, CY: integer; Scale, RColor: integer; public constructor Create (Xmax, Ymax: integer); procedure Draw (Canvas: TCanvas; Erase: boolean = FALSE); overload; end; { TOverlappedPetal } TOverlappedPetal = class (TPetal) public constructor Create (Xmax, Ymax: integer); procedure Draw (Canvas: TCanvas; Erase: boolean = FALSE); overload; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

TOverlappedPetalクラスでは、祖先のコンストラクターとオーバーロードされたDrawPetalメソッドと一緒に動作する独自のコンストラクターを追加します（実際、最終的にはそれをまったく使用しませんが、現時点ではクラスの子孫でメソッドのオーバーロードを示す良い方法です）。 実装は次のとおりです。

 { TOverlappedPetal } constructor TOverlappedPetal.Create(Xmax, Ymax: integer); begin inherited Create (Xmax,Ymax); while PetalI=Round(PetalI) do PetalI:=(1+Random(6))/(1+Random(6)); end; procedure TOverlappedPetal.Draw(Canvas: TCanvas; Erase: boolean); begin phi:=0; if Erase then RColor:=clBlack; with Canvas do while phi < 12*pi do begin R:=10*sin(PetalI*phi); X:=CX+Trunc(Scale*R*cos(phi)); Y:=CY-Trunc(Scale*R*sin(phi)); Pixels[X,Y]:=RColor; phi+=pi/1800; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

TOverlappedPetalクラスのコンストラクターは継承されたメソッドを使用しますが、PetalIフィールドの値を変更し、バラの形に影響する係数を設定することがわかります。 フィールドを計算するとき、TPetalの先祖がすでに持っていたフォームを複製しないように整数を除外します。

この例のファイルは、リポジトリのlesson2ブランチにあります。

さて、よく見ると、OOを考えているプログラマーであっても、祖先と子孫のDrawPetalメソッドの実装はほぼ同じであり、これがbutthurtと呼ばれる程度が最初であるため、OOプログラマーであるにもかかわらず、まだ労働力のプログラマーが不足していることが明らかになりますリファクタリングの第一人者-繰り返し猫のコード。

実装の違いは、係数に数π（2または12）を掛けたもののみです。 この係数を祖先TPetalの別のフィールド（フィールドK）に取り込み、DrawPetalメソッドの不要なオーバーロードを今すぐ削除して、クラスの次の構造を取得します。

  { TPetal } TPetal = class protected R, phi, PetalI: double; X, Y, K, CX, CY: integer; Scale, RColor: integer; public constructor Create (Xmax, Ymax: integer); procedure Draw (Canvas: TCanvas; Erase: boolean = FALSE); end; { TOverlappedPetal } TOverlappedPetal = class (TPetal) public constructor Create (Xmax, Ymax: integer); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

TOverlappedPetalの子孫は、コンストラクターのみがTPetalの祖先と異なりますが、オブジェクト指向プログラミングのすべての原則を明確かつ完全に実証しました。



- カプセル化 （クラスのすべての作業はそれ自体の内部にあり、クラスとの外部通信はメソッドのカップルと必要な最小限のパラメーターの転送のみです）;

- 継承 （重複しない花びらを持つバラのクラスから重複する花びらを持つバラのクラスを出産しました）;

-最小限、 ポリモーフィズム （メソッドのオーバーロードを示しました-1つの名前ですが、実装は異なりますが、ポリモーフィズムの真の力を後で示すつもりです）。

結果としてのクラスの実装は次のとおりです。

 constructor TOverlappedPetal.Create(Xmax, Ymax: integer); begin inherited Create (Xmax,Ymax); K:=12; while PetalI=Round(PetalI) do PetalI:=(1+Random(6))/(1+Random(6)); end; { TPetal } constructor TPetal.Create(Xmax, Ymax: integer); begin inherited Create; CX:=Random(Xmax); CY:=Random(Ymax); K:=2; RColor:=1+Random($FFFFF0); Scale:=2+Random(12); PetalI:=2+Random(6); end; procedure TPetal.Draw(Canvas: TCanvas; Erase: boolean); begin phi:=0; if Erase then RColor:=clBlack; with Canvas do while phi < K*pi do begin R:=10*sin(PetalI*phi); X:=CX+Trunc(Scale*R*cos(phi)); Y:=CY-Trunc(Scale*R*sin(phi)); Pixels[X,Y]:=RColor; phi+=pi/1800; end; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

次のように新しい構成を使用しました：TOverlappedPatelクラスの50個のオブジェクトの2番目の配列でプログラムを補足し、166ミリ秒のトリガー期間で2番目のタイマーをスローし、最初のタイマーと同じハンドラーのコードを記述しました。 タイマー間の遅延により、視覚的にスクリーンセーバーは少しうまく動作し始めました：

プログラムを改善するにはどうすればよいですか？ 3番目のOOPクジラ-ポリモーフィズムの助けを借りて。 現在、私たちのプログラムは二重の仕事をしており、プロセッサはその後汗を流し、三角関数計算を継続的に実行しています（おそらく、そのような人です）。 オブジェクトの単一の配列を作成することはできますが、クラスは異なりますか？ これは次のパートになり、上記の例のコードはlesson2-1ブランチにあります。

パートIII

通常、pascal、delphi、およびlazarusの本は、コードリストを数えずに（せいぜい数ページではなく、これらのリストの理解は数ページのテキストから得られないため）数ページのポリモーフィズムについて説明します。 また、パスカルの本は伝統的に学生向けに書かれているため、すべての例は出版物から別の出版物をさまようものであり、抽象的なクラスManとその2人の相続人、StudentとTeacherの説明に関連付けられています。 私はどちらでもないので、これらの本から多型の知識を引き出すことはできませんでした。 ポリモーフィズムの本質を理解するために生徒と教師のクラスを実践することができたのに、私は思いつかなかったので、入力することですべてをもう一度理解する必要がありました。



これらすべての本の非常に重大な欠点は、ポリモーフィズムの章では、主な質問は「なぜ」ですが、それに対する答えはポリモーフィズムの本質全体の99％を吸収するため、「どうして」ということです。 そのような答えは、エンバカデロブログ（現在の所有者デルファイの名前）のVsevolod Leonovによる素晴らしい記事で見つかりました。 そして、一般的に言えば、多型は、たとえば次のように提示されます。基本的な抽象猫クラスがあり、そこから多数の相続人が生成されます-Kotik、Leopardik、Tigra、Lyovaなど。 それらはすべて同様のプロパティを持っていますが、それらの存在方法は異なります。 たとえば、ニャーメソッドは猫とトラでは異なります。 猫のベースプレイ「プレイ」メソッドは、「足をこすり」実装のメソッドとオーバーラップしますが、左の場合は「手を握る」実装によってブロックされます。 ただし、特定の猫はすべてネコ科のオブジェクトであり、経験のない子は、違いを認識せずに、すべての猫に対して「再生」メソッドを永続的に呼び出します。



ポーラローズの奇妙な円を描く練習に戻りましょう。 異なるクラスの50個のオブジェクトの2つの配列と、ほぼ同じハンドラーを持つ異なる応答期間を持つ2つのタイマーを同時に作成することにより、プログラムの作業を複雑にしているという事実に立ち止まりました。

 procedure TForm1.Timer1Timer(Sender: TObject); begin if not Marg then begin Petals[CurPetal]:=TPetal.Create(img.Width,img.Height); Petals[CurPetal].Draw(img.Canvas); CurPetal+=1; if CurPetal=50 then Marg:=TRUE; end else begin Petals[50-CurPetal].Draw(img.Canvas,TRUE); Petals[50-CurPetal].Free; CurPetal-=1; if CurPetal=0 then Marg:=FALSE; end; img.Canvas.TextOut(10,10,IntToStr(CurPetal)+' '); end; procedure TForm1.Timer2Timer(Sender: TObject); begin if not MargO then begin OPetals[CurOPetal]:=TOverlappedPetal.Create(img.Width,img.Height); OPetals[CurOPetal].Draw(img.Canvas); CurOPetal+=1; if CurOPetal=50 then MargO:=TRUE; end else begin OPetals[50-CurOPetal].Draw(img.Canvas,TRUE); OPetals[50-CurOPetal].Free; CurOPetal-=1; if CurOPetal=0 then MargO:=FALSE; end; img.Canvas.TextOut(50,10,IntToStr(CurOPetal)+' '); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

労働者のエンコーダーが、そのようなコードを「控えめに」書いた手を飲み込んでしまうことを認めなければなりません。 本物のプログラマーに進化することを決めたので、反復コードを取り除き、プログラムを簡単にするという問題を解決します。

これで、TPetalとその子孫のTOverlappedPetalの2つのクラスができました。 ただし、これは少し間違っているため、状況を修正します。 花弁が重なるポーラーローズと重ならない花びらを持つポーラーローズは、クラス理論の観点から同等であるため、同じレベルのクラスである必要があります。 より高いレベルの抽象化に向かって、ポーラーローズの基本クラスを導入する必要があることを理解していますが、そこから上記の2つをすでに生成する必要があります。 前の2つのクラスにあったすべての類似点は、ベースに転送されるため、2つの子孫は最も必要なもののみが異なります。

  { TCustomPetal } TCustomPetal = class protected R, phi, PetalI: double; X, Y, K, CX, CY: integer; Scale, RColor: integer; public constructor Create (Xmax, Ymax: integer); virtual; procedure Draw (Canvas: TCanvas; Erase: boolean = FALSE); end; { TPetal } TPetal = class (TCustomPetal) public constructor Create (Xmax, Ymax: integer); override; end; { TOverlappedPetal } TOverlappedPetal = class (TCustomPetal) public constructor Create (Xmax, Ymax: integer); override; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ポリモーフィズムは、基本クラスのコンストラクターが子孫の実装でオーバーラップするという事実で表現されます（オブジェクトパスカルの古代バージョンではクラスコンストラクターをオーバーラップすることは不可能だったという世界中の伝説がありますが、私は信じていません）。 この手法は、予約済みの仮想 ディレクティブおよびオーバーライドディレクティブを使用して実装されます 。 基本クラスvirtualのcreateメソッドを宣言することにより、コンストラクターの実装が（必ずしもそうではないが）子孫で重複する可能性があることを明確にします。 抽象ディレクティブの仮想ディレクティブに（この場合はかなり可能ですが、これはコードを複雑にします）を追加した場合、基本クラスにはコンストラクター実装がないことを意味しますが、子孫にはそのような実装が必要です。 実装には子孫に共通の機能があるため、基本クラスのコンストラクターを抽象化しません。

 constructor TCustomPetal.Create(Xmax, Ymax: integer); begin inherited Create; CX:=Random(Xmax); CY:=Random(Ymax); RColor:=1+Random($FFFFF0); Scale:=2+Random(12); end; constructor TOverlappedPetal.Create(Xmax, Ymax: integer); begin inherited Create (Xmax,Ymax); K:=12; while PetalI=Round(PetalI) do PetalI:=(1+Random(6))/(1+Random(6)); end; constructor TPetal.Create(Xmax, Ymax: integer); begin inherited Create (Xmax,Ymax); K:=2; PetalI:=1+Random(8); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

そのため、基本クラスのコンストラクターは、子孫に共通のフィールド（中心座標、色、スケール）を初期化します。 しかし、子孫の設計者は最初に基本クラスのコンストラクターを呼び出し、次に残りのフィールドの異なる初期化を実行します-角度座標の係数とポーラーローズの形状を決定する係数。

次に、メインプログラムコードがどのように簡略化されているかを見てください。 異なるクラスの50個のオブジェクトを持つ2つの配列の代わりに、TCustomPetalクラスのオブジェクトを持つ1つの配列を宣言し、タイマーのイベントハンドラーを次のように書き換えます。

 procedure TForm1.Timer1Timer(Sender: TObject); begin if not Marg then begin if Random(2)=1 then Petals[CurPetal]:=TPetal.Create(img.Width,img.Height) else Petals[CurPetal]:=TOverlappedPetal.Create(img.Width,img.Height); Petals[CurPetal].Draw(img.Canvas); CurPetal+=1; if CurPetal=50 then Marg:=TRUE; end else begin Petals[50-CurPetal].Draw(img.Canvas,TRUE); Petals[50-CurPetal].Free; CurPetal-=1; if CurPetal=0 then Marg:=FALSE; end; img.Canvas.TextOut(10,10,IntToStr(CurPetal)+' '); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

動作ロジック：0から3までの乱数が取得され、1の場合、子クラスTPetalのコンストラクターがCustomPetal配列から次のオブジェクトに対して呼び出されます。そうでない場合、子孫クラスTOverlappedPetalのコンストラクターが呼び出されます。 これは、ポリモーフィズムが現れる場所です。同じタイプのTCustomPetalのオブジェクトの配列があるにもかかわらず、実際には、オブジェクトは子孫タイプで作成されます。 それらは同じフィールドを持っているので、同じ方法-それらでの作業はプログラムにとって違いはありません。 同じDrawPetalメソッドを呼び出しますが、オブジェクトのタイプによって動作が異なります。 プログラムコードが大幅に簡素化され、視覚的になりました（それでもOOPパラダイムを味わった人にとって）。

変更された新しい例は、 lersson3ブランチにあります。

他にどのように作業を改善できますか？ 私の好みとしては、50本のバラが連続して描かれたり上書きされたりせず、これが連続的に発生するオプションがより魅力的です。 これを行うには、タイマーハンドラーをわずかに変更する必要があります。これは、OOPに関連付けられなくなりましたが、脳を動かすことができます。

 procedure TForm1.Timer1Timer(Sender: TObject); begin if Assigned (Petals[CurPetal]) then begin Petals[CurPetal].Draw(img.Canvas,TRUE); Petals[CurPetal].Free; end; if Random(2)=1 then Petals[CurPetal]:=TPetal.Create(img.Width,img.Height) else Petals[CurPetal]:=TOverlappedPetal.Create(img.Width,img.Height); Petals[CurPetal].Draw(img.Canvas); CurPetal+=1; if CurPetal=PetalC then CurPetal:=0; img.Canvas.TextOut(10,10,IntToStr(CurPetal)+' '); end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

プログラムをさらに改善するために、バラの配列を動的にし（Petals：TCustomPetalの配列）、フォームを作成するときのイベントハンドラーで、サイズを設定します-画面上の50個のバラが薄すぎるように見えるため、70に増やしました。 タイマーハンドラーのロジックが変更され、同時に簡略化されました。CurPetalは、配列内の現在のローズ数へのポインターであり、0から70まで無限に実行されます（動的配列は常にゼロから番号付けを開始するため）。 最初に、CurPetal番号を持つrose配列の要素が以前に作成されたかどうかが確認され、作成されている場合は上書きされて破棄されます。 次に、ランダムな方法で、同じ番号を持つ同じ要素が作成されます。 配列番号へのポインターがインクリメントされ、配列の境界よりも大きくなるとリセットされます（この場合、配列の最後の既存の要素は要素番号69になります。 スクリーンセーバーの最終ビュー（わかりやすくするために上部-カウンター）：

最終プロジェクトはlesson3-1ブランチにあります。

最新バージョンでは、動作中に使用されるコンピューターメモリの量は小さなMBで7に削減されましたが、最初はアプリケーションが30 MBで非常に楽しかったです。 OOPを使用して、コードリファクタリングと数学の知識により、美しく効率的なコードを作成できます。常にこれを覚えておいてください。

PSアップデート

実際のコメントに関連して、私は不正確さとグリッチを修正し、ドラフトマンの作業をTPetalsクラス（別のバージョンではTQPEtals）に転送しました。TPetalsクラスはオブジェクトのリスト（TObjectList）またはオブジェクトのキュー（TObjectQueue）を使用してプロセス全体を「操縦」します。 タイマーメソッドは簡潔になりました。

 procedure TForm1.Timer1Timer(Sender: TObject); begin P.DrawNext; end;
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

また、Drawメソッドでは、バラが消去されるとチェックがオンになります-他のバラが黒い点で「損なわれる」かどうか。 最新のプロジェクトコードはlesson4-1（リスト）およびlesson 4-2（キュー） ブランチにあります。