현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - 델퍼드가 추첨을 할 거야! ! !

델퍼드가 추첨을 할 거야! ! !

프로그램 TForm 1. Button 1Click (보낸 사람: to object);

변수를 정의합니다

Rname: 배열 [0..9] 의 문자열;

시작

Rname[0] :=' 장삼';

Rname[ 1] :=' 이사';

Rname[2] :=' 왕오';

Rname[3] :=' 류란';

Rname[4] :=' 리치';

Rname[5] :=' 거북이';

Rname[6] :=' 주 9';

Rname [7]: =' primaryone';

Rname[8] :=' 대학교 2 학년';

Rname[9] :=' 셋째';

편집1. 텍스트: = rname [random (10)];

끝;