const
sName:array[0..5] of string=('邓军','杨肖军','闫爱','毛永平','马雪','邬静');
var
list:TStringList;
bagin
list:=TStringList.create;
for i:=0 to 5
list.appant(sName));
showMessage('签单人数是'+IntToStr(list.count));
end;
上边的都是错误。下边的试过了。
肯定对的:
procedure TForm1.Button3Click(Sender: TObject);
const
sName:array[0..5] of string=('邓军','杨肖军','闫爱','毛永平','马雪','邬静');
var
list:TStringList;
i:integer;
begin
list:=TStringList.Create;
for i:=0 to 5 do
list.Append(sName);
showMessage('签单人数是'+IntToStr(list.count));
end;