UC知道delphi的for语句
来源：百度知道 编辑：UC知道 时间：2024/06/17 17:27:30
var
x,i :Integer;
ss :string;
begin
ss := '';
x := StrToInt(Edit1.Text);
for i := 1 to x do
begin
if ss = '' then
ss := '1'
else
ss := ss + ',1';
end;
Edit10.Text :=ss;
end;
上面语句只能实现1,1,.........
我想实现的功能是我在Edit1.Text 写3那么语句是1,2,3,如果写4那么为1,2,3,4
并且就是还想实现一个功能就是,我再写一个edit2.text.前提都是在Edit1.Text 写5
那么我在edit2.text写2的话，最终语句是1,自己写的,3,4,5
我在edit2.text写4的话,最终语句是1,2,3,自己写的,5
我想实现的功能是我在Edit1.Text 写3的话,那么语句是1,2,3,如果写4那么为1,2,3,4
并且就是还想实现一个功能就是,我再写一个edit2.text.前提都是在Edit1.Text 写5
那么我在edit2.text写2的话，最终语句是edit3.text:=1,name,3,4,5
那么我在edit2.text写4的话，最终语句是edit3.text:=1,2,3,name,5
edit2.Text :=edit2.Text +','+ss; 这句的最终语句是edit3.text:=,1,2,3,4,5
这并不是我想达到的效果. 开头的,一定要去掉.
x,i :Integer;
ss :string;
begin
ss := '';
x := StrToInt(Edit1.Text);
for i := 1 to x do
begin
if ss = '' then
ss := '1'
else
ss := ss + ',1';
end;
Edit10.Text :=ss;
end;
上面语句只能实现1,1,.........
我想实现的功能是我在Edit1.Text 写3那么语句是1,2,3,如果写4那么为1,2,3,4
并且就是还想实现一个功能就是,我再写一个edit2.text.前提都是在Edit1.Text 写5
那么我在edit2.text写2的话，最终语句是1,自己写的,3,4,5
我在edit2.text写4的话,最终语句是1,2,3,自己写的,5
我想实现的功能是我在Edit1.Text 写3的话,那么语句是1,2,3,如果写4那么为1,2,3,4
并且就是还想实现一个功能就是,我再写一个edit2.text.前提都是在Edit1.Text 写5
那么我在edit2.text写2的话，最终语句是edit3.text:=1,name,3,4,5
那么我在edit2.text写4的话，最终语句是edit3.text:=1,2,3,name,5
edit2.Text :=edit2.Text +','+ss; 这句的最终语句是edit3.text:=,1,2,3,4,5
这并不是我想达到的效果. 开头的,一定要去掉.
var
x,i :Integer;
ss :string;
begin
ss := '';
x := StrToInt(Edit1.Text);
for i := 1 to x do
begin
if ss = '' then
begin
if i=strtoint(Edit2.Text) then ss:='name'
else ss := '1';
end
else
begin
if i=strtoint(Edit2.Text) then ss := ss+',name'
else ss :=ss + ','+inttostr(i);
end;
end;
Edit1.Text :=ss;
end;
var
x,i :Integer;
ss :string;
const
s = 'name'; //自己写的
begin
ss := '';
x := StrToInt(Edit1.Text);
for i := 1 to x do
begin
if Edit2.Text <> '' then
begin
if StrToInt(Edit2.Text) = i then
if ss = '' then
ss := s
else
ss := ss + '