04 2019 档案

delphi字符串固定长度换行
摘要：var str,capstr:string; i,j:integer; .................... j:=500; //这个地方可能要根据你显示的宽度来换算对应的字符长度 str:=somestring; capstr:='' i:=1 while i<=length(somestri 阅读全文
posted @ 2019-04-24 17:13 快乐的正能量 阅读(1288) 评论(0) 推荐(0)
delphi存取图片
摘要：1、存图片到数据库 var PicStream: TMemoryStream; if imgBugPic.Picture.Graphic <> nil then begin PicStream := TMemoryStream.Create; // 创建内存流 imgBugPic.Picture.G 阅读全文
posted @ 2019-04-21 18:16 快乐的正能量 阅读(492) 评论(0) 推荐(0)
fastreport字体加粗
摘要：procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin IF (='↓') THEN BEGIN frxdb_cdsresultres_chr.FONT.COLOR:=CLblue; frxdb_cdsr... 阅读全文
posted @ 2019-04-15 13:34 快乐的正能量 阅读(805) 评论(0) 推荐(0)
delphi 连接oracle对接代码
摘要：selectt4.vclen60 as pat_d_codename,t4.vclen60 as pat_sexname,t1.pat_sex,t1.pat_d_code,t1.pat_in_no,t1.pat_bedno,t1.pat_age_exp,t1.pat_name,t2.itr_name 阅读全文
posted @ 2019-04-15 10:39 快乐的正能量 阅读(955) 评论(0) 推荐(0)
Trystrtofloat
摘要：TryStrToFloat为 ‘+1’和‘-1’和 ‘.1’是可以装换成功的 阅读全文
posted @ 2019-04-11 16:23 快乐的正能量 阅读(270) 评论(0) 推荐(0)
去掉整数前面多余的0
摘要：var str, lstmpdata, temp: string;begin// str := '00030.0';// str := '00.2'; lstmpdata := '<0020.0'; if (Copy(lstmpdata,1,1)='>' )Or (Copy(lstmpdata,1, 阅读全文
posted @ 2019-04-09 15:29 快乐的正能量 阅读(357) 评论(0) 推荐(0)
查询字符串第一次出现的数字
摘要：var str, lnum: string; i, flag: Integer;begin str := 'er12rr3456'; flag := 0; i := 1; while i < Length(str) do begin if str[i] in ['0'..'9', '.'] then 阅读全文
posted @ 2019-04-08 11:03 快乐的正能量 阅读(544) 评论(0) 推荐(0)
字符串
摘要：用StringReplace替换掉字符串中特殊符号。 S := StringReplace(S, chr(13) + chr(10), '', [rfReplaceAll]); //删除回车 S := StringReplace(S, ' ', '', [rfReplaceAll]); //删除空格 阅读全文
posted @ 2019-04-02 23:23 快乐的正能量 阅读(121) 评论(0) 推荐(0)