KB10599 - List all field names from a joined dataset.

This can be done as follows:

if Assigned( oLayer.JoinDB ) then begin
  for i:=0 to oLayer.JoinDB.FieldCount-1 do begin
    name := oLayer.JoinDB.Fields[i].DisplayName ;
   ....
  end ;
end ;

if Assigned( oLayer.JoinADO ) then begin
 for i:=0 to oLayer.JoinADO.Fields.Count-1 do begin
   name := oLayer.JoinADO.Fields.Item[i].Name ;
 ...
 end ;
end ;
 
Created: January 07, 2005, Modified: September 10, 2015