[Die_Hardman]

Добр день! Помогите пожалуйста с разработкой приложения в Delphi 7.


Разработать приложение, использующее компоненты:
1. Главное меню: Файл (построить график, выход), Справка ( о программе)
2. Многострочный редактор Memo
3. Диаграмма Chart ( тип Pie). Назначение приложения

Построение диаграммы по назначениям, указанным построчно в редакторе

[lmikle]

Сообщение от Die_Hardman

Добр день! Помогите пожалуйста с разработкой приложения в Delphi 7.

Ну на...

На всякий случай вот исходник:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu: TMainMenu;
    miFile: TMenuItem;
    miHelp: TMenuItem;
    miHelpabout: TMenuItem;
    Pie: TMenuItem;
    miFileSeparator1: TMenuItem;
    miFileExit: TMenuItem;
    edData: TMemo;
    grData: TChart;
    Series1: TPieSeries;
    procedure PieClick(Sender: TObject);
    procedure miFileExitClick(Sender: TObject);
    procedure miHelpAboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PieClick(Sender: TObject);
var
  I : Integer;
  V : Integer;
const
  useColors : Array [0..7] Of TColor = (clBlue,clYellow,clGreen,clRed,clTeal,clFuchsia,clGray,clWhite);
begin
  Series1.Clear;
  For I := 0 To edData.Lines.Count-1 Do
    Begin
      If Pos(',',edData.Lines[i]) > 0 Then
        Begin
          If TryStrToInt(Trim(Copy(edData.Lines[i],1,Pos(',',edData.Lines[i])-1)),V) Then
            Series1.AddPie(V,Copy(edData.Lines[i],Pos(',',edData.Lines[i])+1,Length(edData.Lines[i])),useColors[I mod 8]);
        End
      Else
        Begin
          If TryStrToInt(Trim(edData.Lines[i]),V)
            Then Series1.AddPie(V,'',useColors[I mod 8]);
        End;

    End;
end;

procedure TForm1.miFileExitClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.miHelpAboutClick(Sender: TObject);
begin
  ShowMessage('О программе...'#13#10#13#10'Информация о программе');
end;

end.