選修課上學的delphi 哪位大神來給我解答 本人表示 都沒聽。。

1.

procedure?TForm1.btn1Click(Sender:?TObject);

var

i:integer;

begin

for?i:=StrToInt(edt1.text)?to?StrToInt(edt2.text)?do

begin

if?i?mod?3?=0?then

mmo1.Lines.Add(IntToStr(i));

end;

end; 2.

procedure?TForm1.btn1Click(Sender:?TObject);

var

i:integer;

begin

lst1.MultiSelect:=True;

for?I?:=?0?to?lst1.Count-1?do

begin

if?lst1.Selected[i]?then

begin

cbb1.Items.add(lst1.Items[i]);

end;

end;

end;

上一篇:眉山是在哪報名註冊安全工程師繼續教育培訓

下一篇:ug12移除參數怎麽調出來