Question

delphi 字符串的问题

procedure TForm1.btn1Click(Sender: TObject);
var

stris1, stris2,str :string ;
is1,is2,int :Integer ;
begin
stris1 :=Edit1.Text ;
stris2 :=Copy(Edit2.Text,1,1) ;
is2 :=Length(Edit2.Text) ;
for int :=1 to Length(Edit1.Text) do
begin
if Copy(Edit1.Text,int,1)=stris2 then
begin
stris1 :=Copy(Edit1.Text,int,is2);
if CompareStr(stris1,Edit1.Text)=0 then
begin
is1 :=0 ;
break ;
end
else
is1 :=1 ;
end;
end;
if is1 =0 then
ShowMessage('包含字符串')
else
ShowMessage('不包含字符串');

end;

我是个初学者。。想请高手给我讲解下他每一句过程。。帮助我理解
谢谢

Answer 1

stris1 :=Edit1.Text ; //简单的赋值，没啥好说的
stris2 :=Copy(Edit2.Text,1,1) ;//stris2取Edit2.Text中的第一个字符
is2 :=Length(Edit2.Text) ;//is2 = Edit2.Text的长度
for int :=1 to Length(Edit1.Text) do //从Edit1.Text的第一个字符开始比较
begin
if Copy(Edit1.Text,int,1)=stris2 then //如果Edit1.Text的第int个字符与stris2 相同
begin
stris1 :=Copy(Edit1.Text,int,is2);//stris1 取Edit1.Text中从int开始的长度为is2的字符组合
if CompareStr(stris1,Edit1.Text)=0 then //这句写错啦，应该是CompareStr(stris1,Edit2.Text)=0 ，意思是 stris1 和 Edit2.Text相同
begin
is1 :=0 ;//赋值，做标识用
break ; //退出for 循环
end
else
is1 :=1 ;//赋值，做标识用
end;
end;
if is1 =0 then
ShowMessage('包含字符串') //提示
else
ShowMessage('不包含字符串');//提示

Answer 2

我觉得你还是看下DEPHI的基础，多看个几遍，就自然懂了

Answer 3

这个貌似是很基础的内容，没什么，我也是初学，但是能看懂，这个程序很简单，如果学过其他语言，如JAVA,C之类的，应该也能看懂，很简单。如果你妹学过程序，建议你看下基础教程，很快就能看懂了，DELPHI就是组件多，用起来很方便的。