摘要：1.在optioneh中设置：AutosortMarking:=True2.设置DbGridEh的属性:(不一定总要设置，与使用的数据连接有关)sortlocal:=True;3.uses 单元Ado------ehlibADoTclientData------ehlibCDSBDE ---------ehlibBDE4.Column属性TitleButton:=True 来自网络转载 阅读全文

摘要：CodeCode highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->//清空当前界面所有文本框过程procedure ClearText(AControl:TWinControl);var I : Integer;begin for I := 0 to ACon... 阅读全文

摘要：procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as TEdit).Text); if ... 阅读全文

摘要：procedure TForm3.btn_cfClick(Sender: TObject);var i,j : Integer;begin Form1.Refresh; for i:=1 to 9 do for j:=1 to i do begin Form3.Canvas.TextOut(j*50-40,i*20+40,IntToStr(j)+' * '+IntToSt... 阅读全文

摘要：学delphi一周了，感觉有些别扭，可能是自己一直用微软的开发工具 var I: Integer;begin if I > 0 then {如果I大于0} Dosomething1 {如果这里是2行或以上，要使用begin...end 包起来} else if I < 0 then {如果I小于0，else if 块不是必须的，但是else 的上面一行结尾不要用... 阅读全文

摘要：在金额，重量，长度等单位中使用小数是必需的，如只需要保留二位//默认为保留两位(不进行四舍五入处理) double SumPric=0.335333; string str1=String.Format( "{0:F} ",SumPric);//按照四舍五入的国际标准double SumPric=0.335333; Math.Round(0.333333,2);另外还有一种(这种可以，但是... 阅读全文