13,655
社区成员
发帖
与我相关
我的任务
分享自动匹配输入字符串下载
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 Comp
相关下载链接：//download.csdn.net/download/wenyuh/5311885?utm_source=bbsseo
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 Comp
相关下载链接：//download.csdn.net/download/wenyuh/5311885?utm_source=bbsseo
...全文
请发表友善的回复…
发表回复
