راهنمای درباره نوع خروجی out_loookup

[sajjad_sharp]

با سلام
از کسانی که می توانند در خواست کمک دارم
var
out_loookup : Variant;
begin
Table1.SetKey;
out_loookup := Table1.Lookup ('CustNo',Edit1.Text ,'Company;Addr2');
چه جوری میشه من نوع خروجی رو در لیبل های مجزا نمایش بدم
منظورم خروجی out_loookup
:عصبانی++: :متفکر:

[vcldeveloper]

در کد شما متد Lookup مقدار دو فیلد Company و Addr2 را برگشت میده. وقتی تعداد فیلدهای برگشت داده شده از یکی بیشتر باشه، باید داده ها را در یک آرایه Variant ذخیره کرد تا بعدا بشه به مقدار هر یک از فیلدها دسترسی داشت:


var
out_lookup : Variant;
begin
Out_lookup := VarArrayCreate([0,1],varVariant);
Table1.SetKey;
out_lookup := Table1.Lookup ('CustNo',Edit1.Text ,'Company;Addr2');
//If Lookup returns any result
if Out_lookup <> False then
begin
label1.Caption := out_lookup[0];
label2.Caption := out_lookup[1];
end;
end;

اگر منظور شما صرفا مشخص کردن نوع (Type) داده Variant هست، می تونید از تابع VarType در یونیت Variants استفاده کنید:


if VarType(out_lookup) = varInteger then