из блокнота скинуть программу на Делфи 7 и запустить её

[программирование]

добрый день, уважаемые программисты! мне нужна очень ваша помощь. никакой программы писать не нужно, но и находить ошибки тоже не нужно.

мне нужно помочь запустить программу в Делфи 7. А конкретнее нужно скопировать текст программы из Word в блокнот, а потом из блокнота этот код скинуть в Делфи 7 (но не просто скопировать текст, а именно сделать это через блокнот). там ещё в названии программы в блокноте нужно расширение файла указывать.

вот код программы

PHP код:

DATEF.PAS
unit DateF;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Dates, StdCtrls;

type
  TDateForm = class(TForm)
    LabelDate: TLabel;
    BtnIncrease: TButton;
    BtnDecrease: TButton;
    BtnAdd10: TButton;
    BtnSubtract10: TButton;
    BtnLeap: TButton;
    BtnToday: TButton;
    procedure BtnIncreaseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnDecreaseClick(Sender: TObject);
    procedure BtnAdd10Click(Sender: TObject);
    procedure BtnSubtract10Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BtnLeapClick(Sender: TObject);
    procedure BtnTodayClick(Sender: TObject);
  private
    TheDay: TNewDate;
  public
    { Public declarations }
  end;

var
  DateForm: TDateForm;

implementation

{$R *.DFM}

procedure TDateForm.FormCreate(Sender: TObject);
begin
  TheDay := TNewDate.Create (2012, 12, 25);
  LabelDate.Caption := TheDay.GetText;
end;

procedure TDateForm.BtnIncreaseClick(Sender: TObject);
begin
  TheDay.Increase;
  LabelDate.Caption := TheDay.GetText;
end;

procedure TDateForm.BtnDecreaseClick(Sender: TObject);
begin
  TheDay.Decrease;
  LabelDate.Caption := TheDay.GetText;
end;

procedure TDateForm.BtnAdd10Click(Sender: TObject);
begin
  TheDay.Increase (10);
  LabelDate.Caption := TheDay.GetText;
end;

procedure TDateForm.BtnSubtract10Click(Sender: TObject);
begin
  TheDay.Decrease (10);
  LabelDate.Caption := TheDay.GetText;
end;

procedure TDateForm.FormDestroy(Sender: TObject);
begin
  TheDay.Free;
end;

procedure TDateForm.BtnLeapClick(Sender: TObject);
begin
  if TheDay.LeapYear then
    ShowMessage ('Leap year')
  else
    ShowMessage ('NON Leap year');
end;

procedure TDateForm.BtnTodayClick(Sender: TObject);
begin
  TheDay.SetValue (Date);
  LabelDate.Caption := TheDay.GetText;
end;

end. 


код проверять не нужно.

заранее огромное спасибо всем за помощь.

[BDA]

Кхм, простого копирования через блокнот не хватит. Вам нужно открыть дельфи, "накидать" на форму все описанные элементы (LabelDate, BtnIncrease, BtnDecrease, BtnAdd10 и т.д.), ориентируясь на их тип и не забывая переименовывать в соответствии с имеющимся кодом, затем назначить все методы и перенести их код из ворда/блокнота в дельфи.

[JUDAS]

1. создаёте пустой файл DateF.pas и DateF.dfm
2. копируете исходные ДВА файла в WORD а потом в Блокнот
3. В делфи вставляете сначала DateF.pas заменяя пустой юнит, а потом нажав на Alt+F12 содержимое DateF.dfm заменяя содержимое.
Не понял в чём прикол? Если не копируются руские буквы, переключите клавиатуру на русскую раскладку и копируйте так ?

[BDA]

Ладно, вот проект, только не хватает кое-чего в uses, поэтому не скомпилируется.
JUDAS, вряд ли кто-то описывает в курсовой работе (раз код берется из ворда) и dfm файл

[программирование]

добрый день у меня
несколько вопросов.

1. создаёте пустой файл DateF.pas и DateF.dfm

это просто нужно создать папку на рабочий стол, а там два пустых файла с таким расширением?
а куда именно вставлять в Делфи 7?

огромное спасибо всем за помощь!

[программирование]

BDA, и что мне делать с тем, что вы тут скинули? мне нужно запустить это через Делфи?

[программирование]

вряд ли кто-то описывает в курсовой работе (раз код берется из ворда) и dfm файл

это не курсовая работа, а просто задание, которое оценивается в 0,2 балла.

[BDA]

У Вас нет своего dfm файла в документе ворд? - В моем архиве готовый проект.
Мой проект не скомпилируется, так как в нем нету модуля dates, который, скорее всего, описывает класс TNewDate. Где взять этот модуль? - Вам виднее.