摘要： uses里面加ComObj function GetIP: string; //获取外网IPvarxml : OleVariant;r:string;p1,p2 : Integer;beginxml := CreateOleObject('Microsoft.XMLHTTP');xml.Open('GET','http://www.ip138.com/ip2city.asp', False);xml.Send;r := xml.responseText;p1:=Pos('[',r);p2:=Pos(']',r); Result := Copy(r, p1+1, p2-p1-1);end; 阅读全文

摘要： 1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin Assignfile(PrnFileName,Money_Port); printer.Canvas.Font.Name:='宋体'; printer.Canvas.Font.Size:=8; printer.Canvas.Font.Charset:=GB2312_CH 阅读全文

摘要： 平时你使用的是什么工具发送电子邮件？是Outlook，Foxmail或是其它？无论以前是什么，现在你都可以多一种选择：使用自己编写的邮件发送程序。而且对于Delphi来说，要完成它是如此的简单，那就让我们动手吧！　　构件组成　　Delphi 5构件板的FastNet页中，提供了TNMSmtp构件，它的功能就在于将邮件发送到指定的邮件服务器。其最常用的属性和方法如下：　　Host：SMTP邮件服务器的地址，如SMTP.SINA.COM.CN　　Port：SMTP邮件服务器的端口号，一般用其默认值25即可　　UserID：用户名，当与邮件服务器建立连接时，需验证用户名　　PostMessage.F 阅读全文

摘要： s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 } s := Format('最大的无负号整数是: %u',[High(Cardinal)]); //返回: 最大的无负号整数是: 4294967295 { %u表示一个无负号整数 } s := Format('输入-2的结果是: %u',[-2]); //返回: 输入-2的结果是: 42 阅读全文

摘要： 不允许下拉if (key=VK_DOWN) and (resultset.RecNo= resultset.RecordCount) then key:=0; if (key=VK_TAB) and (DBGridEh1.SelectedField.FieldNo=resultset.FieldCount) then key:=0; valuetype = fvtsumfieldname = ***displayformat := #,##0.00000000% dbgrid 小数转百分比 footer.displayformat := #,##0.00000000 begin i:=dbg 阅读全文

摘要： Source := '12345678'; Target := Copy(Source, 3, 4);=3456pos('b','abcd'); =2StringReplace('2008-3-22', '-', '', [rfReplaceAll]);=2008322 阅读全文

摘要： 这里有对TIniFile对象的完整介绍：使用Delphi内置函数读写INI文件看完上面的介绍，我们开始对ini文件进行读写操作首先准备一个ini文件，位置和程序在同一个目录下，文件内容如下：[System]Server=127.0.0.1DataBaseName=pubsUserName=saPassword=然后开始画窗体，添加四个Edit控件，和一个Button控件，使用默认的名称最后写代码：implementationuses IniFiles;variFile :TiniFile;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject 阅读全文

摘要： function getPY(hzchar:string):char;begincase word(hzchar[1])shl 8+word(hzchar[2]) of$B0a1..$B0c4:result:='A';$B0C5..$B2C0:result:='B';$B2C1..$B4ED:result:='C';$B4EE..$B6E9:result:='D';$B6EA..$B7A1:result:='E';$B7A2..$B8C0:result:='F';$B8C1..$B9FD:result:='G';$B9FE..$BBF6:result:='H';$BBF7..$BFA5:res 阅读全文

摘要： Backspace-8 Tab-9 Return-13 Pause-19 CapsLock-20 Esc-27 Space-32 PageUp-33 PageDown-34 End-35 Home-36 LeftArrow-37 UpArrow-38 RightArrow-39 DownArrow-40 PrintScrn-44 Insert-45 Delete-46 0-48 1-49 2-50 3-51 4-52 5-53 6-54 7-55 8-56 9-57 A-65 B 阅读全文