11 seagull327

尚未进行身份认证

若大的世界

等级
TA的排名 6k+

有线网卡走私网,无线走公网

Local Geteway:192.168.10.254Wifi Geteway:192.168.13.254route delete 0.0.0.0 mask 0.0.0.0 192.168.13.254route add 192.168.0.0 mask 255.255.0.0 192.168.13.254

2019-11-26 22:56:08

修复快捷图标丢失

@echo offsetlocal EnableDelayedExpansioncolor 2fecho.echo ------------------------------------------------------echo * 正在尝试修复系统,请稍候..... * set DT=%USERPROFILE%\Des...

2019-03-22 01:03:36

S5700交换机如何配置链路聚合

配置手工负载分担模式链路聚合示例组网需求如图1所示,SwitchA和SwitchB通过以太链路分别都连接VLAN10和VLAN20的网络,且SwitchA和SwitchB之间有较大的数据流量。用户希望SwitchA和SwitchB之间能够提供较大的链路带宽来使相同VLAN间互相通信。同时用户也希望能够提供一定的冗余度,保证数据传输和链路的可靠性。图1配置手工负载分担模式链路聚合组网图 配置思路采...

2018-02-15 16:30:41

GetDiskInfo

{$APPTYPE CONSOLE}uses SysUtils, ActiveX, ComObj, Variants;function ListDrives : string;var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant;

2015-04-28 21:46:26

Free

1、在方法中创建,在方法的收尾时.Free。2、在单元中创建,在单元的释放时.Free。二、Delphi有优化代码的功能,一般情况下,即使你不写Free。在程序结束时,它会释放的。三、写Free是程序员的一个良好的习惯。如果你的程序不是正常退出,就会造成内存被占用。四、对象的创建,如果寄宿在Form(父控件)上,Form释放时,它同时被释放,特别是无寄宿关系(父控件)的,一定要在不

2015-04-09 01:00:03

Dellphi随记

全局变量是有范围的:1、工程范围内,应定义一个单元,专门存放变量;所有的单元uses该单元;2、单元内全局变量,放在单元的 private中声明的变量,只能在本单元内使用;3、方法内的全局变量,在方法的Begin之前声明,它只能在本方法内使用,本单元调用其它方法时,它对于其它方法,就是全局变量。

2014-11-19 01:05:20

REGEXPR正则表达式

其实这个Pascal单元我在几个论坛上面都推荐过,也是我唯一会用的DELPHI下面的正则表达式实现。正则表达式是个极其繁琐和强大的东西,小生才疏学浅,也不准备写正则表达式的教程,借着对这个单元的介绍,会有一些浅显且有用的例子。首先介绍的是这个单元的主角:TRegExpr类,这个类包括很多成员,这里仅简单的介绍一下一般匹配的过程。下面是一段在文本中提取邮件地址的代码:

2014-06-07 00:59:56

Delhpi TQuery应用

9.1 有效地使用查询  要有效地使用查询,必须熟悉标准的SQL语言以及所使用的服务器对SQL-92的限制和扩展,同时还要熟悉BDE。9.1.1 查询桌面数据库  作为一个桌面开发者,应对表格、记录和字段的概念有所了解,又能熟练地使用TTable构件访问数据集中的每一条记录和每一个字段。还可以使用TTable的范围和过滤功能在数据集中选择一部分记录,前者用于选择一块连续的记录,这些

2014-06-06 14:16:40

通过指针对只读属性写操作一例

type TObj = class private FNumber: Integer; public property Number: Integer read FNumber;//只读属性,不可写 end; procedure TForm1.FormCreate(Sender: TObject);var O: TObj;begin O := TOb

2014-02-18 15:24:12

提升进程权限为DEBUG权限

procedure SetPrivilege;var OldTokenPrivileges, TokenPrivileges: TTokenPrivileges; ReturnLength: dword; hToken: THandle; Luid: int64;begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJ

2014-01-05 22:59:35

Delphi制作DLL

Delphi制作DLL一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform九 示例:十 Delphi制作的Dll与其他语言的混合编程中常遇问题:十一 相关资料一 D

2013-12-19 18:42:25

Delphi之钩子函数

目前对钩子的理解:    譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;首先发现这些事件的不是窗口, 而是系统!    然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, 你准备怎么办?或者是系统告诉窗口: 喂! 有人向你家里扔砖头了, 不信你看看, 那块砖头是 A.    这时窗口的对有些事件会忽略、对有些事件会做出反应:譬如, 可

2013-12-19 14:50:32

动态数组指针应用

Type TMyArr = array of array of array of Integer; Pint = ^TMyArr;var PArr: Pint; i, j, k, ic, jc, kc: Integer;begin ic := 2; jc := 3; kc := 4; New(PArr); SetLength(PArr^, ic, jc, k

2013-12-06 20:01:16

传入动态数组

TMyRec = record sName: string[15]; Sex: integer; end; pMyRec = ^TMyRec; arr1 = array of pMyRec;var a1: arr1;procedure TForm1.Button1Click(Sender: TObject);var i: integer;begin

2013-12-05 19:03:36

数组类型指针

{使用一个元素的数组指针} PMyRec = ^TMyRec; TMyRec = record F1: Char; F2: Word; end;procedure TForm1.Button1Click(Sender: TObject);type PArr = ^TArr; TArr = array [0 .. 0] of TMyRec;var bu

2013-12-05 18:17:58

数组指针参数

Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0'), ('X2Y0', 'X0Y1'), ('A0', 'B0'));type TC

2013-12-05 02:07:38

RmbChangdx

function RmbChangdx(mmje: Double): String;const s1: String = '零壹贰叁肆伍陆柒捌玖'; s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万';var s, dx: String; i, Len: Integer;function StrTran(const s, s1, s2: String): St

2013-12-05 00:39:38

Tlist_Demo

type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt;var List: TList;procedure TForm2.Button1Click(Sender: TObject);var buf: Psmt; i: I

2013-12-04 23:19:24

Delphi 快捷键

分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件;选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件 方向键选择此方向的下一个组件

2013-12-02 21:07:04

Unicode 字符

unit unUnicodeMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgList, Grids;type TForm1 = class(TForm) Strin

2013-11-30 21:27:26

查看更多

勋章 我的勋章
    暂无奖章