DataTypes.pas

unit DataTypes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

Type

//Ãðàôè÷åñêîå äåðåâî
     TItemGT= String;
     TGTree= ^TNodeGT;

     TSENPos=record
       Start, Ending, Now: real;
     end;
     TNodeGT=record
       Edit: TEdit;
       Rect: TRect;
       Next: Array of TGTree;
       Parent: TGTree;
       Pos:record
         left,Top:TSENPos
       end
     end;

     TMassCount= Array of integer;

//Ñòåê
  TItemS = record
    value: String; // òèï èíôîðìàöèîííîå ïîëå  //Ýëåìåíò Ñòåêà - ñòðîêà, â êîòîðîé çíà÷åíèÿ óçëîâ äåðåâà
  end;

  TStack =^ TNodeS; // ññûëêà íà óçåë
  TNodeS = record
    Data: TItemS;  // èíôîðìàöèîííîå ïîëå
    Next: TStack;  // ññûëêà íà ñëåäóþùèé óçåë
  end;

//Î÷åðåäü
  TItemQ = TGTree;  // òèï èíôîðìàöèîííîãî ïîëÿ


  TQueue =^TNodeQ;  // ññûëêà íà óçåë
  // îïèñàíèå óçëà
  TNodeQ = record
    Data: TItemQ;  // èíôîðìàöèîííîå ïîëå      //Ýëåìåíò î÷åðåäè - Ãðàô Äåðåâî
    Next: TQueue;  // ññûëêà íà ñëåäóþùèé óçåë
  end;

  // ññûëêà íà î÷åðåäü
  TPointerQueue = record
    Head: TQueue;  // óêàçàòåëü íà ãîëîâó î÷åðåäè
    Tail: TQueue;  // óêàçàòåëü íà õâîñò î÷åðåäè
  end;

  TInfoRecord=record
    Quantity, Depth: integer;
    Min, Max: TGTree;
  end;

  TMass= array of word;
var SelectNode: TGTree;
    ColorSNode, BackGroundColor: TColor;
    MIn, MCol : TMassCount;
    GrafFlag, rgDWFlag: Boolean;
    QueueForArrow : TPointerQueue;
    InfoRecord: TInfoRecord;
    Index, kMaxSpeed: integer;
    strOrder: string;
implementation

end.