delphi中 怎样判断两个字符串是否相等,该怎么解决

comparestr(str1,str2)

------解决方案--------------------
var

str1,str2:string;
i:integer;

......

str1:='土木工程';
str2:='土木工程';

if   str1=str2   then


showmessage('I=1');
  
else
showmessage('I<>1');

这样去试试

------解决方案--------------------
楼主的比较方法肯定是正确的，应该返回1。
同时说明=和SameText的区别：这两种都是比较使用的，=比较是大小写敏感比较，而SameText是大小写不敏感比较，楼主根据自己的需要选择了。

------解决方案--------------------
http://topic.****.net/u/20071102/09/7bec890b-5998-478c-9da0-ba79615f0f32.html

------解决方案--------------------
Comparestr(str1,str2)

------解决方案--------------------
跟踪调试，
要不把其他代码贴出来，Look、Look

------解决方案--------------------
可能有空格
  if trim(str1)=trim(str2)

------解决方案--------------------
else后面有没有代码了，最好if then后加begin end，else后也一样

------解决方案--------------------
var  

str1,str2:string;  
i:integer;  

......  

str1:='土木工程';  
str2:='土木工程';  

if   trim(str1)=trim(str2)   then  
i:=1  
else  
i:=0;  

------解决方案--------------------
var  

str1,str2:string;  
i:integer;  

......  

str1:='土木工程';  
str2:='土木工程';  

if  str1=str2 then
begin  
 i:=1 ;
end; 
else
begin  
 i:=0;
end;

------解决方案--------------------
不知,帮顶

------解决方案--------------------
jf