⑴ delphi如何能判断网络通不通
给你个我自己用的函数吧。
//---------------
//公用函数
//引用操作系统SensApi.dll 判断当前的网络是否连接
function IsNetworkAlive(var lpdwFlagsLib:Integer):Integer;stdcall;external'SensApi.dll';
//ping网络
function fucPing(url: String): Boolean;
//获取当前网络的连接状态 add by jzh 2010-05-24
function fucIsNetworkAlive: Boolean;
const
NETWORK_ALIVE_LAN = 1; //通过局域网上网
const
NETWORK_ALIVE_WAN = 2; //通过广域网上网
var
falg: Integer;
bAlive: Boolean;
begin
try
bAlive:= False;
IsNetworkAlive(falg);
case falg of
NETWORK_ALIVE_LAN:
begin
bAlive:= True;
end;
NETWORK_ALIVE_WAN:
begin
bAlive:= True;
end;
end;
result:= bAlive;
except
result:= false;
end;
end;
//ping网络
function fucPing(url: String): Boolean;
var
aIdICMPClient: TIdICMPClient;
begin
aIdICMPClient:= TIdICMPClient.Create(nil);
aIdIcmpclient.ReceiveTimeout:=500;
aIdICMPClient.Host:= url;
try
aIdICMPClient.Ping();
except
Result:= false;
end;
if (aidicmpclient.ReplyStatus.fromipaddress<>'0.0.0.0')
and (aidicmpclient.ReplyStatus.fromipaddress<>'') then
result:= true
else
result:= false;
aIdICMPClient.Free;
end;
⑵ delphi 函数的定义及使用
如果需要让别的单元可以调用，可以在interface部分,type下的public,或者在type下都可以.例如:
public
function test(i : integer): string;
{ Public declarations }
如果需要在整个单元内使用，可以在type下的private部分声明,或者"紧接着implementation之后":
implementation
function TForm1.test(i: integer): string;
begin
i := i + 1;
result := inttostr(i);
end;
如果只是想过程里使用，可以在过程内部里面声明.例如:
procere TForm1.Button1Click(Sender: TObject);
var i : integer;
function TForm1.test(i: integer): string;
begin
i := i + 1;
result := inttostr(i);
end;
begin
//....正文内容
end;
上面是我以前回答别人问题的答案.
http://..com/question/18481053.html
⑶ Delphi函数简介
跳转语句ObjectPascal的跳转语句有if和case两个。if语句if语句会计算一个表达式，并根据计算结果决定程序流程。在上文的例程中，根据ColorDialog.Execute的返回值，决定窗体的背景颜色。if保留字后跟随一个生成Boolean值True或False的表达式。一般用“=”作为关系运算符，比较产生一个布尔型值。当表达式为True时，执行then后的语句。否则执行else后的代码，if语句也可以不含else部分，表达式为False时自动跳到下一行程序。if语句可以嵌套，当使用复合语句表达时，复合语句前后需加上begin…end。else保留字前不能加“；”，而且，编译器会将else语句视为属于最靠近的if语句。必要时，须使用begin…end保留字来强迫else部分属于某一级的if语句。
⑷ Delphi，关于函数体内定义内部函数的，这是一段类似的代码，定义了之后，有什么优缺点，不胜感激！
楼上的回答明显文不对题，不知怎么能够被推荐，正解如下：
内部函数，或者称为内嵌函数，算是pascal(delphi)的一个特征了，其好处有二：
1、通过局部化，体现一种封装思想。一个函数的内嵌函数如同它的局部变量一样，对其外部逻辑不可见，这样能够屏蔽外界非期望的调用或访问，保证代码逻辑的安全性。另外一个好处也很明显，不同函数的内嵌函数允许同名，就像许多函数或过程中的循环变量都用i、j一样，不用费神去给变量、函数等起不同的名字，尤其是逻辑功能接近的函数，相信大家都有这样的体会，在编码实现的过程中，起名字是个让人挠头的事儿。本人的经验是：作用范围宽广的，名字要清楚地表意，一般较长，而作用范围很小的，命名不需要太讲究，因为讲究起来成本不小。
2、每个内嵌函数可以“见到”其父层函数的参数和定义在前面的局部变量，这样，内嵌函数能够控制的资源就多一些，不必要所有的东西都通过参数传递，在一定程度上能够节省参数传递的性能开销，这个问题的性质与“怎样审慎地使用全局变量？”相同，简单地全面否定全局变量也并非在任何场合都有好处。《代码大全》是一本非常棒的数，其中就有关于全局变量的适用性探讨，按此书的描述，使用全局变量可以消除“穿梭数据”。
⑸ Delphi7.0里面常用到的函数,及属性,事件有哪些
abort 函数 引起放弃的意外处理
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf 序列
allocmem 函数 在堆栈上分配给定大小的块
ansicomparestr 函数 比较字符串（区分大小写）
ansicomparetext 函数 比较字符串（不区分大小写）
ansilowercase 函数 将字符转换为小写
ansiuppercase 函数 将字符转换为大写
append 函数 以附加的方式打开已有的文件
assignfile 函数 给文件变量赋一外部文件名
assigned 函数 测试函数或过程变量是否为空
beginthread 函数 以适当的方式建立用于内存管理的线程
blockread 函数 读一个或多个记录到变量中
blockwrite 函数 从变量中写一个或多个记录
changefileext 函数 改变文件的后缀
chdir 函数 改变当前目录
chr 函数 返回指定序数的字符
closefile 命令 关闭打开的文件
comparestr 函数 比较字符串（区分大小写）
函数 返回一字符串的子串
datetimetofiledate 函数 将delphi 的日期格式转换为dos 的日期格式
datetimetostr 函数 将日期时间格式转换为字符串
datetimetostring 函数 将日期时间格式转换为字符串
datetostr 函数 将日期格式转换为字符串
dayofweek 函数 返回星期的数值
dec 函数 递减变量值
decodedate 函数 将日期格式分解为年月日
decodetime 函数 将时间格式分解为时、分、秒、毫秒
delete 函数 从字符串中删除子串
deletefile 命令 删除文件
diskfree 函数 返回剩余磁盘空间的大小
disksize 函数 返回指定磁盘的容量
dispose 函数 释放动态变量所占的空间
disposestr 函数 释放字符串在堆栈中的内存空间
ditherbackground 命令 使背景色的色彩加重或减少50%
dragcursor 属性 当鼠标按下时光标的形状
dragmode 属性 按动的作用方式
dropdowncount 属性 容许的显示数据项的数目
editmask 属性 编辑模式
encodedate 函数 将年月日合成为日期格式
encodetime 函数 将时、分、秒、毫秒合成为时间格式
endmargin 属性 末尾边缘
eoln 函数 返回文本文件的行结束状态
erase 命令 删除外部文件
exceptaddr 函数 返回引起当前意外的地址
exclude 函数 从集合中删除一些元素
exceptobject 函数 返回当前意外的索引
extendedselect 属性 是否允许存在选择模式，true 时，multiselect 才有意义
fileage 函数 返回文件已存在的时间
fileclose 命令 关闭指定的文件
filecreate 命令 用指定的文件名建立新文件
filedatetodatetime 函数 将dos 的日期格式转换为delphi 的日期格式
filegatattr 函数 返回文件的属性
filegetdate 函数 返回文件的dos 日期时间标记
fileopen 命令 用指定的存取模式打开指定的文件
filepos 函数 返回文件的当前指针位置
fileread 命令 从指定的文件读取
filesearch 命令 在目录中搜索指定的文件
fileseek 函数 改变文件的指针
filesetattr 函数 设置文件属性
filesetdate 函数 设置文件的dos 日期时间标记
filesize 函数 返回当前文件的大小
filewrite 函数 对指定的文件做写操作
fillchar 函数 用指定的值填充连续字节的数
findclose 命令 终止findfirst/findnext 序列
findfirst 命令 对指定的文件名及属性搜索目录
findnext 命令 返回与文件名及属性匹配的下一入口
floattodecimal 函数 将浮点数转换为十进制数
floattostrf 函数 将浮点数转换为字符串
floattostr 函数 将浮点数转换为字符串
floattotext 函数 将给定的浮点数转换为十进制数
floattotextfmt 函数 将给定的浮点数转换为十进制数
flush 函数 将缓冲区的内容刷新到输出的文本文件中
fmtloadstr 函数 从程序的资源字符串表中装载字符串
fmtstr 函数 格式化一系列的参数，其结果以参数result 返回
format 函数 格式化一系列的参数并返回pascal 字符串
formatbuf 函数 格式化一系列的参数
formatdatetime 函数 用指定的格式来格式化日期和时间
formatfloat 函数 指定浮点数格式
frac 函数 返回参数的小数部分
freemem 函数 按给定大小释放动态变量所占的空间
getdir 函数 返回指定驱动器的当前目录
getheapstatus 函数 返回内存管理器的当前状态
getmem 函数 建立一指定大小的动态变量，并将指针指向该处
getmemorymanager 函数 返回内存管理器的入口点
glyph 函数 按钮上的图象
halt 命令 停止程序的执行并返回到操作系统
hi 函数 返回参数的高地址位
high 函数 返回参数的上限值
int 函数 返回参数的整数部分
include 函数 添加元素到集合中
insert 函数 在字符串中插入子串
inttohex 函数 将整型数转换为十六进制数
inttostr 函数 将整型数转换为字符串
ioresult 函数 返回最新的i/o 操作完成状态
isvalidident 函数 测试字符串是否为有效的标识符
largechange 属性 最大改变值
length 函数 返回字符串的动态长度
lines 属性 缺省显示内容
ln 函数 自然对数函数
lo 函数 返回参数的低地址位
loadstr 函数 从应用程序的可执行文件中装载字符资源
lowercase 函数 将给定的字符串变为小写
low 函数 返回参数的下限值
mkdir 命令 建立一子目录
move 函数 从源到目标复制字节
newstr 函数 在堆栈上分配新的字符串
ondeactivate 事件 用户切换到另一应用程序触发
ondragover 事件 有其他控件从他上面移过触发
ord 函数 返回序数类的序数
outofmemoryerror 命令 引起outofmemory 意外
pageindex 属性 页索引
paramcount 函数 返回在命令行上传递给程序的参数数量
paramstr 函数 返回指定的命令行参数
pictureclosed 属性 设置closed 位图
pictureleaf 属性 设置leaf 位图
pictureminus 属性 设置minus 位图
pictureopen 属性 设置open 位图
pictureplus 属性 设置plus 位图
pos 函数 在字符串中搜索子串
pred 函数 返回先前的参数
random 函数 返回一随机函数
randomize 函数 用一随机数初始化内置的随机数生成器
read 函数 对有格式的文件，读一文件组件到变量中；
对文本文件，读一个或多个值到一个或多个变量中
readln 函数 执行read 过程，然后跳到文件下一行
readonly 属性 只读属性
reallocmem 函数 分配一动态变量
rename 函数 重命名外部文件
renamefile 函数 对文件重命名
reset 函数 打开已有的文件
rewrite 函数 建立并打开一新的文件
rmdir 函数 删除空的子目录
round 函数 将实数值舍入为整型值
runerror 函数 停止程序的执行
seek 函数 将文件的当前指针移动到指定的组件上
seekeof 函数 返回文件的文件结束状态
seekeoln 函数 返回文件的行结束状态
setmemorymanager 函数 设置内存管理器的入口点
settextbuf 函数 给文本文件指定i/o 缓冲区
showexception 函数 显示意外消息与地址
sizeof 函数 返回参数所占的字节数
smallchange 属性 最小改变值
str 函数 将数值转换为字符串
stralloc 函数 给以null 结束的字符串分配最大长度-1 的缓冲区
strbufsize 函数 返回存储在由stralloc 分配的字符缓冲区的最大字符数
strcomp 函数 比较两个字符串
str 函数 将一个字符串复制到另一个字符串中
strdispose 函数 释放堆栈上的字符串
stre 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针
strend 函数 返回指向字符串尾部的指针
stretch 属性 自动适应控件的大小
strfmt 函数 格式化一系列的参数
stricomp 函数 比较两个字符串（不区分大小写）
stringtowidechar 函数 将ansi 字符串转换为unicode 字符串
strlcat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串
strlcomp 函数 以最大长度比较两个字符串
strl 函数 将一个字符串中的字符复制到另一个字符串中
strlen 函数 返回字符串中的字符数
strlfmt 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针
strlicomp 函数 以最大长度比较两个字符串（不区分大小写）
strlower 函数 将字符串中的字符转换为小写
strmove 函数 将一个字符串中的字符复制到另一个字符串中
strnew 函数 在堆栈上分配一个字符串
strpas 函数 将以null 结束的字符串转换为pascal 类的字符串
strp 函数 将pascal 类的字符串复制为以null 结束的字符串
strpl 函数 从pascal 类的最大长度字符串复制为以null 结束的字符串
strpos 函数 返回一个字符串在另一个字符串中首次出现指针
strrscan 函数 返回字符串中最后出现字符的指针
strscan 函数 返回字符串中出现首字符的指针
strtodate 函数 将字符串转换为日期格式
strtodatetime 函数 将字符串转换为日期/时间格式
strtofloat 函数 将给定的字符串转换为浮点数
strtoint 函数 将字符串转换为整型
strtointdef 函数 将字符串转换为整型或默认值
strtotime 函数 将字符串转换为时间格式
strupper 函数 将字符串中的字符转换为大写
suce 函数 返回后继的参数
swap 函数 交换参数的高低地址位
texttofloat 函数 将字符串（以null 结束的格式）转换为浮点数
timetostr 函数 将时间格式转换为字符串
trunc 函数 将实型值截取为整型值
truncate 函数 截去当前文件位置后的内容
unselectedcolor 属性 未选中颜色
upcase 函数 将字符转换为大写
uppercase 函数 将给定的字符串变为大写
val 函数 将字符串转换为整型值
vararraycreate 函数 以给定的界限和维数建立变体数组
vararraydimcount 函数 返回给定变体的维数
vararrayhighbound 函数 返回给定变体数组维数的上界
vararraylock 函数 锁定给定的变体数组
vararraylowbound 函数 返回给定变体数组维数的下界
vararrayof 函数 返回指定变体的数组元素
vararrayredim 函数 通过改变上限来调整变体的大小
vararrayunlock 函数 解锁指定的变体数组
varastype 函数 将变体转换为指定的类型
varcase 函数 将变体转换为指定的类型并保存他
varclear 函数 清除指定的变体
var 函数 将指定的变体复制为指定的变体
varformdatetime 函数 返回包含日期时间的变体
varisarray 函数 测试变体是否为数组
varisempty 函数 测试变体是否为unassigned
varisnull 函数 测试变体是否为null
vartodatetime 函数 将给定的变体转换为日期时间
vartype 函数 将变体转换为指定的类型并保存他
wantreturns 属性 为true 时，按回车键产生一个回车符；
为false 时，按下ctrl+enter 才产生回车符
write 命令 对有格式的文件，写一变量到文件组件中；
对文本文件，写一个或多个值到文件中
writeln 命令 执行write 过程，然后输出一行结束标志
widecharlentostring 函数 将ansi 字符串转换为unicode 字符串
widecharlentostrwar 函数 将unicode 字符串转换为ansi 字符串变量
widechartostring 函数 将unicode 字符串转换为ansi 字符串
widechartostrvar 函数 将unicode 字符串转换为ansi 字符串变量