摘要： 取程序路径 function GetAppPath: String;begin Result := ExtractFilePath(Application.ExeName);end;取计算机名1 Function GetPcName:String;2 Var3 buffer:array[0..254]of char;4 Size:Dword;5 begin6 Size:=SizeOf(Buffer);7 GetComputerName(buffer,Size);8 result:=String(Buffer);9 end;输入对话框function InputQuery(... 阅读全文

摘要： ━━━━━━━━━━━━━━━━━━━━━ 首部 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas 功能 返回字符串AText的ACount个复本 说明 当ACount为0时返回 ' ' 参考 function System.SetLength 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━... 阅读全文

摘要： 添加树的结点procedure AddNode;var Pnode,bnode:TTreeNode;begin RzCheckTree1.Items.Clear; Pnode:=RzCheckTree1.Items.Add(nil,'第1个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第11个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第12个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第13个&# 阅读全文

摘要： 图片保存到库中 1 procedure TForm1.Savebmp; 2 var 3 MyStm:TMemoryStream; 4 Jpg:TjpegImage; 5 begin 6 MyStm:=TMemoryStream.Create; 7 jpg:=TJPEGImage.Create; 8 Jpg.Assign(cxImage1.Picture.Graphic); 9 Jpg.SaveToStream(MyStm);10 MyStm.Position:=0;11 ADOQuery1.Edit;12 TBlobField(ADOQuery1.Field... 阅读全文

摘要： 下面是一个支持任意表的 SQL SERVER2000分页存储过程 1 下面是一个支持任意表的 SQL SERVER2000分页存储过程 2 //-----下面是一个支持任意表的 SQL SERVER2000分页存储过程 3 4 //----分页存储过程开始创建----------------------------------------------------------------------------------------------------------- 5 IF EXISTS (SELECT name FROM sysobjects WHERE name = 'P.. 阅读全文

摘要： 1 procedure SetDateTimeFormat; 2 var p: DWORD; //TFormatSettings ; 3 begin 4 SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, pchar('yyyy-MM-dd')); //设置短日期格式 5 SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, pchar('H:mm:ss')); 6 //设置时间格式，24小时制 7 SendMes... 阅读全文