Delphi 使DBGrid支持鼠标滚轮

delphi 获取网页源码

方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。 　　本效果适用的图像格式了BMP位图，其它图片格式未做测试。

Delphi7删除字符串指定字符的例子，如图所示的运行效果，示例如下文字：“经过这几天在网上的淘金，多少也有些了解了，但是现在我发现就算将分区正确的话，分区所指向的目录区也许会有些问题。”，删除指定的文字为“在”，本例中将上述一段文字中所有的“在”全部删除，在代码部分，各个变量的定义有意思： 　　Strs, //文本字符串 　　Stre, //汉字字符串 　　St, //文本ASCII码 　　Se, //汉字ASCII码 　　L_St, //临时文本ASCII码 　　L_Se, //临时汉字ASCII码 　　Str_copy //保存文本 　　 : String; 　　Ints, //文本总长度 　　Inte, //删除汉字长度 　　i, //文本循环 　　p, //汉字循环 　　ps, //文本指针变量 　　pe, //汉字指针变量 　　Int_zh, //找到时保存汉字位置 　　Int_ch //循环查找时的变量

Delphi 使用ESC键停止循环，示例演示程序，单击按钮开始循环，按下键盘ESC键，将停止循环。程序核心代码： 　　begin 　　 for i:= 0 to 9999999 do 　　 begin 　　 Edit1.Text := IntToStr(i); 　　 //允许应用程序在循环中可以处理消息 　　 Application.ProcessMessages; 　　 //用是 ESC 键放弁循环 　　 if GetKeyState(VK_ESCAPE) and 128 = 128 then 　　 Break; 　　 end; 　　end;

Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。

Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段： 　　begin 　　Edit1.Text := inttostr(periodicity); 　　end;

Delphi生成立体字效果，在文字下面增加阴影效果，这个在PS软件中是一个常用的特效，用Delphi也可以实现这种原生效果，阴影大小和面积、角度在代码中可以设置，最终自定义的阴影效果如图所示，实现了一个不错的立体文字效果。

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

Delphi 数列的排列组合一例，演示0~N位数的任意组合，组合的数字在0~5之间，需要输入1~6整数，排列结果会显示在文本框组件中。要点代码如下： 　　ssList := TStringList.Create; 　　try 　　 if (nBase < 1) then 　　 begin 　　 end 　　 else 　　 begin 　　 if (sList.Count = 0) then 　　 begin 　　 for nIdx := 0 to num-1 do 　　 ssList.Add(a[nIdx]); 　　 end 　　 else 　　 begin 　　 for nIdx := 0 to num-1 do 　　 for nSidx := 0 to sList.Count-1 do 　　 if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then 　　 ssList.Add(a[nIdx]+sList.Strings[nSidx]); 　　 end; 　　 Combine(nBase-1, ssList); 　　 end; 　　 if ssList.Count > 0 then 　　 begin 　　 sList.Clear; 　　 sList.Text := ssList.Text;sslist.Count 　　 end; 　　finally 　　 ssList.Free; 　　end;

Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码： 　　procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent); 　　var 　　 nProps, i: Integer; 　　 PropList: PPropList; 　　 Value: Variant; 　　 newNode: IXmlNode; 　　begin 　　 nProps := GetTypeData (Comp.ClassInfo)^.PropCount; 　　 GetMem (PropList, nProps * SizeOf(Pointer)); 　　 try 　　 GetPropInfos (Comp.ClassInfo, PropList); 　　 for i := 0 to nProps - 1 do 　　 begin 　　 Value := GetPropValue (Comp, PropList [i].Name); 　　 NewNode := iNode.AddChild(PropList [i].Name); 　　 NewNode.Text := Value; 　　 if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then 　　 if TObject (Integer(Value)) is TComponent then 　　 NewNode.Text := TComponent (Integer(Value)).Name 　　 else 　　 ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent); 　　 end; 　　 finally 　　 FreeMem (PropList); 　　 end; 　　end;