Delphi(程序人生)

摘要： 注意:要引用System.Data.SqlClient-----------引用部份如下------------------------uses System.Collections, System.ComponentModel,System.Data.SqlClient, System.Data, System.Drawing, System.Web, System.Web.SessionSta... 阅读全文

摘要： 正则表达式的写法DoubleCat如何使用本教程别被下面那些复杂的表达式吓倒，只要跟着我一步一步来，你会发现正则表达式其实并没有你想像中的那么困难。当然，如果你 看完了这篇教程之后，发现自己明白了很多，却又几乎什么都记不得，那也是很正常的——我认为，没接触过正则表达式的人在看完这篇教程后，能把提到过的语法 记住80%以上的可能性为零。这里只是让你明白基本的原理，以后你还需要多练习，多查资料，才能熟... 阅读全文

摘要： RequiredFieldValidator1 一旦这个组件写上了InitialValue它就变为值较验,而不是必填较验------------------------------------------------------------------------------------1,设置CustomValidator的关联2,在ClientValidationFunction里写上一个函数... 阅读全文

摘要： procedure TDefault.Button5_Click(sender: System.Object; e: System.EventArgs);var a:Tablerow; //定义行 b,c:TableCell; //定义列begin a:=TableRow.Create; b:=TableCell.Create(); b.Text:='Hello Word'; c:=TableCe... 阅读全文

摘要： procedure TDefault.Button3_Click(sender: System.Object; e: System.EventArgs); var a:ListItem; s:string; begin for a in Self.CheckBoxList1.Items do begin if a.Selected then s:=... 阅读全文

摘要： TList不仅可以于字串,也可用于实数,而TStringList仅用于String用法也比较简单 --------------------------------------------------------------------------- procedure TForm1.Button6Click(Sender: TObject); var a:TStringList; begin ... 阅读全文

摘要： 这里主要用到指针 ------------------- //这是比较函数 function CompareNames(Item1, Item2: Pointer): Integer; begin Result := CompareText(string(Item1^),string(Item2^)); //地址指针转成String后再比 end; procedure TForm1.Bu... 阅读全文

摘要： 注意:同样引用 Contnrs -------------------------- procedure TForm1.Button3Click(Sender: TObject); var a:TQueue; s1,s2:string; p:^string; begin a:=TQueue.Create; s1:='Hello'; s2:='Word'; a... 阅读全文

摘要： 要引用:Contnrs ----------------------- procedure TForm1.Button1Click(Sender: TObject); var a:TStack; s1,s2:string; b:^string; begin s1:='Hello'; s2:='Word'; a:=TStack.Create; ... 阅读全文