В переменную не запихнуть значение

← →
Voland777 (2003-09-15 10:22) [0]

Крыша едет...

var ds : TDBDataSet; i : integer; begin ds := Tools.Open("SELECT count(*) FROM COMP_TYPE "); i := ds.Fields[0].asInteger + 2;

-------------------------------------------------

Результат i = 0
Хотя ds.Fields[0].asInteger = 23 !!!!!

← →
Vlad © (2003-09-15 10:27) [1]

>Хотя ds.Fields[0].asInteger = 23 !!!!!
Как это проверено ?

← →
Jeer © (2003-09-15 10:31) [2]

А если Tools.Fields[0] ?

← →
Voland777 (2003-09-15 10:47) [3]

ds.Fields[0].asInteger = 23 !!!
Проверено на точке останова в отладчике

А вот еще непонятка: При переходе на Delphi 7 головная форма одной из апликух стала генериться без кнопок "свернуть","развернуть", только с одной кнопкой "закрыть"!!!!

← →
Vlad © (2003-09-15 11:00) [4]

Тогда поясни, что такое Tools и зачем ты даешь указатель на нее новой переменной ?

>А вот еще непонятка: При переходе на Delphi 7 головная форма одной из апликух стала генериться без кнопок "свернуть","развернуть", только с одной кнопкой "закрыть"!!!!

См. свойство формы BorderIcons

← →
Voland777 (2003-09-15 11:04) [5]

function TTools.Open(ASQL: string) :TDBDataSet;
begin
with WorkSQL do
begin
SQL.Clear;
SQL.Add(ASQL);
Open;
end;
result := WorkSQL;
end;

← →
Voland777 (2003-09-15 11:16) [6]

function TTools.Open(ASQL: string) :TDBDataSet;
begin
with WorkSQL do
begin
SQL.Clear;
SQL.Add(ASQL);
Open;
end;
result := WorkSQL;
end;

C BorderIcons в этой "кривой" форме все нормально как и в других (biSystemMenu=true,biMinimize=true,biSystemMaximize=true).
Вот только лейба в углу не штатная седьмой Delphi, а "квадратик новой формы".

Если WorkSQL глобальная - зачем result

Да вроде все верно написано...
А конструкция типа:
i:=Tools.Open("SELECT count(*) FROM COMP_TYPE ").Fields[0].asInteger + 2;
не поможет ?

← →
Voland777 (2003-09-15 11:44) [9]

ТАК НЕ РАБОТАЕТ !!!

procedure TMobileManager.DoPopulateTypesTree(ATree :TTreeView); var SaveNode :TTreeNode; ds : TDBDataSet; i : integer; begin SaveNode := ATree.Selected; if (SaveNode = nil) then //при первом входе в форму ветка дерева еще не выбрана begin ds := Tools.Open("SELECT count(*) FROM COMP_TYPE"); i := ds.Fields[0].asInteger + 2; ATree.Selected := ATree.Items[i]; end end

---------------------------
ТАК РАБОТАЕТ !!!

procedure TMobileManager.DoPopulateTypesTree(ATree :TTreeView); var SaveNode :TTreeNode; ds : TDBDataSet; i : integer; begin SaveNode := ATree.Selected; ds := Tools.Open("SELECT count(*) FROM COMP_TYPE"); i := ds.Fields[0].asInteger + 2; if (SaveNode = nil) then //при первом входе в форму ветка дерева еще не выбрана begin ATree.Selected := ATree.Items[i]; end end

В переменную не запихнуть значение Найти похожие ветки