Создание объекта из переменной

[wowsel]

Здравствуйте, уважаемые знатоки форума.

Прошу прощения если данная тема уже обсуждалась и я её не обнаружил.

Что мы имеем:

type
Tdoctype = class(TObject)

объявлен

var
ORDER:tdoctype;

объявлен

function ctype(docID: integer; docName: string): boolean;

Объявлена и имеет следующий вид

function ctype(docID: integer; docName: string): boolean;
begin

docName:=Tdoctype.Create;
// Tdoctype(docName).docID:=docID;
// Tdoctype(docName).docName:=docName;

end;

Собственно в ней и проблема. В процессе работы программы мы, в зависимости от условия, выполняем следующий код:

if sfile.ReadBool('fSelect','ORDER',false) then begin ctype(n,'ORDER'); inc(n); end;

т.е. нам нужно создать только те переменные, которые проходят проверку. Хочется сделать через функцию.
Интересует как дать понять Delphi 2010, что

docname:=Tdoctype.create

это по сути

ORDER:=Tdoctype.create;

Спасибо огромное за Ваше время и Ваши ответы!

[Delphi_ProGer]

Кажется, я понял, что вы хотите...
Ану ка попробуйте передалать функцию примерно вот так:

function ctype(var object: Tdoctype; docID: integer; docName: string): boolean;
begin
try
begin
object:=Tdoctype.Create;
 Tdoctype(docName).docID:=docID;
 Tdoctype(docName).docName:=docName;
end;
except
result:=false;
end;
result:=true;
end;

Правда, я не полностью уверен в правильности данного кода...
Суть такова: передаем в функцию параметр-обьект, который нужно создать.

[phomm]

Типичный x-y-z

Вы бы лучше рассказали, какую задачу хотите решить, а не то, как Вы думаете, как её надо решить.

Без подобной информации можно многого насоветовать и нагородить. А лучше будет, если всё же предметно работать.

[wowsel]

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

Кажется, я понял, что вы хотите...
Ану ка попробуйте передалать функцию примерно вот так:

function ctype(var object: Tdoctype; docID: integer; docName: string): boolean;
begin
try
begin
object:=Tdoctype.Create;
 Tdoctype(docName).docID:=docID;
 Tdoctype(docName).docName:=docName;
end;
except
result:=false;
end;
result:=true;
end;

Правда, я не полностью уверен в правильности данного кода...
Суть такова: передаем в функцию параметр-обьект, который нужно создать.

Спасибо за Ваш ответ, он сработал!

Типичный x-y-z

Вы бы лучше рассказали, какую задачу хотите решить, а не то, как Вы думаете, как её надо решить.

Без подобной информации можно многого насоветовать и нагородить. А лучше будет, если всё же предметно работать.

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

[Delphi_ProGer]

Спасибо за Ваш ответ, но, увы, он не сработал.

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

[Аватар]

ТС, у делфи нет средств, позволяющих по строковому имени определить существует ли переменная с таким именем и найти её адрес.

[wowsel]

Уже всё, совет " Delphi_ProGer" сработал. Тему можно закрывать, всем отписавшимся - спасибо!

[northener]

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

Типичный ответ новичка их X-Y-Z. Теперь он убегает доделывать своего монстра.

[eval]

Уже всё, совет " Delphi_ProGer" сработал.

а покажите ка что у вас там сработало.

[ksvsvk]

Предложенная Delphi_ProGer функция всегда будет возвращать true