xtljyar的个人资料

No_Title , / \ { } p ! ; : ; | : | | : | l ; l l ; l I ; I I ; I I ; I I ; I d | b H | H H | H H I H ,;, H I H ,;, ;H@H; ;_H_;, ;H@H; `\Y/d_,;|4H@HK|;,_b\Y/' '\;MMMMM$@@@$MMMMM;/' "~~~*;!8@8!;*~~~" ;888; ;888; ;888; ;888; d8@8b O8@8O T808T `~`

Who are they? 吧主和活跃在pascal吧的人(比如希冀工作室)都是哪些大牛?Who knows?

turbovision吧会Turbo Vision的到turbovision吧(中间无空格),互相学习!

教你怎么骗点击率就这样骗

Who knows me come

三维弹球hidden test 打开三维弹球,开局,用键盘输入hidden test,可以用鼠标控制弹球!这是前人破的密码试一下

";" expected, 谢谢拉 uses Dos,App,Dialogs,Drivers,Editors,Memory,Menus, Msgbox,Objects,Stddlg,Views;结果在TP7中编译, ^此处出现问题:";" expected";"已经打上了,怎么出现问题?PS App,Dialogs等单元都是Turbo Vision的单元。

我的QQ:1016748953 1016748953在OI方面谁教我?还有,如果回答下列问题之一则…重奖!1.Auto病毒中的Autorun代码是?2.Pascal如何使用shutdown?

在FP中插入中文如何在FREE PASCAL中插入中文?

Greedy Snake Bug {Greedy Snake Source}program GReedySNAKE;uses Crt;const up=0; right=1; down=2; left=3; usual=0; bonus=1; shorten=2;type point=record x,y:integer;end;type tfood=record fpoint:point; ftype:byte; case byte of usual:(); bonus: (btime:word; bscore:byte); shorten: (stime:word; slength:byte);end;var cur,bin:point; food:tfood; track:array[1..200]of point; ch:char; dir:byte; hit:boolean; int,length,score:integer;function pzero(p:point):boolean;var bool:boolean;beginif (p.x=0) and (p.y=0) thenbool:=trueelsebool:=false;pzero:=bool;end;procedure pwrite(p:point;ch:char);beginif not pzero(p) thenbegin gotoxy(p.x,p.y); write(ch);end;end;function psame(p,p2:point):boolean;var bool:boolean;begin if (p.x=p2.x) and (p.y=p2.y) then bool:=trueelsebool:=false;psame:=bool;end;procedure pset(var p:point;x2,y2:integer);beginp.x:=x2;p.y:=y2;end;procedure newfood(var sfood:tfood);var int2:integer; okay:boolean;beginwith sfood dobegin pwrite(fpoint,' '); ftype:=random(9); if (ftype=3) or (ftype=4) then ftype:=1; if ftype=5 then ftype:=2; if ftype>5 then ftype:=0; case ftype of usual:; bonus: begin btime:=(random(3)+4)*20; {20=1000/50} bscore:=8-(btime div 20); end; shorten: begin if 3>length then ftype:=usual else begin stime:=(random(3)+4)*20; slength:=random(2)+1; end; end; end; repeat okay:=true; pset(fpoint,random(78)+2,random(46)+2); for int:=1 to length do okay:=okay and (not psame(fpoint,track[int])); okay:=okay and (not psame(fpoint,cur)) and (not psame(fpoint,bin)); until okay; case ftype of usual: begin textcolor(lightmagenta); pwrite(fpoint,#3); textcolor(yellow); end; bonus: begin textbackground(red); pwrite(fpoint,'B'); textbackground(black); end; shorten: begin textbackground(green); pwrite(fpoint,'S'); textbackground(black); end; end;end;end;procedure newtrack;var int:integer;beginpwrite(bin,' ');for int:=1 to length dopwrite(track[int],#219);textcolor(lightred);pwrite(cur,#2);textcolor(yellow);gotoxy(cur.x,cur.y);end;beginrandomize;checkbreak:=false;textbackground(black);textcolor(yellow);clrscr;writeln('Greedy snake');writeln('Use the ',#27#24#25#26,' keys to control the snake.');writeln('Pressing one of those keys continually can make the snake go faster.');textcolor(lightmagenta);write(#3);textcolor(yellow);writeln(' Ordinary food, score+10 if eaten.');textbackground(red);write('B');textbackground(black);writeln(' Bonus food, score+40 or 60 or 80 if eaten. Be quick and eat!');writeln('If eaten, the length of the snake will enormously increase.');writeln('So try to eat this food:');textbackground(green);write('S');textbackground(black);writeln(' The food to shorten the length of the snake. Also be quick!');

About EditWindow I am making WinSearch v4.5 and there is a problem causing the failure of one step. :-(How to copy the contents of a file into an EditWindow in TP7's Turbo Vision?Use TStream? TDosStream? TBufStream?It would be better if there is an example.