Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.04.2023, 10:48
Die_Hardman Die_Hardman вне форума
Прохожий
 
Регистрация: 03.04.2023
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Delphi 7

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


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

Построение диаграммы по назначениям, указанным построчно в редакторе
Ответить с цитированием
  #2  
Старый 04.04.2023, 03:26
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,063
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от 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.
Вложения
Тип файла: zip Demo.zip (4.0 Кбайт, 2 просмотров)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:31.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter