function TComplexField.GetCount: Integer; var P: PChar; begin Result := 0; if FData '' then begin P := PChar(FData); while P^ #0 do begin while P^ in ComplexSeperators do Inc(P); if P^ in ComplexCharacters then Inc(Result); while P^ in ComplexCharacters do Inc(P); end; end; end;