这个家伙糟厉害 函数 这样写!有谁见过这样写的吗?
2004-12-29 16:39
399 查看
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;
相关文章推荐
- 这个家伙糟厉害 函数 这样写!有谁见过这样写的吗?
- [Effective C++]条款30: 避免这样的成员函数:其返回值是指向成员的非const指针或引用,但成员的访问级比这个函数要低
- 条款 30: 避免这样的成员函数:其返回值是指向成员的非 const 指针或引用, 但成员的访问级比这个函数要低
- 这样的函数返回见过吗?
- 条款30: 避免这样的成员函数:其返回值是指向成员的非const指针或引用,但成员的访问级比这个函数要低
- google笔试题:写出这样一个函数 ,输入一个 n, 输出从1到这个数字之间的出现的1的个数
- effective C++笔记之条款30: 避免这样的成员函数:其返回值是指向成员的非const指针或引用,但成员的访问级比这个函数要低。
- void (*func)(int) 知道这样定义这个函数什么意思么?
- void prinT(Test *pT)//这个函数 这里为什么要用 我完全可以用t3.print()这样来调用类里面函数方法就可以,为何多此一举来这样一步???
- 避免这样的成员函数:其返回值是指向成员的非const指针或引用,但成员的访问级比这个函数要低
- 这个链接是这样设计吗?
- 谋杀失败!可以杀掉Notepad.exe这样的进程,却对CcmExec.exe这个进程没有办法!
- scanf这个函数--论坛里的一个帖子
- java的接口不能实例化,但是有些函数可以这样写
- ajax提交请求为啥url要用这个函数encodeURI
- 事件封装(多个函数绑定一个事件,预计这样解释不正确)
- Lottie- 这个厉害了
- 你见过js画出这样的矢量图以及动画特效吗?
- 题目:在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数。
- 已知链表的头结点head,写一个函数把这个链表逆序