delphi char与string比较

2016-11-12 11:11:54来源:oschina作者:依宸老爹人点击

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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台