D
dddk
Unregistered / Unconfirmed
GUEST, unregistred user!
最近我编程时遇到一个令人不可思议的问题:
首先通过Listbox1的属性向Listbox1添加一个字符串'good';
procedure TForm1.ListBox1Click(Sender: TObject);
var
string1,string2:string;
begin
string1:='good';
string2:=listbox1.items.text;
if pos(string1,string2)=0 then
//pos为字符串匹配函数，等于0为string1,string2相等。
...
.....
..
end;
按理说应该相等，执行IF下面的语句，可是实际上并没有执行。
后来通过单步调试，在监视列表中监视string1,string2的变量时，
才发现此时的
string1为'good',而string2为'good'#$D#$A,在'good'后面多出了#$D#$A。
请问如何解决？
首先通过Listbox1的属性向Listbox1添加一个字符串'good';
procedure TForm1.ListBox1Click(Sender: TObject);
var
string1,string2:string;
begin
string1:='good';
string2:=listbox1.items.text;
if pos(string1,string2)=0 then
//pos为字符串匹配函数，等于0为string1,string2相等。
...
.....
..
end;
按理说应该相等，执行IF下面的语句，可是实际上并没有执行。
后来通过单步调试，在监视列表中监视string1,string2的变量时，
才发现此时的
string1为'good',而string2为'good'#$D#$A,在'good'后面多出了#$D#$A。
请问如何解决？