1 posex循环
2 正则
3 删除或替换掉2,然后看短了多少
4 ...
2 正则
3 删除或替换掉2,然后看短了多少
4 ...
解决方案 »
- 新手求助应急,用TTCPBlockSocket或类似,求一函数向一指定的ip、port发送,通过监听返回接收到的数据
- 求DELPHI7版本的控件,类如下
- file of 起一个什么样的作用
- 我操,一帮菜鸟,连DevExpress printsystems打印DevExpress QuantumGrid怎样加报表头都不知道!!!
- 在线等待,怎样获得指定文件夹下的文件和文件夹的个数和名称
- 请问如何把XML格式的文件调到ADODataset中?
- 急,如何使窗体中的控件能随分辨率的变化而自行调整大小
- 高手进来看看
- 我現在遇到一個怪問題
- 能不能用字符串当参数给DLL的函数,如何?
- Delphi 根据窗体名称 创建窗体并显示
- Delphi 程序创建一个ini文件,放在程序bin目录下,但是非管理员打开操作软件时会提示不能create".ini"文件
var
StrLst: TStringList;
begin
StrLst:= TStringList.Create;
try
//有多少个2
StrLst.Delimiter:= '2';
StrLst.DelimiterText := '123234565';
StrLst.Count - 1;//个数
finally
StrLst.Free;
end;
end;
delphi7是有Delimiter属性的,不过没有StrictDelimiter属性,会导致空格也被当成分割符。
像LSS那样,字符串中有空格的,设置StrictDelimiter为True才行,没有StrictDelimiter属性就是错的。
str := '123234565';
result := length(str) - length(stringreplace(str, '2', [rfreplaceall]));
delphi7是有Delimiter属性的,不过没有StrictDelimiter属性,会导致空格也被当成分割符。
像LSS那样,字符串中有空格的,设置StrictDelimiter为True才行,没有StrictDelimiter属性就是错的。
嗯,是这样,复制错了
asm
TEST EAX,EAX
JE @@qt
MOV ECX,[EAX-4]
TEST ECX,ECX
JE @@zq
PUSH EBX
LEA EBX,[EAX-1]
XOR EAX,EAX
@@lp: CMP DL,BYTE PTR [EBX+ECX]
JE @@fn
DEC ECX
JNE @@lp
POP EBX
RET
@@fn: INC EAX
DEC ECX
JNE @@lp
POP EBX
RET
@@zq: XOR EAX,EAX
@@qt:
end;