[SNIIP]

ребят, уже 5ть часов сижу ,помогите разобраться... есть такая часть кода:

Код:

[Выделить все]

if combobox27.Text=combobox21.Items[i] then begin
    assignfile(f,'peredacha1.txt');
    reset(f);
    kol:=0;
    for m := 1 to strtoint(edit57.text)+1 do
    begin
    readln(f,al);
    kol:=kol+al;
    end;
    if combobox12.Text='12000' then
    num1:=kol*4 else
    num1:=kol*8;

    kol1:=0;
    while not(eof(f)) do
    begin
    readln(f,al);
    kol1:=kol1+ al;
    end;
    closefile(f);
    kol3:=0;
    for m := 1 to strtoint(edit61.text) do begin
    kol3:=kol3+svz[m];
    end;



    XL.cells[j,3]:='∑ ' + combobox1.text;   j:=j+1;
    num2:=kol1*kol3*2*2;
    XL.cells[j,3]:='∑ ' + combobox7.text;   j:=j+1;
    end;

строки где num1 и Num2 присвается умножение вообще компилятор gерескакиевает и в итоге num1 и num2 равно 0. В чем дело.... в какое место кода не ставил бы эти строки компилятор их не выполняет

[ябс]

watch тебе в помощь, задай нач значения num1, num 2
если не помогает - попробуй переменные по-другому назвать

[SNIIP]

в том то и дело... он перескакивает строчки с присваиванием, и переменные равны 0. я не пойму почему... подругому называл.. то же самое...

[ябс]

если перескакиевает-значит не срабатывает if, добавь в watch "combobox12.Text", и пошагово сравнивай '12000' может пробел где вылез

[SNIIP]

а как насчет вторго пресваивания? оно без всяких if стоит... его перескакиевает как будто нет этой строчки....



обратите внимание где я подчеркнул... при компиляции делфи не ставит точки остановки на этих строчках... это как понимать???

р.s. я там переменные переименовал, не обращайте вниманиея

[ябс]

перезапусти делфи, строки в коде никак не помечены? попробуй вместо num1 - a1, данных мало

[SNIIP]

пробовал и перезапускать и менять именя переменных...

[ябс]

компилятор не использует эти строки, может быть потому, что они дальше не используются, оптимизация как-никак) отключается в настройках компилятора(ну или выведи их куда-нибудь), сразу картинку надо выкладывать).

[Volod'ka]

Сообщение от ябс компилятор не использует эти строки, может быть потому, что они дальше не используются, оптимизация как-никак) отключается в настройках компилятора(ну или выведи их куда-нибудь), сразу картинку надо выкладывать).

именно так. либо отключите оптимизацию в настройках компилятора, либо выведите эти переменные куда-то - на экран, в messagebox, и т.п.

[zamtmn]

>>пробовал и перезапускать и менять именя переменных...
еще полезно иногда пробовать читать сообщения компилятора, которые варнинги и хинты))

[SNIIP]

все дело в дольнейшем неиспользовании.. я просто не писал еще вывод их... решил протестировать значение на данном этапе и на тебе... дописал вывод и все раотает. Мдяяяя уж) спасибо всем большое)

[Ratmir]

SNIIP, разбей код на более простые блоки для отладки, например введи переменную

stPer:= Trim(combobox12.Text='12000');
if stPer = '12000' then
num1:=kol*4
else
num1:=kol*8;

Возможно баг и пройдет, кроме того переменная kol может быть равно нулю, в начале ты ее обнуляешь

kol:=0;
for m := 1 to strtoint(edit57.text)+1 do
begin
readln(f,al);
kol:=kol+al;
end;

а в дальнейшем цикл for не обрабатывается или переменная al равна нулю и num1:= 0 и num2:= 0.