Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
teodorchike
0 / 0 / 1
Регистрация: 03.12.2013
Сообщений: 57
#1

Не работает оператор If then

14.03.2015, 01:02. Просмотров 441. Ответов 5
Метки нет (Все метки)

Копался менял, но так и не привело не к чему хорошему. Не правильно ведет подсчет.
delphi 7
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
begin
 com1:=combobox1.Text;
 com2:=combobox2.Text;
   kok:=0;
  zapaska:=ExtractFilePath(Application.ExeName)+'zapas.dat';
  AssignFile(zap,zapaska);
  AssignFile(mans,mustang);
  Rewrite(zap);
  Reset(mans);
  while not eof(mans) do
   begin
    read(mans,mn);
    if  (com2<>mn.grup) and (com1<>IntToStr(mn.nomvoen)) then
     begin
     zp.f:=mn.f;
      zp.i:=mn.i;
      zp.o:=mn.o;
      zp.grup:=mn.grup;
      zp.date1:=mn.date1;
      zp.koldney:=mn.koldney;
      zp.nomvoen:=mn.nomvoen;
      write(zap,zp);
    end else Inc(kok);
    end;
   closefile(mans);
   closefile(zap);
 
   rewrite(mans);
   reset(zap);
    while not eof(zap) do
    begin
     read(zap,zp);
      begin
        mn.f:=zp.f;
        mn.i:=zp.i;
        mn.o:=zp.o;
        mn.grup:=zp.grup;
        mn.date1:=zp.date1;
        mn.koldney:=zp.koldney;
        mn.nomvoen:=zp.nomvoen;
        write(mans,mn);
 
      end;
     end;
   closefile(mans);
   closefile(zap);
   deletefile(zapaska);
   Form15.Activate;
   ShowMessage(IntToStr(kok));
    end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2015, 01:02
Ответы с готовыми решениями:

Не правильно работает оператор условия
Короче суть проблемы в том что неверно обрабатывает if... допустим я складываю...

Не работает оператор сравнения в Delphi
Надо найти минимальные элементы строк 2-мерного массива, но у меня не работает...

Не работает оператор ИЛИ в case
Не работает оператор ИЛИ, или он там и недолжен работать, тока if в моем случае...

Не работает оператор if
Не работает оператор if при проверке параметра функции main; Ввод в cmd:...

Не работает оператор Like
В Access 2016 есть условная база данных, в которой по условию, мне надо сделать...

5
Алекcей
349 / 343 / 135
Регистрация: 11.12.2013
Сообщений: 1,854
14.03.2015, 09:41 #2
Попробуйте использовать вместо ComboBox.Text ComboBox.ItemIndex.
0
pavel_pushok
30 / 30 / 9
Регистрация: 25.12.2014
Сообщений: 115
14.03.2015, 13:01 #3
А что в комбобоксах цифры или текст? И как именно идёт неверный подсчет?
0
droider
Universal
Эксперт Pascal/Delphi
4397 / 2445 / 763
Регистрация: 04.10.2012
Сообщений: 8,887
14.03.2015, 14:06 #4
teodorchike, к элементам ComboBox'а обращаются не через Text. Вот так
Delphi
1
2
com1 :=combobox1.Items[combobox1.ItemIndex];
com2 :=combobox2.Items[combobox2.ItemIndex];
0
teodorchike
0 / 0 / 1
Регистрация: 03.12.2013
Сообщений: 57
14.03.2015, 17:37  [ТС] #5
Цикл начал работать как надо после того, как поставил в If не and а or . Хотя по разному должны работать.
Delphi
1
if  (com2<>mn.grup) or (com1<>IntToStr(mn.nomvoen)) then
0
droider
Universal
Эксперт Pascal/Delphi
4397 / 2445 / 763
Регистрация: 04.10.2012
Сообщений: 8,887
14.03.2015, 21:49 #6
teodorchike, Вы еще учтите то, что написано выше.
0
14.03.2015, 21:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2015, 21:49

Не работает оператор gets()
Господа, помогите! нужна прога для слипания строк, не используя стандартный...

Не работает оператор if else
//--------------------------------------------------------------------------- ...

Не работает оператор IF
Всем привет. Занимаюсь постройкой привода для экваториальной монтировки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru