| Charlotte |
12.03.2015 22:42 |
Рефакторинг программного кода
добрый вечер, уважаемые программисты. помогите, пожалуйста. выполнить задания.
задание:
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.
2)Отобразить окно списка рефакторинга "Refactorings".
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);?
заранее огромное спасибо. |
