Fórum Função Recursiva #229559

procedure RetornaExames(AExame: integer; AStringList: TStringList);
var
  query: TQuery;
begin
  { cria a query e conecta no banco de dados }    
  { considerando que a tabela de EXAMES seja EXA }
  { e a tabela de Exames que Compões o Exame EXACOMP }
  { e os campos sejam CDEXAME, CDEXACOMP }
  query.SQL.Text := ´SELECT * FROM EXAME ´ +
    ´ WHERE CDEXAME = ´ + IntToStr(AExame);
  query.Open;  
  { Aqui retorna somente 1 Exame, então vou adiciona a minha lista }
  AStringList.Add(query.FieldByName(´DESCRICAO´).AsString);
  query.Close; 
  query.SQL.Clear;
  { Depois então eu busco todos os examente deste exame }
  query.SQL.Text := ´SELECT * FRom EXACOMP WHERE ´ +  
    ´ CDEXAME = ´ + IntToStr(AExame);
  query.Open;
  while not query.eof do
  begin
    RetornaExames(query.FieldByName(´CDEXACOMP´).AsInteger,
      AStringList);   
  end;
end;