如何仅从TComPort-Delphi获得正确的响应？

Question

[当我发送命令“ AT + CUSD = 1，” * 200＃“，15”时，我得到了响应：

OK


+CUSD: 0,"Crdit :1.33DA au 21/05/20.Credit offert :0DA",15  

是否有一个函数或另一个AT命令可以得到

Crdit :1.33DA au 21/05/20.Credit offert :0DA 

这是我想要的答案？

Answer 1

调制解调器响应是字符串包除以逗号。

您可以：-将此字符串分配给TStringList.DelimitedText以获取各个子字符串的集合-按第0个项目标识包装-这里'CUSD'-以'Crdit...']的形式获得第1个项目

[Memo.Lines（类型为TStrings的例子：]

var
  s: string;
begin
  s := '+CUSD: 0,"Crdit :1.33DA au 21/05/20.Credit offert :0DA",15';
  Memo1.Lines.Delimiter := ',';
  Memo1.Lines.StrictDelimiter := True;
  Memo1.Lines.DelimitedText := s;

result
 +CUSD: 0
 Crdit :1.33DA au 21/05/20.Credit offert :0DA
 15