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

Глюк   Найти похожие ветки 

← →
Bocman ©   (2002-06-17 10:43) [0]

Народ може кто встречался с таким глюком:
Пишу:
nameStr:=FieldByName("nameoper").asString;
if (nameStr[1]="н") and (nameStr[2]="н") and (nameStr[3]="к") then
iStrFlag:=1;
когда namestr = "ник...." условие "проскакивается"
А вот если пришу:
nameStr:=FieldByName("nameoper").asString;
if (nameStr[1]="н") and (nameStr[2]="н") and (nameStr[3]="к") then
Showmessage(namestr);
то выполняестя....:((

nameStr:=FieldByName("nameoper").asString;
if (nameStr[1]="н") and (nameStr[2]="н") and (nameStr[3]="к") then
begin
showmessage(namestr);
iStrFlag:=1;
end;
А здесь выполняет show message, но проскакивает iStrFlag:=1;

iStrFlag : Integer;
namestr : String[20];

---

← →
Nikols ©   (2002-06-17 10:54) [1]

Вероятно iStrFlag дальше не используется, вот компилятор его и "проскакивает"

---

← →
Виктор Щербаков ©   (2002-06-17 10:57) [2]

Не используется переменная iStrFlag либо её значение.
Собери проект и посмотри внимательно на подсказки компилятора.

---

← →
Виктор Щербак   (2002-06-17 11:03) [3]

Удалено модератором

---

← →
VAleksey ©   (2002-06-17 14:10) [4]

Сегодня примерно такой код проходил:
var
Calendar:integer;
begin
....
Calendar:=tbDebet.FieldByName("Calendar").value;
...
end;

при этом тип поля Calendar - Alpha 25 (то бишь строка 25 символов длинной)
ЗЫ
Код работал примерно 5 месяцев !

---

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

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



Память: 0.45 MB
Время: 0.013 c