摘要: 编译指令 PointerMath 默认 off; 打开后, 可以像数组一样地读写指针中的系列数据, 非常方便!//测试整数指针procedure TForm1.Button1Click(Sender: TObject);var p: PInteger; i: Integer;begin{$POINTERMATH ON} //写入 p := GetMemory(SizeOf(Integer)... 阅读全文
posted @ 2009-12-07 17:51 万一 阅读(4534) 评论(0) 推荐(0) 编辑
摘要: var s1,s2: string; b1,b2: Boolean;begin s1 := 'C:\Temp'; s2 := 'c:\temp'; b1 := SameText(s1, s2); //True b2 := s1 = s2; //False ShowMessage(BoolToStr(b1,True) + ' - ' + BoolToStr(b2,True));end; 阅读全文
posted @ 2009-12-07 15:39 万一 阅读(5420) 评论(3) 推荐(0) 编辑