VIRTUAL PROPERTY FCount AS DWORD GET
public override uint FCount { get; }
1CLASS Sales INHERIT DBServer 2... 3FUNCTION ListFields() 4LOCAL nField AS SHORTINT, oDBSales AS Sales 5oDBSales := Sales{} 6 7FOR nField := 1 UPTO oDBSales:FCount 8? oDBSales:FieldName(nField) 9NEXT