Date из одного окна в другое окно

[delphicoding]

Здравствуйте!
Вопрос как правильно передать Дату из одного окна в другое окно?
Пробую при помощи function так:

type
  TfBaseForm = class(TForm)
   edDate: TJvDateEdit;
   procedure FormCreate(Sender: TObject);
public
  function GetDateShift:TDate; // (а)

procedure TfBaseForm.FormCreate(Sender: TObject);
begin
 edDate.Date:=Date; // прекрасно работает
end;

// юзер изменяет дату итд

function GetDateShift:TDate;
begin
  Result:=edDate.Date; // (б)
end;

Постоянно ругается:
а) на строку объявления функции: [DCC Error] uBaseForm.pas(45): E2065 Unsatisfied forward or external declaration: 'TfBaseForm.GetDateShift'
б) всё время подчёркивает второе слово Date говорит неизвестная щняга O_o , попробовал даже: StrToDateTime(TimeToStr(edDate.Date )), edDate.Value.Date, edDate.FieldDate, итд. - всё не нравится!

В шоке, не могу понять что за ерундистика...

Сам метод передачи даты правильный? Или есть правильнее?

[veniside]

function TfBaseForm.GetDateShift:TDate;

[delphicoding]

Блин. Запахался. Спасибо.

PS Кстати об удобстве и логичности Delphi - НИ РАЗУ не видел, чтобы процедура или функция писалась с ДРУГИМ названием формы... такое вообще бывает?! а то сомнения берут нахрена это название каждый раз писать?!

[veniside]

> Запахался

а зачем пахать, нажимаешь Ctrl+Shift+C на объявлении метода, и IDE сама допишет его пустую реализацию.

> нахрена это название каждый раз писать?

классов в модуле может быть сколько угодно, имена методов могут у них совпадать. Форма — это такой же класс, как и любой другой. Ломать синтаксис только из-за форм, имхо, не логично. Тем более, если в будущем IDE будет позволять объявлять несколько форм в одном модуле, надо будет ломать всё обратно.

[delphicoding]

а зачем пахать, нажимаешь Ctrl+Shift+C на объявлении метода, и IDE сама допишет его пустую реализацию.

А наоборот есть сочетание? Когда вручную пишешь код, нажимаешь комбинацию - он сам объявляется?

классов в модуле может быть сколько угодно, имена методов могут у них совпадать. Форма — это такой же класс, как и любой другой. Ломать синтаксис только из-за форм, имхо, не логично. Тем более, если в будущем IDE будет позволять объявлять несколько форм в одном модуле, надо будет ломать всё обратно.

Ясно, но когда в юните только одна форма каждый раз это писать конечно излишество. Стоило бы доделать этот момент разработчикам.

[Пепел Феникса]

а то сомнения берут нахрена это название каждый раз писать?!

чтоб указать компилятору что это метод класса, а не просто функция.

Стоило бы доделать этот момент разработчикам.

а может не надо валить свою ошибку на разработчиков?

я вот возьму, и в этом модуле объявлю еще один класс с таким же методом, и что тогда делать будем?(а еще рядовую функцию тоже объявлю)
так что не катит такой подход.

есть четкие правила, почему вы их не хотите выполнять?(кстати так практически везде, когда реализация отдельно от объявления)

[veniside]

> А наоборот есть сочетание?

есть. Тоже Ctrl+Shift+C, как ни странно

> Стоило бы доделать этот момент разработчикам

имхо, максимум, что тут можно сделать, это добавить нечто вроде неймспейса:

with namespace TfBaseForm do begin

  function GetDateShift:TDate;
  begin
  end;

  function GetTimeShift:TTime;
  begin
  end;

end;

прикольно, но, имхо, нафиг не нужно.

[delphicoding]

а может не надо валить свою ошибку на разработчиков?

Ответ очевиден - "ошибка" (скорее непривычка) возникло из-за неадекватных на мой взгляд правил синтаксиса.
Это всё равно что общаясь с человеком в каждом предложении обращаться по ФИО - оба охранеют от такого разговора...

я вот возьму, и в этом модуле объявлю еще один класс с таким же методом, и что тогда делать будем?(а еще рядовую функцию тоже объявлю)

А вдруг метеорит упадёт на комп? Ну почему Delphi не титановый?! А вдруг, а вдруг...
Вопрос намного проще - если всего один основной класс - нафиг его писать каждый раз?!
Да и даже если классов много, то имеет смысл писать полный путь исключительно при совпадении названий, иначе тоже...

нафиг не нужно.

[Пепел Феникса]

Вопрос намного проще - если всего один основной класс - нафиг его писать каждый раз?!
Да и даже если классов много, то имеет смысл писать полный путь исключительно при совпадении названий, иначе тоже...

синтаксис должен быть однозначен всегда.
кстати, вы так же забыли учесть, внутренние функции модуля, то есть те которые не экспортируются(не доступны из других модулей), они имеют тот синтаксис(то есть их реализацию можно писать сразу на месте) что вы и написали, и по сути не нуждаются в объявлении.
вот поэтому компилятор вас и послал, потому что он видел:
1)неэкспортируюмую функцию модуля GetDateShift.
2)нереализованный метод TfBaseForm.GetDateShift.

и почему компилятор должен гадать что вы хотели написать?

PS: насчет ФИО пример не удачен, в официальном разговоре так и происходит.
а код, скорее официальный разговор.
PPS:

Ответ очевиден - "ошибка" (скорее непривычка) возникло из-за неадекватных на мой взгляд правил синтаксиса.

или от не знания вполне конкретного правила?
PPPS:а вообще весело в чужой монастырь со своими правилами лезть?синтаксис однозначен и правила известны, а вы их хотите изменить.