DELPHI中怎么判断一个文件夹是否为空 delphi 字段数据判断是不是为空并创建项目。

DELPHI中怎么判断一个文件夹是否为空

liyinwei 提供的函数中存在着一个Bug: Result := not b 中的变量b有可能会未被赋值。

修改并精简如下：

function IsEmptyDir(sDir: String): Boolean
var
sr: TsearchRec
begin
Result := True
if Copy(sDir, Length(sDir) - 1, 1) <> then sDir := sDir
if FindFirst(sDir *.*, faAnyFile, sr) = 0 then
repeat
if (sr.Name <> .) and (sr.Name <> ..) then
begin
Result := False
break
end
until FindNext(sr) <> 0
FindClose(sr)
end

delphi 字段数据判断是不是为空并创建项目。

adoquery.First
while not adoquery.Eof do
begin
for i=0 to adoquery.Fields.Count do
begin
if Pos(Item, adoquery.Fields[i].Name)>= 0 then
begin

{ TODO -oAdministrator -c : 2013-9-6 12:34:41 }
end
end
end

delphi pansichar怎么判断为空

如果你给它分配内存，那肯定需要自己释放的。比如下面是一个获取本机名称的例子：
var p:Pansichar
len:cardinal
begin
GetMem(p,MAX_COMPUTERNAME_LENGTH)//分配内存
FillChar(p^,0,MAX_COMPUTERNAME_LENGTH)
GetComputerName(p,len)
showmessage(p)
FreeMem(p) //释放
end

delphi 如果判断一个文件为空？

var txtfile:textfilebegin assignfile(txtfile,c:1.txt) reset(txtfile) if eof(txtfile) then showmessage(空) else showmessage(不为空)end

关于delphi 的 DBGRID单元格当修改数据库不能为空的判断

if DBGrid1.DataSource.DataSet.FieldByName(字段名).isnull then
showmessage(字段不能为空！)
else if DBGrid1.DataSource.DataSet.FieldByName(字段名).value:=then
showmessage(字段不能为空！)