Скачать: CL | DM;

Помогите разобраться с методом Lookup   Найти похожие ветки 

← →
Nikos   (2003-05-11 17:29) [0]

Хочу произвести поиск по номеру в БД. Структура БД такая
Поле Тип
Num Short
Quest Alpha
Answ1 Alpha
Answ2 Alpha
Answ3 Alpha
Answ4 Alpha
Answ5 Alpha
Res Alpha

Вот процедура
procedure TForm1.ShowQuest;
var i : Integer;
LookupResult : Variant;
begin
LookupResult:= Tabel1.Lookup("Num",QuestNum,"Quest;Answ1;Answ2;Answ3;Answ4;Answ5;Res");
LbQuest.Caption:= LookupResult[0];
for i:= 1 to 5 do
if LookupResult[i] = "" then Exit
else Lb[i-1].Caption:= LookupResult[i];
end;
Пояснение. Lb - это массив объектов TLabel.
Когда в Базе Данных заполнены все поля ни каких проблем нет, а если есть пустые поля, то когда нужно вывести результат в Lb[i-1].Caption программа выдает ошибку: Invalid variant type conversion Чему равна переменная LookupResult, если поле в БД было пустым?

---

← →
Viktor   (2003-05-12 05:08) [1]

Null

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c