04.04.2023, 03:26
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,020
Версия 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.
|