请教pos函数(delphi)

来源：百度知道 编辑：UC知道 时间：2024/06/27 06:15:46
菜鸟想实现如下功能：
在memo控件中有如下内容：
5656565656565656
123456123+QQ64
+QQefe349ejrelre
+QQ683163269077F7000801124F60597D002053D1
.......
ABCDEFERFD+QQFEREFEF
..................
求助pos函数的功能，怎样循环判断+QQ出现的次数，然后取出：+QQ后的内容
那一行有+QQ就把它后面的内容取出来，例如：123456123+QQ64，就取出64
望各位高人能给予代码说明，谢谢！
请高人给予指教，谢谢！
各位高人都来来看看，怎样解决这个问题，因为我的积分已没了，所以给的分太少，请各位别见怪呀，谢谢，还是我的问题是真诚的，呵呵！
请各位写一个循环函数呀

上述提问不太清楚，现把清楚的展示给各位高人，请高人帮忙

菜鸟想实现如下功能：
在memo控件中有如下内容：
5656565656565656
123456123+QQ64
+QQefe349ejrelre
+QQ683163269077F7000801124F60597D002053D1
.......
ABCDEFERFD+QQFEREFEF
..................
求助pos函数的功能，怎样循环判断+QQ的出现，然后取出+QQ后的内容
那一行有+QQ就把它后面的内容取出来，例如：123456123+QQ64，就取出64把它赋予给edit ；当 +QQefe349ejrelre这一行出现+QQ，就把上一个行+QQ后的内容删除，把本行的+QQ后的内容efe349ejrelre赋予edit
望各位高人能给予代码说明，谢谢！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mylist:Tstringlist;//定义一个Tstringlist类型，用来读取memo1的内容。
m:integer;//全局变量，用来测定读取到了mylist的第几行。
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
mylist:=Tstringlist.Create;//逐行读取memo1的内容
for i:=0 to memo1.Lines.Count-1 do
mylist.Add(memo1.Lines.Strings[i]);
m:=0;//初始化全局变量m。
e