delphi如何取得结构体指针的成员的首地址的值

Delphi 7中快速获取本机IP地址

朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。

新建一Project1，在form1中添加控件statusbar1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设置好控件属性：在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel两项；IdIPWatch1的HistoryEnabled的属性设为False。

编写代码：在TForm1FormCreate(Sender: TObject)中加入以下代码：

statusbar1Panels[1]Text:=IdIPWatch1LocalIP;

OK！按下F9功能键，运行程序，看一下窗口下边状态栏中是不是已经显示了本机的IP地址了？

提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序退出时，自动生成一个文件(文件名为HistoryFileName属性设定的值)，记录当前的IP地址

一、使用的单元：RegularExpressions（XE自带），PerlRegEx（第三方）　

推荐使用第一个

二、常见使用场景

1)、是否匹配成功

procedure　TForm1Button1Click(Sender:　TObject);　

begin

if　TRegExIsMatch(txt,　pattern)　then

begin

ShowMessage(’有匹配到’);

end;　

end;

2）、获取第一个匹配结果

procedure　TForm1Button2Click(Sender:　TObject);　

var

match:　TMatch;　

begin

match　:=　TRegExMatch(txt,　pattern);

if　matchSuccess　then　//或用一句话　if　TRegExMatch(txt,　pattern)Success　then

begin

ShowMessage(matchValue);　//AAA1

end;　

end;

3）、获取所有匹配结果

procedure　TForm1Button3Click(Sender:　TObject);　

var

matchs:　TMatchCollection;

match:　TMatch;

i:　Integer;　

begin

matchs　:=　TRegExMatches(txt,　pattern);

Memo1Clear;

for　match　in　matchs　do

begin

Memo1LinesAdd(matchValue);

end;

Memo1LinesAdd(’----------’);

for　i　:=　0　to　matchsCount　-　1　do

begin

Memo1LinesAdd(matchs[i]Value);

end;　

end;

4）、使用　TMatch　对象的　NextMatch　遍历匹配结果时，需实例化对象　

procedure　TForm1Button4Click(Sender:　TObject);　

var

reg:　TRegEx;

match:　TMatch;　

begin

reg　:=　TRegExCreate(pattern);

match　:=　regMatch(txt);

Memo1Clear;

while　matchSuccess　do

begin

Memo1LinesAdd(matchValue);

match　:=　matchNextMatch;

end;　

end;

5）、替换

procedure　TForm1Button6Click(Sender:　TObject);　

begin

Memo1Text　:=　TRegExReplace(txt,　pattern,　’xxx’);　//xxx　xxx　xxx　xxx　xxx　xxx　AAAA　

end;

6）、分割

procedure　TForm1Button7Click(Sender:　TObject);　

var

rArr:　TArray<string>;

s:　string;　

begin

rArr　:=　TRegExSplit(’AAA,BBB;CCC,DDD　EEE’,　’[,;　]’);

Memo1Clear;

for　s　in　rArr　do

begin

Memo1LinesAdd(s);　//AAA/BBB/CCC/DDD/EEE

end;　

end;

{TRegEx　还有一个　class　方法　Escape,　用于给特殊字符转义}　

procedure　TForm1Button8Click(Sender:　TObject);　

begin

Memo1Text　:=　TRegExEscape(’[]^$|+(){}’);　//:　[]^$|+(){}　

end;　

三、常用正则表达式的书写

正则表达式用于字符串处理、表单验证等场合，实用高效。现将一些常用的表达式收集于此，以备不时之需。

匹配中文字符的正则表达式： [\u4e00-\u9fa5]

评注：匹配中文还真是个头疼的事，有了这个表达式就好办了

匹配双字节字符(包括汉字在内)：[^\x00-\xff]

评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

匹配空白行的正则表达式：\n\s\r

评注：可以用来删除空白行

匹配HTML标记的正则表达式：<(\S)[^>]></\1>|< />

评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力

匹配首尾空白字符的正则表达式：^\s|\s$

评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式

匹配Email地址的正则表达式：\w+([-+]\w+)@\w+([-]\w+)\\w+([-]\w+)

评注：表单验证时很实用

匹配网址URL的正则表达式：[a-zA-z]+://[^\s]

评注：网上流传的版本功能很有限，上面这个基本可以满足需求

匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$

评注：表单验证时很实用

匹配国内电话号码：\d{3}-\d{8}|\d{4}-\d{7}

评注：匹配形式如 0511-4405222 或 021-87888822

匹配腾讯QQ号：[1-9][0-9]{4,}

评注：腾讯QQ号从10000开始

匹配中国邮政编码：[1-9]\d{5}(!\d)

评注：中国邮政编码为6位数字

匹配身份z：\d{15}|\d{18}

评注：中国的身份z为15位或18位

匹配ip地址：\d+\\d+\\d+\\d+

评注：提取ip地址时有用。

匹配特定数字：

^[1-9]\d$ //匹配正整数

^-[1-9]\d$ //匹配负整数

^-[1-9]\d$ //匹配整数

^[1-9]\d|0$ //匹配非负整数（正整数 + 0）

^-[1-9]\d|0$ //匹配非正整数（负整数 + 0）

^[1-9]\d\\d|0\\d[1-9]\d$ //匹配正浮点数

^-([1-9]\d\\d|0\\d[1-9]\d)$ //匹配负浮点数

^-([1-9]\d\\d|0\\d[1-9]\d|0\0+|0)$ //匹配浮点数

^[1-9]\d\\d|0\\d[1-9]\d|0\0+|0$ //匹配非负浮点数（正浮点数 + 0）

^(-([1-9]\d\\d|0\\d[1-9]\d))|0\0+|0$ //匹配非正浮点数（负浮点数 + 0）

评注：处理大量数据时有用，具体应用时注意修正。

匹配特定字符串：

^[A-Za-z]+$ //匹配由26个英文字母组成的字符串

^[A-Z]+$ //匹配由26个英文字母的大写组成的字符串

^[a-z]+$ //匹配由26个英文字母的小写组成的字符串

^[A-Za-z0-9]+$ //匹配由数字和26个英文字母组成的字符串

^\w+$ //匹配由数字、26个英文字母或者下划线组成的字符串

以上就是关于delphi如何取得结构体指针的成员的首地址的值全部的内容，包括:delphi如何取得结构体指针的成员的首地址的值、DELPHI上简单高效的SOCKET控件怎么选择、delphi serversocket与clientsocket通讯的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！