H
hgptm
Unregistered / Unconfirmed
GUEST, unregistred user!
各位, 用ReadByte函數(相信大家都看得懂), 給參數T賦數組形字符後,
能夠讓程序產生 一執行ReadByte就自動消失的效果, 就給分.
(注意: 一定要讓我知道給的T的詳細字符是什麼)
此非不良動作, 因為本人是希望能找到: [red]給字符型數組T賦什麼字符的時候, 能產生 一執行ReadByte就讓程序 自動消失的效果[/red],
function Readbyte(n : integer; T : array of char): byte;
var
p: PByte;
begin
try
p := PByte(@Result);
p^ := ord(T[n]);
Except
Result :=0;
end;
end;
能夠讓程序產生 一執行ReadByte就自動消失的效果, 就給分.
(注意: 一定要讓我知道給的T的詳細字符是什麼)
此非不良動作, 因為本人是希望能找到: [red]給字符型數組T賦什麼字符的時候, 能產生 一執行ReadByte就讓程序 自動消失的效果[/red],
function Readbyte(n : integer; T : array of char): byte;
var
p: PByte;
begin
try
p := PByte(@Result);
p^ := ord(T[n]);
Except
Result :=0;
end;
end;