这个家伙糟厉害 函数 这样写!有谁见过这样写的吗?
来源:互联网 发布:rtmp流媒体服务器软件 编辑:程序博客网 时间:2024/04/29 02:40
function GetPartFilter(AID: string): string; //单元头部分还定义了
var
querytemp: TOceanQuery;
s: string;
lOwnerids: TStringList;
procedure GetOwnerids(AID: string); //压根 都不用定义 都可以???
var lQuery: TOceanQuery;
begin
lQuery := TOceanQuery.Create(nil);
try
lQuery.Close;
lQuery.SQL.Text := 'select ID from PartInfo where Ownerid=' + QuotedStr(AID) + ' and ID<>' + QuotedStr(AID) + ' and ImageIndex=0';
lQuery.Open;
while not lQuery.Eof do
begin
lOwnerids.Add(lQuery.FieldByName('ID').AsString);
GetOwnerids(lQuery.FieldByName('ID').AsString);
lQuery.Next;
end;
finally
lQuery.Free;
end;
end;
var I: Integer;
begin
Result := '';
querytemp := TOceanQuery.Create(nil);
lOwnerids := TStringList.Create;
try
querytemp.Close;
querytemp.SQL.Text := 'select ID,ImageIndex from partinfo where ID=''' + AID + '''';
querytemp.Open;
if querytemp.IsEmpty then Exit;
if querytemp.FieldByName('ImageIndex').AsInteger <> 0 then
begin
Result := 'ID=' + QuotedStr(AID);
Exit;
end;
lOwnerids.Add(querytemp.FieldByName('ID').AsString);
GetOwnerids(querytemp.FieldByName('ID').AsString);
for I := 0 to lOwnerids.Count - 1 do
begin
if Result = '' then
Result := 'Ownerid in (' + QuotedStr(lOwnerids[I])
else
Result := Result + ',' + QuotedStr(lOwnerids[I]);
end;
if Result <> '' then
Result := Result + ')';
finally
querytemp.Free;
lOwnerids.Free;
end;
end;
var
querytemp: TOceanQuery;
s: string;
lOwnerids: TStringList;
procedure GetOwnerids(AID: string); //压根 都不用定义 都可以???
var lQuery: TOceanQuery;
begin
lQuery := TOceanQuery.Create(nil);
try
lQuery.Close;
lQuery.SQL.Text := 'select ID from PartInfo where Ownerid=' + QuotedStr(AID) + ' and ID<>' + QuotedStr(AID) + ' and ImageIndex=0';
lQuery.Open;
while not lQuery.Eof do
begin
lOwnerids.Add(lQuery.FieldByName('ID').AsString);
GetOwnerids(lQuery.FieldByName('ID').AsString);
lQuery.Next;
end;
finally
lQuery.Free;
end;
end;
var I: Integer;
begin
Result := '';
querytemp := TOceanQuery.Create(nil);
lOwnerids := TStringList.Create;
try
querytemp.Close;
querytemp.SQL.Text := 'select ID,ImageIndex from partinfo where ID=''' + AID + '''';
querytemp.Open;
if querytemp.IsEmpty then Exit;
if querytemp.FieldByName('ImageIndex').AsInteger <> 0 then
begin
Result := 'ID=' + QuotedStr(AID);
Exit;
end;
lOwnerids.Add(querytemp.FieldByName('ID').AsString);
GetOwnerids(querytemp.FieldByName('ID').AsString);
for I := 0 to lOwnerids.Count - 1 do
begin
if Result = '' then
Result := 'Ownerid in (' + QuotedStr(lOwnerids[I])
else
Result := Result + ',' + QuotedStr(lOwnerids[I]);
end;
if Result <> '' then
Result := Result + ')';
finally
querytemp.Free;
lOwnerids.Free;
end;
end;
- 这个家伙糟厉害 函数 这样写!有谁见过这样写的吗?
- 99.9%的程序员有过这样写代码的经历
- 这样的函数返回见过吗?
- 老是写这样的事开心吗
- 成功的求职信这样写
- powerbuilder的游标这样写
- 我是这样写程序的
- 一个完美的类的构造函数应该这样写
- 为什么高斯分布的函数要这样写?
- 定义一个 k 函数,这样写正确吗?
- 郁闷这样写
- UPDATE可以这样写!
- 程序员这样写代码
- 程序员这样写代码
- 为什么这样写:readline()
- 简历应该这样写
- ajax这样写对吗
- 有过空白期,可以这样写简历!
- 不依赖于DLL就能正常工作的全局钩子
- 联想,是你太愚蠢还是人家太精明?
- 枚举系统进程核心代码(代码)
- 刚学Asp.Net,做的一个截取当前访问页面名称的函数(C#),不够完善...
- ASP.NET中对表单输入行有选择验证
- 这个家伙糟厉害 函数 这样写!有谁见过这样写的吗?
- ·Java Open Single Sign-On Project-介绍
- 同时绑定编码和名称到ComboBox控件(WinForm)
- Windows XP/2000操作系统自动关机的实现
- 小写数字与大写数字转换
- 网址收藏
- [转]Beej网络socket编程指南
- 补充为pureftpd、proftpd使用mysql中的密码加密
- 图片的宽和高