Delphi×Ô¶¨Ò庯Êý³ö´í

ÔÚͬһ¸ö´°ÌåÖУº

function TfrmFILESHARE.GetChecker(const DirCode:Integer;const Stage:Integer):TStrings;
var
  iDirCode:Integer;
begin
  //»ñȡĿ¼µÄÉóÅúÕß
  iDirCode:=DirCode;
  while iDirCode>0 do
  begin
    dm.qry.SQL.Text:='SELECT Checker from HDIR2 WHERE DirCode=' + IntToStr(iDirCode) + ' AND Stage=' + IntToStr(Stage);
    dm.qry.Open;
    if dm.qry.RecordCount>0 then
    begin
      while not dm.qry.Eof do
      begin
        Result.Add(dm.qry.FieldByName('Checker').AsString);
        dm.qry.Next;
      end;
      dm.qry.Close;
      Break;
    end
    else
    begin
      dm.qry.Close;
      dm.qry.SQL.Text:='SELECT Father from HDIR WHERE DirCode=' + IntToStr(iDirCode);
      dm.qry.Open;
      if dm.qry.RecordCount>0 then
      begin
        iDirCode:=dm.qry.FieldByName('Father').AsInteger;
        dm.qry.Close;
      end
      else
  &nbs