F fxh7622 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-03 #2 Str:array of Integer; SetLength()。
李 李翔鹏 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-03 #4 var Str:array of Integer; begin SetLength(Str,3); Str[0] := 1; Str[1] := 2; Str[2] := 3; end; end.
W wuchunhua Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-03 #5 var Str:array of byte; i:integer ; begin SetLength(Str,100); for i:= low(str) to high(str) do begin str := $00 ; end; //调用 showMessage(intToHex(str[1],2)) ; end; end.
var Str:array of byte; i:integer ; begin SetLength(Str,100); for i:= low(str) to high(str) do begin str := $00 ; end; //调用 showMessage(intToHex(str[1],2)) ; end; end.