Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.03.2015, 22:42   #1 (permalink)
Charlotte
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.
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);?


заранее огромное спасибо.
Charlotte вне форума   Ответить с цитированием

Старый 12.03.2015, 22:42
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме часто создаются аналогичные темы, вот аналоги вашей

Нужна помощь в дописании кода
Спроектировать преобразователь кода
Расчет показателей качества программного обеспечения
Доработка програмного кода

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:02.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.