04 2017 档案

delphi中修改dbgrideh每一行的背景颜色
摘要：procedure TForm7.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin inherited 阅读全文
posted @ 2017-04-12 16:33 guoguo7325 阅读(1328) 评论(0) 推荐(0)
delphi写入文本文件代码
摘要：procedure TForm1.btn1Click(Sender: TObject);VarF : Textfile;Str,FileName:String;i:integer;Begin filename:=extractfilepath(application.ExeName)+'/'+for 阅读全文
posted @ 2017-04-05 18:00 guoguo7325 阅读(176) 评论(0) 推荐(0)