Помогите разобраться с методом Lookup [D6, Paradox]
Nikos © (2003-05-11 17:29:00)
Хочу произвести поиск по номеру в БД. Структура БД такая
Поле Тип
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:00) [1]
Null
Наверх 
ЧАТ |
Орешник |
|
