Delphi的字符串两头 要有单引号 该怎么表达？再加字符串

冥界3大法王

procedure TForm1.CheckListBox1DblClick(Sender: TObject);
var
  match: TMatch;
  w1: string;
begin
   match := TRegEx.Match(CheckListBox1.Items[CheckListBox1.ItemIndex], '.*\w(?=\()');
  if match.Success then
  begin
    ShowMessage(match.Value);
    DbgCmdExec('bp 401512'); 先看这行吧，DbgCmdExec是一个函数，里边传递的是一个字符串，（）之间用''包裹起来，这么写是对的，输出OK
   
   w1:= PAnsiChar(match.Value);  //这个是正则匹配出来的字符串
{下面合起来，我就整不明白了}
   DbgCmdExec(单引号要有 + w1  + 单引号); 这里该如何表达才正确呢？
  end;
end;






{BRIDGE_IMPEXP bool}    function DbgCmdExec(const cmd: PAChar): Boolean; cdecl; external x32_BRIDGE; 这里是这样的

var
  match: TMatch;
  w1: string;
begin
  match := TRegEx.Match(CheckListBox1.Items[CheckListBox1.ItemIndex], '.*\w(?=\()');
  if match.Success then
  begin
    ShowMessage(match.Value);
   //DbgCmdExec('bp 401512');
   w1:= 'bp ' + (match.Value);
   ShowMessage(w1);
   DbgCmdExec(PAnsiChar(w1));
//   DbgCmdExec(''' + w1 + ''');
  end;
end;

加上这个不报错了，但是得到的是正则表达式匹配中的第一个字符串

jyjjf

PAnsiChar与string要另外转换吧

冥界3大法王

解决了：哈哈。

[Delphi] 纯文本查看 复制代码

procedure TForm1.CheckListBox1DblClick(Sender: TObject);
var
  match: TMatch;
  w1: string;        //设置一个临时变量字符串用作中间临时过渡与调试
begin
  match := TRegEx.Match(CheckListBox1.Items[CheckListBox1.ItemIndex], '.*\w(?=\()');
  if match.Success then
  begin
    ShowMessage(match.Value);
   //DbgCmdExec('bp 401512');
   w1:= 'bp ' + match.Value;
   ShowMessage(w1);                //直接弹框，测试传值是否正确有？
   //ShowMessage(PAChar(w1)); //=====》问题就出在这里！不断的测试修改这行！以完成正确的转换
   ShowMessage(PAnsiChar(AnsiString(w1)));

   DbgCmdExec(PAnsiChar(AnsiString(w1)));
  end;
end;

lras

w1:='民';
showmessage('中国人'+w1+'银行');

kenxy

法王大法好

冥界3大法王

kenxy 发表于 2023-5-8 09:28
法王大法好

别没事瞎说，容易被坏蛋份子利用。
上次有个混蛋害我被关了半个月。
都楼下害的。

lras

冥界3大法王 发表于 2023-5-8 09:31
别没事瞎说，容易被坏蛋份子利用。
上次有个混蛋害我被关了半个月。
都楼下害的。

大伙加油，再给法王送进去

cav2002

法王这是和Delphi杠上了啊，扔了了10多年了，我承认我是来怀旧的，东西早就还给Borland了

冥界3大法王

cav2002 发表于 2023-5-8 10:53
法王这是和Delphi杠上了啊，扔了了10多年了，我承认我是来怀旧的，东西早就还给Borland了

@cav2002
要么就别学，要么学了就争取用精。
不然岂不瞎了精力和生命？