摘要:
procedure Move( const Source; var Dest; count : Integer );{$IFDEF PUREPASCAL}var S, D: PChar; I: Integer;begin S := PChar(@Source); D := PChar(@Dest); if S = D then Exit; if Cardinal(D) > Cardinal(... 阅读全文
posted @ 2010-11-05 08:48
AppleAndPear
阅读(197)
评论(0)
推荐(0)
浙公网安备 33010602011771号