Советы по Delphi


         

в Delphi. Полностью привожу письмо


Pascal

Великолепно! Теперь данный алгоритм портирован и в Delphi. Полностью привожу письмо и код модуля , приславшего мне решение этой головоломки:

Аглоритм (уравнение) для определения восхода/захода солнца и луны (Pascal).

Написал я в Делфи. Проект: sunproject.dpr, main.dfm, main.pas. Создайте пустой проект и скопируйте тексты main.dfm, main.pas в соответствующие окошки. Ну сами наверно все знаете, на всякий случай напоминаю.

Александр Ермолаев, swift@glazov.udm.net

sunproject.dpr
program sunproject;

uses
Forms,main in 'main.pas' {Sun};
{$R *.RES}

begin
Application.Initialize;Application.Title := 'Sun';Application.CreateForm(TSun, Sun);Application.Run;end.
main.dfm
object Sun: TSun
Left = 210Top = 106BorderIcons = [biSystemMenu, biMinimize]BorderStyle = bsSingleCaption = 'Sun'ClientHeight = 257ClientWidth = 299Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'MS Sans Serif'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnCreate = CreateFormPixelsPerInch = 96TextHeight = 13object GroupBoxInput: TGroupBoxLeft = 4Top = 4Width = 173Height = 93Caption = ' Ввод 'TabOrder = 0object LabelLongitude: TLabelLeft = 35Top = 44Width = 78Height = 13Alignment = taRightJustifyCaption = 'Долгота (град):'endobject LabelTimeZone: TLabelLeft = 13Top = 68Width = 100Height = 13Alignment = taRightJustifyCaption = 'Часовая зона (час):'endobject LabelAtitude: TLabelLeft = 40Top = 20Width = 73Height = 13Alignment = taRightJustifyCaption = 'Широта (град):'endobject EditB5: TEditTag = 1Left = 120Top = 16Width = 37Height = 21TabOrder = 0Text = '0'endobject EditL5: TEditTag = 2Left = 120Top = 40Width = 37Height = 21TabOrder = 1Text = '0'endobject EditH: TEditTag = 3Left = 120Top = 64Width = 37Height = 21TabOrder = 2Text = '0'endendobject GroupBoxCalendar: TGroupBoxLeft = 184Top = 4Width = 109Height = 93Caption = ' Календарь 'TabOrder = 1object LabelD: TLabelLeft = 19Top = 20Width = 30Height = 13Alignment = taRightJustifyCaption = 'День:'endobject LabelM: TLabelLeft = 13Top = 44Width = 36Height = 13Alignment = taRightJustifyCaption = 'Месяц:'endobject LabelY: TLabelLeft = 28Top = 68Width = 21Height = 13Alignment = taRightJustifyCaption = 'Год:'endobject EditD: TEditTag = 1Left = 56Top = 16Width = 37Height = 21TabOrder = 0Text = '0'endobject EditM: TEditTag = 2Left = 56Top = 40Width = 37Height = 21TabOrder = 1Text = '0'endobject EditY: TEditTag = 3Left = 56Top = 64Width = 37Height = 21TabOrder = 2Text = '0'endendobject ButtonCalc: TButtonLeft = 12Top = 227Width = 169Height = 25Caption = '&Вычислить'TabOrder = 2OnClick = ButtonCalcClickendobject ListBox: TListBoxLeft = 4Top = 104Width = 289Height = 117ItemHeight = 13TabOrder = 3endobject ButtonClear: TButtonLeft = 192Top = 227Width = 91Height = 25Caption = '&Очистить'TabOrder = 4OnClick = ButtonClearClickendend
<

Содержание  Назад  Вперед