Форум: "Начинающим";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
Leonid Troyanovsky ©   (2008-05-14 18:35) [9]

> 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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.047 c