- 博客(0)
- 资源 (4)
- 收藏
- 关注
自动匹配输入字符串
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;
2013-04-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人