Форум: "Базы";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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, а "квадратик новой формы".

---

← →
Jeer   (2003-09-15 11:21) [7]

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

---

← →
Vlad   (2003-09-15 11:30) [8]

Да вроде все верно написано...
А конструкция типа:
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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c