Скачать: CL | DM;

Написал функцию, возвращающую логическое значение. Пытаюсь   Найти похожие ветки 

← →
Michael5   (2005-11-03 23:07) [0]

ее применить - ничего не получается!

Вот функция:
//Функция проверки, существует ли в столбце colName строка text.
//Как только значение в таблице найдено, происходит exit с Result"ом,
//равным true
function TKP.exsistIn(colName, text: string): boolean;
var x:integer;
begin
Result:=false;
OverviewADOTable.First;
for x:=1 to OverviewADOTable.RecordCount do begin
 if OverviewADOTable.FieldByName(colName).Value=text then begin
   Result:=true;
   exit;
 end;
OverviewADOTable.Next;
end;
Result:=false;
end;

Вот я ее применяю:

procedure TKP.ApplyClick(Sender: TObject);
tmp:boolean;
begin

tmp:=exsistIn("имя шкафа", ComboBox4.Text);
if exsistIn("имя шкафа", ComboBox4.Text) then
tmp:=true;
...


и т.д. Суть в том, что на строках с переменной tmp отладка неактивна (не пойму, почему, ведь это такая же переменная, как и все), а если смотришь содержимое переменной tmp в watch, то там написано: variable "tmp" inacessible here due to optimization...

Чего-то ни черта не понимаю, где ж я не прав???
Подскажите пожалуйста!

---

← →
Michael5   (2005-11-03 23:10) [1]

var потерял в процедуре ApplyClick...

---

← →
Zeqfreed ©   (2005-11-03 23:20) [2]

Michael5   (03.11.05 23:07)
Т.к. ты нигде ниже по коду не используешь переменную tmp - строки просто-напросто не скомпилировались и не были включены в исполнимый модуль, due to optimization.

---

← →
umbra ©   (2005-11-04 10:22) [3]

Зачем в ExistsIn два раза присваивать Result := false?

---

← →
Anatoly Podgoretsky ©   (2005-11-04 12:32) [4]

Ну дубли операций не только там, но и двойной вызов функции.
А по поводу сообщения, все нормально, не надо просто смотреть ее в отладичике и всего, она или не доступна там или вообще выкинута за ненадобность.

Эта строка if exsistIn("имя шкафа", ComboBox4.Text) then tmp:=true; лишняя, она ничего не делает.

---

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

Скачать: CL | DM;



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