问个问题。。。 - delphi吧

level 1

是不是不是爷们楼主

如何用Delphi for to do实现从Edit3找出Edit1和Edit2 同时存在的字母

2012年12月06日 21点12分 1

吧务

level 14

BambooCaep

作业？呵呵，自己做吧。

2012年12月07日 03点12分 2

level 13

…烟花飘飘…

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
j:integer;
s:string;
begin
s:='';
if length(edit1.Text) < length(edit2.Text) then
begin
i:=length(edit1.Text);
for j:=1 to i do
if pos(midstr(edit1.Text,j,1),edit2.Text )>0 then s:=s+midstr(edit1.Text,j,1);
edit3.Text := s;
end
else
begin
i:=length(edit2.Text);
for j:=1 to i do
if pos(midstr(edit2.Text,j,1),edit1.Text )>0 then s:=s+midstr(edit2.Text,j,1);
edit3.Text := s;
end;
end;
end.

2012年12月22日 05点12分 3