| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

AlexeyMir ©   (2008-05-14 17:25:00) 

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

У меня есть процедура 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

---

Renegat   (2008-05-14 18:40:00) [1]

А если так:

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

Ъ?

---

Renegat   (2008-05-14 18:40:00) [2]

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

---

Leonid Troyanovsky   (2008-05-14 18:35:00) [3]

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

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

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

--
Regards, LVT.

---

Vlad Oshin   (2008-05-14 17:55:00) [4]

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

---

Vlad Oshin   (2008-05-14 17:55:00) [5]

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

---

Vlad Oshin   (2008-05-14 17:55:00) [6]

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

---

Palladin   (2008-05-14 17:55:00) [7]

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

---

AlexeyMir   (2008-05-14 17:54:00) [8]

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

---

Vlad Oshin   (2008-05-14 17:43:00) [9]

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

---

Vlad Oshin   (2008-05-14 17:43:00) [10]

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

---

Vlad Oshin   (2008-05-14 17:43:00) [11]

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

---

Наверх