[delphicoding]

Я охреневаю над этой проблемой, что Дата не может быть пуста в Delphi... это ужас какой-то, что делать хз...
Вот есть таблица в БД, есть там данные, вот с данными происходит некоторое событие - устанавливаем в соответствующее поле результат событий, а в соседнее поле - дату событий. Потом вдруг понадобилось очистить предыдущее действие - поле результата событий очищается без проблем, но как очистить дату?! ведь передать Date=null через Delphi никак не получается!
PS Чтобы не было воплей "дата не может быть null" - откройте БД, посмотрите сами - там чётко поле пустое или в спецрадкторах типа IBExpert написано NULL!

Так как же очистить дату в БД (передать из Delphi в Firebird пустое значение даты, которое сможет затереть предыдущее значение даты) ?!

[NumLock]

я же уже писал как это сделать:

Код:

Table1.FieldByName('date1').Clear; // очищаем значение поля

вот тут:
http://www.delphisources.ru/forum/sh...58&postcount=7
а вот что в справке написано:

Clear method (TField)

Sets the value of the field to NULL.

Delphi syntax:

procedure Clear;

C++ syntax:

virtual void __fastcall Clear(void);

Description

Call the Clear method to give the field a blank value (a NULL value in SQL terms).

[delphicoding]

Да, Clear для полей. Или иногда (привет стандарты) ValueClear. В том примере Вы писали про обработку существующей даты. А тут задача в другом - нужно передать из программы в БД ПУСТОЕ значение даты, чтобы в БД затереть предыдущее значение даты и сделать поле БД пустым!

Но это не поля, а атрибут(переменная) процедуры. Вызываю процедуру из другого юнита и передаю значение всех требуемых атрибутов - если значение атрибута DataSobitiya не указана или указана как null - Delphi выдаёт ошибку.
Пробовал указывать для процедуры в месте объявления значение по-умочланию =null также, работает только с =0, но это увы уже даёт дату 1899года, мля.

[NumLock]

и на этот вопрос в той теме был ответ:

Сообщение от NumLock

естествено можно Variant использовать.

Код:

procedure CounterStrike(date1: Variant);
begin
  if not VarIsNull(date1) then ShowMessage(DateToStr(date1))
  else ShowMessage('Null');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CounterStrike(Now);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CounterStrike(Null);
end;

[delphicoding]

Пропустил мб. Нифига се, то есть variant может быть и датой и нулл работает и дату передаёт правильно?! а для даты нулл уже не работает?! Опять - Привет стандарты!

[delphicoding]

Говорят Variant работает в разы медленнее чем точно определённые классы типа Date/Integer... неужели настолько медленно?!

Последний тупой вопрос на сегодня - при передачи из Delphi через Dataset в БД значения Variant:=null передаются как "null" или не передаются вообще? БД воспринимает их как "нужно записать null" или как "ничего не передали, значит это поле перезаписывать не будем".

PS Если все эти действия приводят к записи в БД значения null, тогда вопрос - как при вызове процедуры указать один из атрибутов пустым, чтобы в БД данное поле НЕ было перезаписано?! Конструкция типа procedure Dannie(1,2,,,5) вызывает в Delphi ошибку... Delphi очень хочет, чтобы каждый параметр был указан и написан!

[delphicoding]

Закрыто.////

[lmikle]

Код:

FieldByName('MyDate').Value := null;
ParamByName('MyDate').Value := null;

[delphicoding]

lmikle
Вы часто отвечаеет не вчитываясь в вопрос - написано при передаче атрибутов процедуры, а не при постинге полей в БД.
==============================================

Увы, проблема получила продолжение... замечательный тип Variant тоже оказался недоделанным, тк не позволяется ему устанавливать значение по-умолчанию: [DCC Error] uForm.pas(92): E2268 Parameters of this type cannot have default values.
Почему?! Какой в этом смысл?! и какая нахер тогда это вообще универсальная переменная, ежели нельзя по-умолчанию присвоить значение... ппц идиотизм.
PS Дополнительным бредом является жёсткое ограничение на указание типов атрибутов процедуры - если указан тип со значением по-умолчанию, все следующие за ним - также обязаны быть со значением по-умочланию - бредятина! это может и удобно разработчикам Delphi, но это совершенно неудобна разработчикам В Delphi! Приходится подгонять порядок атрибутов вместо удобного и отвечающего чему-то в программе, по значениям по-умочланию. Тупизна какая.

[Karsh]

А если указатели использовать?

Код:

procedure CounterStrike(date1: Pointer = nil);
begin
  if date1 <> nil then
    ShowMessage(DateToStr(TDateTime(date1^)))
  else
    ShowMessage('Null');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d:= Now;
  CounterStrike(@d);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CounterStrike;
end;