Не компилируется проект, warning и hint, подскажите плз!
Проект достался в наследство. Помогите плз начать разбор кода. Syntax check проходит без сообщений. Запускаю компиляцию, получаю список сообщений такого содержания:
[Warning] PM4.pas(92): For loop control variable must be simple local variable
[Hint] PM4.pas(190): Value assigned to 'pol' never used
[Warning] PM7.pas(16): Method 'Activate' hides virtual method of base type 'TCustomForm'
[Warning] PM7.pas(40): For loop control variable must be simple local variable
Строка 92 в коде выглядит так:
for ii:=1 to K do
Строка 190, 191, 192:
pol:=0;
pol:=LastDelimiter('**',RecEnd1);
if pol>0 then str_tt1:=Copy(RecEnd1,pol+1,Length(RecEnd1)-pol) else str_tt1:=RecEnd1;
Как в Delphi 6 получить справку по данной ошибке, желательно с примерами?
Спасибо заранее.
[Warning] PM4.pas(92): For loop control variable must be simple local variable
[Hint] PM4.pas(190): Value assigned to 'pol' never used
[Warning] PM7.pas(16): Method 'Activate' hides virtual method of base type 'TCustomForm'
[Warning] PM7.pas(40): For loop control variable must be simple local variable
Строка 92 в коде выглядит так:
for ii:=1 to K do
Строка 190, 191, 192:
pol:=0;
pol:=LastDelimiter('**',RecEnd1);
if pol>0 then str_tt1:=Copy(RecEnd1,pol+1,Length(RecEnd1)-pol) else str_tt1:=RecEnd1;
Как в Delphi 6 получить справку по данной ошибке, желательно с примерами?
Спасибо заранее.
Цитата: NightSleeper
Проект достался в наследство. Помогите плз начать разбор кода. Syntax check проходит без сообщений. Запускаю компиляцию, получаю список сообщений такого содержания:
[Warning] PM4.pas(92): For loop control variable must be simple local variable
[Hint] PM4.pas(190): Value assigned to 'pol' never used
[Warning] PM7.pas(16): Method 'Activate' hides virtual method of base type 'TCustomForm'
[Warning] PM7.pas(40): For loop control variable must be simple local variable
Строка 92 в коде выглядит так:
for ii:=1 to K do
Строка 190, 191, 192:
pol:=0;
pol:=LastDelimiter('**',RecEnd1);
if pol>0 then str_tt1:=Copy(RecEnd1,pol+1,Length(RecEnd1)-pol) else str_tt1:=RecEnd1;
Как в Delphi 6 получить справку по данной ошибке, желательно с примерами?
Спасибо заранее.
[Warning] PM4.pas(92): For loop control variable must be simple local variable
[Hint] PM4.pas(190): Value assigned to 'pol' never used
[Warning] PM7.pas(16): Method 'Activate' hides virtual method of base type 'TCustomForm'
[Warning] PM7.pas(40): For loop control variable must be simple local variable
Строка 92 в коде выглядит так:
for ii:=1 to K do
Строка 190, 191, 192:
pol:=0;
pol:=LastDelimiter('**',RecEnd1);
if pol>0 then str_tt1:=Copy(RecEnd1,pol+1,Length(RecEnd1)-pol) else str_tt1:=RecEnd1;
Как в Delphi 6 получить справку по данной ошибке, желательно с примерами?
Спасибо заранее.
По ворнингам 1 и 4: сделай ii локальной переменной.
По хинту 2: убери строку pol := 0;
По ворнингу 3: переименуй метод Activate класса, либо добавь в объявлении метода директиву reintroduce