Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизРекурсивная функция Найти похожие ветки
← →
Вованчик (2004-02-24 15:52) [0]Здравствуйте.
Написал рекурсивную функцию:
function GetSQL(var N: String): String;
var Query: TIBQuery;
Str: String;
begin
Query := TIBQuery.Create(Self);
Query.DataBaseName := Data.DB;
Query.Transaction := Data.Transaction;
Query.SQL.Text := ‘SELECT N FROM Vid_Calculation_Table’ + fos_Number_Otdel +
‘WHERE N_Vid = ’ + N;
Query.Open;
Result := ‘’;
While not Query.eof do
begin
Str := Query.FieldByName(‘N’).asString;
Result := Result + ‘ OR N_Vid = ’ + Str + GetSQL(Str);
Query.Next;
end;
Query.Close;
Query.Free;
end;
но она выдает эксепшин "не могу выполнить на закрытом датасете" на строке Query.Next, убираю
Query.Close;
Query.Free;
все работает без проблем, но тогда экземпляров может создаться очень много...
В чем может быть проблема? По идее то должен закрыться соответсвующий экземляр Query и функция продолжить работу, но все почему то не так ... Помогите разобраться ...
Спасибо.
← →
jack128 (2004-02-24 16:02) [1]не может быть..Ты же открыл куери. Это точно реальный код?? может ты случайно в рабочем коде Query.Close в цикл поставил??
← →
Вованчик (2004-02-24 16:06) [2]может может, самый реальный код :(
> может ты случайно в рабочем коде Query.Close в цикл поставил??
если б так :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c