求助delphi中pos函数的循环使用方法
在memo控件中有如下内容：
5656565656565656
123456123+QQ64
+QQefe349ejrelre
+QQ683163269077F7000801124F60597D002053D1
.......
ABCDEFERFD+QQFEREFEF
..................
求助pos函数的功能，怎样循环判断+QQ出现过n次，然后取出：+QQ后的内容顺序返回给Label1.Caption-Labeln.Caption，n=+qq出现的次数。
例如：
+QQ123123
....
+QQ321321
....
+QQ123331
....
+QQnnnn12
则返回：
Label1.Caption ：= ‘23’；
Label2.Caption ：= ‘21’；
Label3.Caption ：= ‘31’；
Labeln.Caption ：= ‘12’；
那个高手给帮下忙！谢谢了！最好可以给个memos!
PosEx
楼上的大哥，可以具体点吗？
我去查查PosEx使用方法
posex支持从某个位置开始搜
iPos := PosEx(SubStr, SourceStr, iPos + Length(SubStr) + 1);
Delphi(Pascal) code:
uses
StrUtils;
var
iPos: Integer;
SubStr, SourceStr: String;
begin
SubStr := 'qq';
SourceStr := 'qq000qq111qq222qq333qq';
iPos := PosEx(SubStr, SourceStr);
while iPos >= 0 do begin
//输出iPos
ShowMessage(Copy(SourceStr, iPos, Length(SubStr)));
if iPos + Length(SubStr) + 1 > Length(SourceSt
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
