如何查询memo里面含有的字符串问题

Question

比如说我现在memo里面含有4F,我要查询如果含有4F则memo末尾显示查询成功，没有则失败

Answer 1

很简单啊：var s:string;
begin
  s:=memo1.text;
  if pos('4F',s)>0 then
    memo1.text:=s+'查询成功'
  else
    memo1.text:=s+'查询失败'
end;

Answer 2

memo里面的数据是接收得到的，我在memo的onchange事件里添加以上代码的时候容易出现程序死机，一般怎么添加好呢？有什么好办法

Answer 3

你可以在接收之前去处理，成功就加到memo，就不需在onchange写代码了

Answer 4

变个方法：接收之后，显示之前判断，有4F就加到Memo，做出你后续的效果。没有就丢掉

Answer 5

接收？从串口吗？你可以考虑在接收的时候去判断啊。如果接收到的数据包里面有4F，那就在memo里面直接显示成功。

Answer 6

查询条件
1）查询信息
2）memo1控件中的信息
查询即可

Answer 7

接收的时候怎么判断 if   test = '充值' then
   begin
   Memo1.Text:='表号：'+StrToHexStr(Str[4])+'                                                          '+'序列号: '+ StrToHexStr(Str[7]) + StrToHexStr(Str[8]) + StrToHexStr(Str[9]) + StrToHexStr(Str[10]) +'                                           '+'累计水量: '+ StrToHexStr(Str[11])+ StrToHexStr(Str[12])+'                                              '+'状态代码： '+ StrToHexStr(Str[6]) +'                                                '+'校验： '+ StrToHexStr(Str[13]) +'                                                         ' +'是否执行成功：'  +StrToHexStr(Str[5])+'';
   u:=memo1.text;
  if pos('4F',s)>0 then
  memo1.text:=u+'查询成功'
  else
  memo1.text:=u+'查询失败'   end;

Answer 8

你在把数据存入MEMO之前处理一下不就好了呀