您的位置:首页 > 编程语言 > Delphi

delphi char与string比较

2020-02-29 20:23 453 查看

procedure TForm1.CompareCharToString(chstr: Char; str: string);
var
  aa: array[0..1]of AnsiChar;
  str1: string;
begin
  chstr := 'a';
  str := 'a';
  aa[0] := AnsiChar(chstr);
  str1 := StrPas(aa);
  if str = str1 then
    ShowMessage('相等!')
  else
    ShowMessage('不相等!');
end;

转载于:https://my.oschina.net/yichenbaby/blog/786133

  • 点赞
  • 收藏
  • 分享
  • 文章举报
chentang1007 发布了0 篇原创文章 · 获赞 0 · 访问量 248 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: