最后一个冒号 ( 积分: 20 )

下面是一段QQ聊天记录，如何获取最后一个冒号位置下面的内容在memo中：

叮叮 07:24:05
在啊,啥时放假
叮叮 07:24:24
今年放假回不回来?
叮叮 07:24:38
小森要去你哪?

获取的内容为
38
小森要去你哪?

posex,判斷查詢

用POS函数

pos不中,非得先计算出最后一个冒号的位置在哪.因为聊天内容可不只是上面的固定不变的.
每次都是变化的,你怎么知道下一聊天内容的最后一个冒号位置在哪.

顶一顶,谁帮助解答一下,谢谢.

将

叮叮 07:24:05
在啊,啥时放假
叮叮 07:24:24
今年放假回不回来?
叮叮 07:24:38
小森要去你哪?

放在Memo中

implementation
uses RegExpr;
{$R *.dfm}

function GetLastString(SourceStr: String): String;
begin
with TRegExpr.Create do
begin
try
Expression:= '^.*.*)$';
InputString:= SourceStr;
Exec;
Result:= Match[1];
finally
Free;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetLastString(Memo1.Lines.Text));
end;

这样就可以了


顺便说一句 我真不想告诉你 原因你自己知道

那么，请问如何取得最后一个冒号所在行的内容，即:

叮叮 07:24:38

谢谢。