Как присвоить выражение boolean полю TObject?

Question

[ndbn]

Имеется класс с полем тип TObject.
Значение поля может быть булевого типа илил другим классом.
Не получается присвоить ему булевое значение, приведения типов (явное или as TObject) не помогают.
Возможно ли это сделать вообще, может стоит как-то сделать свой TBoolean?!

TBar = class
    field : TObject;
  end;
... 
var 
  bar : TBar;
...  
  bar.field := True;

Answer 1

[Mercury13]

Попробую угадать задачу. Есть некое поле (назовём его UserData), но у нас-то пользовательские данные boolean!

Решение 1. Прямое преобразование, невзирая на несовместимости типов.

someObj.UserData := TObject(true);
someBool := boolean(someObj.UserData);

+ Эффективнее всех.
− Запрещено разыменовывать.

Решение 2. Создать некий объект DummyObject. Обозначить nil=false, <>nil = true.

someObj.UserData := dummyObject;
someBool := (someObj.UserData <> nil);

initialization
  dummyObject := TObject.Create;
finalization
  dummyObject.Free;
end.

+ Достаточно эффективно, можно разыменовывать.
− Если в классе есть неотключаемое автоуничтожение UserData — облом!

Решение 3. Создать класс TBoolObject.

TBoolObject = class
public
  Value : boolean;
  // конструкторы опущу, деструктор не нужен
end.

someObj.UserData := TBoolObject(true);
someBool := (someObj.UserData as TBoolObject).Value;

+ Работает, когда в классе есть автоуничтожение UserData.
− Иначе — овчина не стоит выделки, тогда нам эти объекты придётся уничтожать самим.

Если же у вас тут экономия памяти и надо в одной памяти держать object или boolean, работает решение 4.

TObjBool = record
case integer of
0 : ( asObj : TObject );
1 : ( asBool : boolean );
end;

+ Очень эффективно.
− Программист сам должен следить за тем, что там: объект или буль.

Comments

[ndbn]

Первый способ очевиден и он работает, но когда я его пробовал была ошибка потому, что я делал как "(TObject) True", иногда тяжело переключаться между разными ЯП.

[Mercury13]

ndbn: :) Си с крестами головного мозга.
В прямом смысле: постоянно на Java пишу bool, хотя он там boolean.

Answer 2

[kalapanga]

Изврат какой-то придумали. Конечно нельзя так.
А как надо, не зная задачи, никто не подскажет.

Comments

[ndbn]

Вы бы не судили. Реальная задача.
В других языках, например C#, спокойно выполнимая задача.
Раз она вам не ясна, расписываю:
поле класса содержит поле типа Boolean для одной ситуации и типа TFoo для другой. Хранится в одном поле с одним именем.

[kalapanga]

ndbn: Ну хорошо, тогда повторю без суждений. В Delphi поле нельзя сделать двух типов. В каких-то случаях подошёл бы тип Variant, но не для Boolean и TObject.

[Mercury13]

Можно. Ищите record/case.

[kalapanga]

Mercury13: Интересно! Формально Вы, наверное, правы, и автору вопроса этот вариант может подойдёт. Я про record case в таком плане не думал. Самому применять record case не приходилось, но представлял себе я это примерно так:
MyRec=record
case integer of
1: (i: integer);
2: (w1, w2: word);
3: (b1, b2, b3, b4: byte);
end;
Т. е. вот есть 4 байта данных и мы их только интерпретируем различными способами. А чтобы разнотипные данные объединять, ну очень внимательно следить за содержимым нужно. Если мы запишем булево значение, а прочитать попробуем TObject, то хоть получим ошибку. А вот если наоборот, запишем TObject, а читать будем буль, то оно ведь и прочитает чего попало.

[ndbn]

Mercury13: Тут скорей не record\case, а TObject1 и TObject2 которые можно спокойно занести в TObject, вот только Boolean не является наследником TObject