Глюк

← →
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]

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

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

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

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