|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.03.2015, 22:42 | #1 (permalink) |
Member
Регистрация: 20.04.2014
Сообщений: 63
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Рефакторинг программного кода
задание: 1) создать небольшое приложение, в котором "забыть" присвоить кнопке название и оставит его за умолчанием -Button1, потом написать обработчик события onClick для этой кнопке, а также в нескольких местах программы использовать переменную Button1. Код:
unit Unit117; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,xml.xmldom,Xml.XMLIntf,Xml.XMLDoc; type TForm117 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } XML:TXMLDocument; public { Public declarations } end; var Form117: TForm117; implementation {$R *.dfm} procedure TForm117.Button1Click(Sender: TObject); begin Memo1.Lines.add('натиснути кнопку Button1'); end; procedure TForm117.Button2Click(Sender: TObject); begin Memo1.lines.Add('натиснути кнопку Button2') ; Memo1.lines.Add('Привласнити Button1 нове значення Caption ="кнопка"'); Button1.Caption:='кнопка'; end; procedure TForm1.btnOpenFleClick(Sender:TObject); var NodesCount,I:integer; dt:strng; begin if dlgOpenFile.Execute then begin Xml:=TXMLDocument.create(nil); try Xml.LoadFromFle(dlgOpenFile.FileName); if not Xml.IsEmptyDoc then for I:=0 TO Xml.DocumentElement.ChildNodes.Count - 1 do begin dt:=Xml.DocumentElement.ChildNodes[I].ChildNodes['datetime'].Text; Memo1.Lines.Add(dt); end; finally Xml.free; end; end; end; end. 3)выполнить операцию рефакторинга "Rename" изменить имя "Button1" на новое - "btnSimple". 4)переместить все рядки вывод текстовой информации у секцию resourcestring (Extrract Resource String) c приставкой "Str". 5)Создать новый метод для работы с Xml-документом командой "Extract Method". 6)Выбрать в любом месте кода название метода ParseXML и выполнить команду "Change Params...". 7)Применить все операции рефакторинга и просмотреть изменения программного кода. как сделать процедуру procedure TForm1.btnOpenFleClick(Sender:TObje ct);? заранее огромное спасибо. |
12.03.2015, 22:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме часто создаются аналогичные темы, вот аналоги вашей Нужна помощь в дописании кода Спроектировать преобразователь кода Расчет показателей качества программного обеспечения Доработка програмного кода |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|