Hallo
versuche einmal den Code wie folgt zu erweitern:
Delphi-Quellcode:
for i := 0 to list.Count - 1 do
begin
if ds.Value[list[i]]<>NULL then begin
db_list := ds.Value[list[i]]; // get field value by its name
if db_list = 'PERSONS' then DefaultPERSONS.Visible := true;
end;
ds.Next;
end;
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]