Как получить значение по его имени

← →
AlexeyMir (2008-05-14 17:25) [0]

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

У меня есть процедура BBB которая чтото делает. У процедуры есть один параметр
который берется из текстового файла.
Значением параметра может быть одно из следующих:
Query1.FieldByName("id").AsInteger
Query2.FieldByName("id_doc").AsInteger
Query3.FieldByName("id_rc").AsInteger
В зависимости от значения Val которое берется из тексового файла по разному будет вести себя процедура BBB

procedure TForm1.Button1Click(Sender: TObject); var text: string; begin ... text:=LoadFromFile("1.txt"); BBB(?) ... end; procedure TForm1.BBB(val: ?) begin ... ShowMessage(val); //выводится Query3.FieldByName("id_rc").AsInteger, а нужно его значение ... end;

Подскажите как в процедуре получить значение Query3.FieldByName("id_rc").AsInteger

← →
Vlad Oshin © (2008-05-14 17:43) [1]

if val="Query3.FieldByName("id_rc").AsInteger"
then ShowMessage(Query3.FieldByName("id_rc").AsString);

← →
Vlad Oshin © (2008-05-14 17:43) [2]

Удалено модератором

← →
Vlad Oshin © (2008-05-14 17:43) [3]

Удалено модератором

← →
AlexeyMir (2008-05-14 17:54) [4]

Дело в том что вариантов в текстовом файле может быть очень много, столько сколько полей в БД. Может быть можно как-то не перебирать все варианты и выставлять на них условие

← →
Vlad Oshin © (2008-05-14 17:55) [5]

val="id_rc"
ShowMessage(Query3.FieldByName(val).AsString);

← →
Vlad Oshin © (2008-05-14 17:55) [6]

Удалено модератором

← →
Vlad Oshin © (2008-05-14 17:55) [7]

Удалено модератором

← →
Palladin © (2008-05-14 17:55) [8]

и кто это придумал?

> Palladin © (14.05.08 17:55) [8]

> и кто это придумал?

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

--
Regards, LVT.

← →
Renegat (2008-05-14 18:40) [10]

А если так:

procedure TForm1.BBB(val:string); begin ... ShowMessage(intToStr(Query3.FieldByName(val).AsInteger)); ... end;

Ъ?

← →
Renegat (2008-05-14 18:40) [11]

Тфу. Имелось в виду AsString

Как получить значение по его имени Найти похожие ветки