|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2016, 15:36 | #1 |
Новичок
Джуниор
Регистрация: 18.12.2016
Сообщений: 1
|
Неправильно выводит. Работа с записями.
На скриншоте показано что программа выводит первую строку , которая подходит по условию и вторую else (т.к вторая не подходит). Нужно сделать так , если хоть одна из строк не подойдет по условию , то выводило else , а у меня и то и то выводит.
type admin=record punkt_naznach,data:string; vremya,chislo_kup,chislo_plac:integ er; end; procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.Cells[0,0]:='Конечный пункт назначения'; StringGrid1.Cells[1,0]:='Дата выезда'; StringGrid1.Cells[2,0]:='Время отправки'; StringGrid1.Cells[3,0]:='Число свободных купейных мест'; StringGrid1.Cells[4,0]:='Число свободных плацкартных мест'; end; procedure TForm1.Button1Click(Sender: TObject); begin StringGrid1.RowCount:=StrToInt(Edit 1.Text)+1; end; procedure TForm1.okClick(Sender: TObject); var admin1:array[1..100] of admin; k,i:integer; begin k:=0; for i := 1 to StringGrid1.RowCount-1 do begin admin1[i].punkt_naznach:=StringGrid1.Cells[0,i]; admin1[i].data:=StringGrid1.Cells[1,i]; admin1[i].vremya:=StrToInt(StringGrid1.Cells[2,i]); admin1[i].chislo_kup:=StrToInt(StringGrid1.C ells[3,i]); admin1[i].chislo_plac:=StrToInt(StringGrid1. Cells[4,i]); end; begin for I := 1 to StringGrid1.Rowcount-1 do begin k:=0; if (admin1[i].vremya)<=22 then if (admin1[i].chislo_kup) >= 3 then if (admin1[i].data)='суббота' then if (admin1[i].punkt_naznach)='Берлин' then k:=k+1; begin if k>=2 then memo1.Lines.add(IntToStr(admin1[i].vremya)) else memo1.Lines.add('невозможно выполнить заказ в полном объеме'); end; end; end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неправильно выводит количество строк и столбцов | Otar4ik | Помощь студентам | 2 | 07.09.2015 09:38 |
неправильно выводит бинарное дерево | KONDR1996 | Общие вопросы C/C++ | 1 | 16.04.2015 08:12 |
сумма ряда Delphi, неправильно выводит ответ | nati_94 | Помощь студентам | 0 | 16.09.2013 21:39 |
с++,циклическая очередь, сразу норм выводит, а потом на где-то логика нарушается и неправильно выводит | nati_94 | Помощь студентам | 2 | 17.03.2013 14:29 |
Выводит объекты после перегрузки неправильно. | ULTRAS.K | Помощь студентам | 1 | 12.03.2012 17:42 |