Forum Discussion

Bjoernw's avatar
Bjoernw
New Contributor
9 years ago

How to make a IF-query with changing listbox-items?

Hello,   i have a problem with a IF-ELSE query. For example my Listbox contains 4 items: Index0 = house; Index1 = tree; Index2 = car; Index3 = cat. Now depending on the database my application us...
Bjoernw's avatar
Bjoernw
New Contributor
9 years ago

Hello,

 

me again ;)

 

how would the code Shankar_R posted would look like in DelphiScript?

 

thanks again

tristaanogre's avatar
tristaanogre
Esteemed Contributor
9 years ago

Forgive me, it's been YEARS since I've had to write DelphiScript...  so... here's my best guess:

function fn_selectlistvalue(objListbox,str_valetoSelect)
var vitemcount;
var result;
begin
    result := false;
    vitemcount := objListbox.wItemCount;
    for lsti:= 0 to vitemcount-1 do
        begin
            if (aqString.Compare(aqConvert.VarToStr(objListBox.wItem(lsti)), str_valuetoselect, false) = 0 then
               begin 
                   objListbox.ClickItem(lsti);
                   result := true;
               end;
        end;
    fn_selectlistvalue := result;
end;