pascal 背景閃動直至user按enter點做

2011-07-18 6:45 am

想打個starting係背景閃動直至user按enter先跳去另一個畫面
要點用??? 係咪要readkey??
可唔可以教一教我 thz

更新1:

唔該哂你呀! 但係我唔明If (any key pressed ?) then 要點打係咪姐係 begin mystring := ''; repeat If (any key pressed ?) then <- 唔明 mysting:= ????? (note: 如果鍵碼係8，要刪去最後) else ProcessAnimation ; until mysting= #13; end; if then 果part唔係好明..但唔該哂你!!

回答 (1)

Lee

2011-07-18 7:53 am

✔ 最佳答案

pascal本身並不是 event driven，要令某些東西不斷變動較麻煩。
不可以用readln，因為會令程式停留等候。要用readkey自行讀入。
我的方法會是，自行寫一個 proceudre GetUserLine(var Mystring : string);
內裡流程 (pseudo code)
begin
mystring := '';
repeat
If (any key pressed ?) then
readkey 及加到一個 mystring;
(note: 如果鍵碼係8，要刪去最後)
else
ProcessAnimation ;
until 最後按的鍵係 13; (即係enter)
end;
procedure ProcessAnimation要令畫面某位置變更，可以用系統時間決定，例如用 /-\-做成轉動，每次加一，將其中一字元顥示。
把你的 getuserline 最代 readln 就可以。

👍 0 👎 0