Delphi str1.Compare 比较两个字符是否相同

本文整理自网络，侵删。

 program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils;
  varstr1:string ='a1232';str2:string ='a1232';begin  try

 if  str1.Compare(str1, str2)=0 then begin   write('相同');   end   else   begin    write('不相同'); end; readln;    { TODO -oUser -cConsole Main : ｉｎｓｅｒｔ code here www.delphitop.com }  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;end.
 

相关阅读 >>

Delphi 取控件下的图象

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

Delphi中的record怎么动态分配内存？

Delphi firemonkey移动应用程序将设置保存到ini文件的示例

Delphi中获取guid的函数

Delphi 获取动态创建的image与scrollbox的相对位置

Delphi将image存入mysql数据库

Delphi获取程序自身路径的函数

delhi 获取进程图片

indy 中idhttp元件出现http status 302错误

更多相关阅读请进入《Delphi》频道 >>