文件名称:自动匹配输入字符串
文件大小:184KB
文件格式:RAR
更新时间:2016-05-18 09:44:48
delphi 匹配
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;
【文件预览】:
STD.INC
Main.pas
StrConst.pas
Sample.exe
Main.dcu
Main.dfm
StrTools.dcu
Sample.dpr
ShlIntf.dcu
ShlIntf.pas
StrConst.dcu
StrTools.pas