Найти класс

← →
AntiUser (2009-06-04 09:31) [0]

Возможно ли найти класс TObject по имени содержащимся в строке?
Класс свой.

← →
MBo © (2009-06-04 09:34) [1]

RegisterClass(es) + FindClass/GetClass (если я правильно интерпретировал вопрос)

← →
AntiUser (2009-06-04 09:50) [2]

А не зарегистрированный не найти.
Дык, это тоже самое, если я сделаю массив классов и буду сам заниматься поиском...

← →
MBo © (2009-06-04 09:57) [3]

>А не зарегистрированный не найти.
Ну да.
А что за задача?

← →
AntiUser (2009-06-04 10:26) [4]

> MBo © (04.06.09 09:57) [3]
> А что за задача?

Текствой файл:
MyClass1.FirstField=aaaaa
MyClass1.SecondField=bbbbb
etc

MyClass2.FirstField=aaaaa
MyClass2.SecondField=bbbbb
etc

Класс:
TMyClass = class(TObject)
private
FFirstField: string;
FSecondField: string;
published
property FirstField: string read FFirstField write FFirstField;
property SecondField: string read FSecondField write FSecondField;

Открыть и загрузить значения.

Сейчас стоит просто:
if s = "MyClass1" then
SetPropValue(MyClass1, PropName, PropVal);
if s = "MyClass2" then
SetPropValue(MyClass2, PropName, PropVal);

Думал сделать более универсально.

← →
MBo © (2009-06-04 10:33) [5]

Так у тебя не класс, а объекты искать надо...

← →
Плохиш © (2009-06-04 10:36) [6]

> AntiUser (04.06.09 09:50) [2]
>
> А не зарегистрированный не найти.

Трудно найти чёрную кошку в тёмной комнате, к тому же если её там нет.

PS. В грамматике русского языка написано, что вопросительные предложения должны заканчиваться знаком вопроса.

← →
AntiUser (2009-06-04 10:43) [7]

> Плохиш © (04.06.09 10:36) [6]

Не надо умничать. Это не вопросительное предложение. Это утверждение.

> PS. В грамматике русского языка написано, что вопросительные
> предложения должны заканчиваться знаком вопроса.

PS. Вопросительные предложения должны заканчиваться знаком вопроса!

> MBo © (04.06.09 10:33) [5]
> Так у тебя не класс, а объекты искать надо...

Что у меня не так? Как надо переделать, если надо? Как вы видите решение?

← →
Игорь Шевченко © (2009-06-04 10:50) [8]

RTFM: RegisterClass, FindClass

← →
DrPass © (2009-06-04 12:07) [9]

...и еще TPersistent вместо TObject

← →
MBo © (2009-06-04 13:14) [10]

>[8] [9]
Ему экземпляры объектов одного класса надо различать по названию переменной, судя по [4]

← →
AntiUser (2009-06-04 13:33) [12]

Всем спасибо. Ясно.

>Ясно.
Что именно ясно?

← →
AntiUser (2009-06-04 15:12) [14]

> MBo © (04.06.09 13:43) [13]

Что оставлю как есть ;)
Задача не стОит того, что бы колупаться.
Можно было наследоваться от TPersistent, как сказал DrPass © [9] и использовать регистрацию и поиск класса, как упоминули вы и ИШ. Так же ИШ предлагает наследоваться сразу от TComponent видимо с последующим использованием Write/ReadComponent.
Но нет у меня времени, за сим будет работать как есть, а если понадобится и будет время, то можно и заняться.
Никто же не дал кода рабочего =))))

P.S. Последняя строка - шутка. ps для борцов за "грамматику русского языка", т.к. он не поддерживает (в нынешней реализации) наличия смайлов. А указать, что это шутка более никак нельзя. =))

1. Наследоватся от TPersistent.

2. Самопальные велосипеды выкинуть и использовать штатные средства сохранения и загрузки.

Найти класс Найти похожие ветки