其实也差不多:
var
i : integer;
tempStr : string;
begin
with checklistbox1 do
begin
i := ItemIndex;
if i <> - 1 then
begin
tempStr := items[0];
for i := 0 to count - 2 do
items[i] := items[i+1];
items[i] := tempStr;
end;
end;
var
i : integer;
tempStr : string;
begin
with checklistbox1 do
begin
i := ItemIndex;
if i <> - 1 then
begin
tempStr := items[0];
for i := 0 to count - 2 do
items[i] := items[i+1];
items[i] := tempStr;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货