Высокоуровневые методы информатики и программирования. Сивохин А.В - 89 стр.

      Meneger := ParamMeneger;
      with OrlovClassForm do
       MenegerEdit.Text := ParamMeneger;
     end;

     function TExtAuctionsClass.GetMeneger:String;
     begin
      Result := Meneger;
     end;

     Initialization
     end.//—3. Конец модуля определения типов.




     unit OrlovArrayUnit;// —4. Модуль для работы с массивами:

     interface

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

     type
      TOrlovArrayForm = class(TForm)
       InStringGrid: TStringGrid;
       InLabel: TLabel;
       MidLabel: TLabel;
       MidEdit: TEdit;
       OutLabel: TLabel;
       OutStringGrid: TStringGrid;
       CalcButton: TButton;
       ExitButton: TButton;
       ArrayRichEdit: TRichEdit;
       ArrayFontDialog: TFontDialog;
       Font: TButton;
       ClearOutButton: TButton;
       InitButton: TButton;
       ClearInButton: TButton;
       GraphicButton: TButton;
       Graphics: TChart;
       SortButton: TButton;
       Button1: TButton;
       InSeries: TLineSeries;
       OutSeries: TLineSeries;
66