Q&A
- random 함수 사용 방법이 궁금합니다.
델파이에서 random함수 쓰는 것 좀 가르쳐 주세요
문제: 16개의 숫자를 임의로 뽑아내는것입니다.
최고 숫자가 10000이구요,..나머지는 임의대로 나오게 하는거요.
앞에 사람꺼 복사해서 올리는건데요..
어쨌든 도와주세요..
procedure TForm1.Button1Click(Sender: TObject);
var
k,m,kn,n: integer;
begin
for k:= 0 to 15 do
begin
for m:= 0 to k do
begin
Randomize;
n:= random(15);
if strtoint(button1.caption)= n then
kn:=kn+1;
end;
if kn<=0 then
begin
//button[1].Caption:=inttostr(n);
kn:=0;
END;
end;
문제: 16개의 숫자를 임의로 뽑아내는것입니다.
최고 숫자가 10000이구요,..나머지는 임의대로 나오게 하는거요.
앞에 사람꺼 복사해서 올리는건데요..
어쨌든 도와주세요..
procedure TForm1.Button1Click(Sender: TObject);
var
k,m,kn,n: integer;
begin
for k:= 0 to 15 do
begin
for m:= 0 to k do
begin
Randomize;
n:= random(15);
if strtoint(button1.caption)= n then
kn:=kn+1;
end;
if kn<=0 then
begin
//button[1].Caption:=inttostr(n);
kn:=0;
END;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 해후
- 2001.02.22 04:00
- 0 COMMENTS
- /
- 0 LIKES
-
- hobakpa
- •
- 2001.02.22 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2001.02.22 06:50안녕하세요? 고드름 김정입니다. 엑셀의 SHEET를 COM 객체로 연결해서 부르고 각 셀에 데이터를 넘기...
-
- 김양미
- •
- 2001.02.22 03:11
- 3 COMMENTS
- /
- 0 LIKES
-
뻐록이•2001.02.22 03:23김양미 wrote: > listBox에서 multiselect 한걸 표현하긴했는데.. > > multiselect된 것이 끝인지를 알...
-
(__)a•2001.05.04 03:30요렇게 해두 이쁠듯. procedure TForm1.Button1Click(Sender: TObject); var strtemp : String; ...
-
김양미•2001.02.22 18:26*^^*
-
-
^-_-^•2001.02.22 03:18yo` 흠..비베에서 어떤방식으로 하는지는 모르겟지만, 흠... 어느 변수에 몽땅 들어오나요?? 파이...
-
델파초짜..•2001.02.22 03:32흠.. 니의 답변 잘 봤습니다.. 콤보를 센타까면 되는군요.. 센타 깠는데 안내노면.. 때려도 돼나요^^; ...
-
조복기•2001.02.22 09:17안녕하세요~.. 비베의 레코스셋처럼 델파이에서도 쿼리를 오픈하면 데이타셋에서 그 값을 가지고 있...
-
-
- 진짜 초보.
- •
- 2001.02.22 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 03:23안녕하세요. 최용일입니다. .dfm파일을 직접 수정하시는것은 별루 좋은 방법이 아닙니다. 그렇게 하지 ...
-
- 써니
- •
- 2001.02.22 02:41
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:21yo` 흠...수정이라...UpdateSQL을 사용해보시죠...^^;; 강좌란같은데보면 쉬운 예가 있을껍니다. ...
-
- 김양미
- •
- 2001.02.22 02:37
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:51안녕하세요. 최용일입니다. 윈도우에서 화면에 그리는 메세지는 우선순위가 가장 낮습니다. 빠른 속도를...
-
^-_-^•2001.02.22 02:40yo` > label1.caption := cnt; 요 코드 앞이나 뒤에 다음코드를 넣어보시고 해보시길... ...
-
김양미•2001.02.22 03:13^^;;
-
- 윤원미
- •
- 2001.02.22 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.02.22 22:35윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
비•2001.02.22 20:48윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
- 3107
- 2001.02.22 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2001.02.22 02:12안녕하세요. 최용일입니다. 정수형값이면 어느거나 가능합니다. Byte, Word, DWORD, LongInt, Intege...
-
-
- 뻐록이
- •
- 2001.02.22 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:24yo` 냠...질문이 다소 이해가 가질 않지만.... 일단 실행시 스크립트를 사용자입력으로 받아서 처리...
-
- 규
- 2001.02.22 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 구찌
- •
- 2001.02.22 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:19안녕하세요. 최용일입니다. 무슨 말씀인지 자세히 설명을 해 주셔야지 답변을 드릴텐데... 무슨 등록...
-
- 델처버
- •
- 2001.02.22 01:33
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:12yo` 질문이 헷갈리네여...^^;; > > s := ''; // 여기서 이건 왜 필요한가요 ? 그냥 변수 ...
-
- 김미희
- •
- 2001.02.24 23:25
- 1 COMMENTS
- /
- 0 LIKES
델파이에서 random함수 쓰는 것 좀 가르쳐 주세요 문제: 16개의 숫자를 임의로 뽑아내는것입니다. 최고 숫자가 10000이구요,..나머지는 임의대로 나오게 하는거요. 앞에 사람꺼 복사해서 올리는건데요.. 어쨌든 도와주세요.. procedure TF...-
내컴•2001.02.22 02:38var i :integer; begin i := Random(100); // 0 부터 100까지의 랜덤한 정수 Edit1.Text := FormatF...
-
- 써니
- 2001.02.22 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- 2001.02.22 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.02.24 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보사리
- •
- 2001.02.22 00:55
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:37안녕하세요. 최용일입니다. 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네요... 직접 구현하시는...
-
바보사리•2001.02.22 05:19최용일 wrote: > 안녕하세요. 최용일입니다. > > 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네...
-
최용일•2001.02.22 05:42여기 자료실에도 조복기님이 만드신 그리드가 있어요... 그 외에도 몇개 있구요... 여기 국외 링크에 보...
-
- 김태일
- 2001.02.22 00:41
- 0 COMMENTS
- /
- 0 LIKES
i :integer;
begin
i := Random(100); // 0 부터 100까지의 랜덤한 정수
Edit1.Text := FormatFloat('#,###', i);
end;
위 문장은 0부터 100까지의 램덤한 정수를 보여주는 예제입니다.
질문 하신 내용과 맞는 답인지...
김미희 wrote:
> 델파이에서 random함수 쓰는 것 좀 가르쳐 주세요
> 문제: 16개의 숫자를 임의로 뽑아내는것입니다.
> 최고 숫자가 10000이구요,..나머지는 임의대로 나오게 하는거요.
>
> 앞에 사람꺼 복사해서 올리는건데요..
> 어쨌든 도와주세요..
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> k,m,kn,n: integer;
>
> begin
>
> for k:= 0 to 15 do
> begin
> for m:= 0 to k do
> begin
> Randomize;
> n:= random(15);
> if strtoint(button1.caption)= n then
> kn:=kn+1;
> end;
> if kn<=0 then
> begin
> //button[1].Caption:=inttostr(n);
> kn:=0;
> END;
> end;