摘要:
procedure SwapBytesArr(var BytesArr:array of Byte);var i,h:Integer;begin h:=High(BytesArr); if h=1 then Exit; for i:=0 to (h div 2)-1 do begin BytesAr 阅读全文
摘要:
var JO, JO1, JO2, JRec: ISuperObject; JA1,JA2:TSuperArray; JT:TSuperAvlTree; JTI:TSuperAvlIterator; iCount,iField:integer; begin JT := SO(memo1.lines. 阅读全文