procedure
TForm1
.
Button1Click
(
Sender
:
TObject
);
var
result : Integer ;
i : Integer ;
begin
Memo1 . Clear ;
for i := 0 to 10 do
begin
Randomize ;
Result := Random ( 1000 )+ 1 ;
Memo1 . Lines . Add ( IntToStr ( result ));
end ;
end ;
var
result : Integer ;
i : Integer ;
begin
Memo1 . Clear ;
for i := 0 to 10 do
begin
Randomize ;
Result := Random ( 1000 )+ 1 ;
Memo1 . Lines . Add ( IntToStr ( result ));
end ;
end ;
5157

被折叠的 条评论
为什么被折叠?



