- 博客(11)
- 收藏
- 关注
RSS订阅原创 Delphi Json试用
简单试用一下JsonUses System.JsonVar AJson : TJSONObject //Json对象 A: string; //Json字符begin AJson := TJSONObject.ParseJSONValue(tmpStr) as TJSONObject; MM_2.Lines.Add('开始：');//MM_2为Memo控件，为了看一下效果。 MM_2.Lines.Add('共有：' + IntToStr(AJson.Count)); for
2021-10-26 21:49:30
142
原创 Delphi 长时间不操作提示
procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;beginvLastInputInfo.cbSize := SizeOf(vLastInputInfo);GetLastInputInfo(vLastInputInfo);if GetTickCount - vLastInputInfo.dwTime > 5000 thenbegintimer1.Enabled:= false
2021-10-26 21:40:14
334
原创 delphi 输入框edit输入限制
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif not (Key in [‘0’…‘9’]) thenKey := Chr(0); //禁止输入字符end;procedure TForm1.Button1Click(Sender: TObject);beginEdit1.SetFocus; //给于焦点//SendMessage(Edit1.Han
2021-10-26 21:35:55
1168
原创 Delphi 打印cxgrid自身过滤后的数据
用语句cxGridDBTableView.Controller.Filter.Filteringtext获得筛选语句 你可以在程序中用ADOQUERY来接受这条语句（还可以自己扩展） FSATREPORT的数据集指向QUERY就可以了 试试。adoquery1.Filtered :=true;tryadoquery1.Filter :=cxGrid1DBTableView1.DataController.filter.filtertext;exceptadoquery1.F
2021-07-19 23:30:29
391
原创 DelPhi 用image读取数据库中图片
ADODataSet1的WarePic是事先存到数据库的图片。这里将其取出到image里var a : tmemoryStream; a := TMemoryStream.Create; ADODataSet1WarePic.savetostream(a); a.Position := 0; Image1.Picture.Bitmap.LoadFromStream(a); a.free如果控件所占用面积较小，把属性stretch 改成true。...
2020-08-06 13:52:09
992
原创 Delphi 处理字符串常用函数
基础方法：Pos(a,b)：该函数用于查询a在b中第一次出现的位置；Pos('a','xa city,xa city'); // 返回则是2copy(a,x,y)： 从a字符串的x处开始,截取y个字符的串返回.copy('gk,nmlgbd',4,6); //返回‘nmlgbd’Delete(a, x, y)：从a中的x开始删除，删除y个字符vara ： sting;a := 'gk,nmlgbd';Delete(a,3,7); showmessa
2020-07-31 18:05:31
380
原创 Delphi报错 ‘2020/07/21‘ is not a valid date
问题：该错误可能是由StrToDate（X）引起，如标题，X:=‘2020/07/21’;是由于该字符串的日期格式和系统的格式不同（此时我系统的格式是：2020-07-21）。办法：StrToDate(StringReplace('已知字符','/',FormatSettings.DateSeparator,[rfReplaceAll]))FormatSettings.DateSeparator：即为系统当前分隔符。...
2020-07-21 23:27:23
985
原创 delphi IDE代码折叠
有时候一个单元的代码过于多和繁琐，为了查看简便，就需要代码折叠来清晰显示eg：{$REGION '描述这段代码的功能'}//代码块{$ENDREGION}
2020-06-24 16:14:16
1079
原创 delphi 数字转字符串补全
问题：158=>‘00158’Temp := 158Str := ?str := rightstr(‘00000’ + inttostr(Temp),5)str := format(’%5.5d’,[Temp])
2020-06-22 22:40:34
814
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人