摘要:
1.中文转拼音 function TForm1.yHzToPy(HZ: string): char; begin case Word(HZ[1])shl 8+Word(HZ[2]) of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:resul... 阅读全文
摘要:
function TServerForm.NameToIP(): String;type pu_long = ^u_long;var varTWSAData : TWSAData; varPHostEnt : PHostEnt; varTInAddr : TInAddr; namebuf : Array[0..255] of Ansichar; fd : integer; rc : integer;begin result := ''; rc := WSAStartup($101,varTWSAData); if rc <> 0 then // raise ESoc 阅读全文
摘要:
RunOnStartup(self.SoeAppInfo1.AppName, ParamStr(0), chkAutoStart.Checked);procedure TServerForm.RunOnStartup(sProgTitle, sCmdLine: string; bStartup: boolean);var sKey: string; reg : TRegIniFile;begin sKey := ''; //sKey := 'Once' if you wish it to only run on the next time you startup 阅读全文
摘要:
1.过滤同步procedure TReport10Form.cxGridViewDataControllerFilterChanged(Sender: TObject);var cds: TClientDataSet;begin cds := cxGridView.DataController.DataSource.DataSet as TClientDataSet; try cds.Filtered := false; cds.Filter := cxGridView.DataController.filter.filtertext; cds.Filtered := True; except 阅读全文
摘要:
unit mac;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) lbl1: TLabel; lbl2: TLabel; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); p 阅读全文