[文字列を比較する]

文字列を比較します。

program tips0020;
{$APPTYPE CONSOLE}
uses SysUtils;
var
 a:String;
 b:String;

begin
 a:='ABC';
 b:='ABC';

 WriteLn('AnsiCompareStrで文字列比較');
 if(AnsiCompareStr(a,b)=0) then
   WriteLn('　→同じ文字列です。')
 else
   WriteLn('　→異なる文字列です。');

 WriteLn('=で文字列比較');
 if(a=b) then
   WriteLn('　→同じ文字列です。')
 else
   WriteLn('　→異なる文字列です。');
 
end.

dcc32 tips0020.pas 
tips0020.exe  > tips0020.txt
pause

AnsiCompareStrで文字列比較
　→同じ文字列です。
=で文字列比較
　→同じ文字列です。