快乐的正能量

摘要： var str,capstr:string; i,j:integer; .................... j:=500; //这个地方可能要根据你显示的宽度来换算对应的字符长度 str:=somestring; capstr:='' i:=1 while i<=length(somestri 阅读全文

摘要： 1、存图片到数据库 var PicStream: TMemoryStream; if imgBugPic.Picture.Graphic <> nil then begin PicStream := TMemoryStream.Create; // 创建内存流 imgBugPic.Picture.G 阅读全文

摘要： procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin IF (='↓') THEN BEGIN frxdb_cdsresultres_chr.FONT.COLOR:=CLblue; frxdb_cdsr... 阅读全文

摘要： 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 阅读全文

摘要： TryStrToFloat为 ‘+1’和‘-1’和 ‘.1’是可以装换成功的 阅读全文

摘要： var str, lstmpdata, temp: string;begin// str := '00030.0';// str := '00.2'; lstmpdata := '<0020.0'; if (Copy(lstmpdata,1,1)='>' )Or (Copy(lstmpdata,1, 阅读全文

摘要： 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 阅读全文

摘要： 用StringReplace替换掉字符串中特殊符号。 S := StringReplace(S, chr(13) + chr(10), '', [rfReplaceAll]); //删除回车 S := StringReplace(S, ' ', '', [rfReplaceAll]); //删除空格 阅读全文

摘要： SetWindowPos 函数功能：该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最高，并且被设置为Z序的第一个窗口。 函数原型：BOOL SetWindowPos（HWN hWnd，HWND hWndl 阅读全文

摘要： FindWindow(lpClassName, {窗口的类名}lpWindowName: PChar {窗口的标题}): HWND; {返回窗口的句柄; 失败返回 0}//FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx(Parent: HWND; {要 阅读全文