| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В переменную не запихнуть значение [D5, MSSQL]

Voland777 ©   (2003-09-15 10:22:00) 

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

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 !!!!!

---

Voland777   (2003-09-15 11:44:00) [1]

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

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

---

Vlad   (2003-09-15 11:30:00) [2]

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

---

Jeer   (2003-09-15 11:21:00) [3]

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

---

Voland777   (2003-09-15 11:16:00) [4]

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

---

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

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

---

Vlad   (2003-09-15 11:00:00) [6]

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

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

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

---

Voland777   (2003-09-15 10:47:00) [7]

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

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

---

Jeer   (2003-09-15 10:31:00) [8]

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

---

Vlad   (2003-09-15 10:27:00) [9]

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

---

Наверх