| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с массивом [D7, XP]

sana ©   (2010-01-14 15:55:00) 

Удалено модератором
Примечание: Спам

---

sana   (2010-01-14 19:22:00) [1]

В этом коде я разобрался, но почему тогда не работает аналогичный код
for i:=1 to 10 do
begin
if Pras<StrToFloat(form5.StringGrid1.Cells[1,i]) then
begin
Pdv:=StrToFloat(form5.StringGrid1.Cells[1,i]);
label10.Caption:=FloatToStr(Pdv);
break;
end; end;

---

Darvin   (2010-01-14 17:13:00) [2]

> Игорь Шевченко ©  

Точно.  Все наглядно   )))))

---

Игорь Шевченко   (2010-01-14 17:10:00) [3]

> Я отформатировал код


ты неверно отформатировал, надо так

procedure TForm1.Button1Click(Sender:TObject);var i:integer;begin s:=
StrToFloat (Edit1.  Text); for i:=1 to 10 do  begin if s< StrToFloat(
StringGrid1.Cells[1,i]) then begin r:=StrToFloat(StringGrid1.Cells[1,
i]);label1.Caption:=FloatToStr(r);end;exit;end;end;

---

Darvin   (2010-01-14 16:38:00) [4]

> Anatoly Podgoretsky ©  

Вообще-то, не я вопрос задаю...
Я отформатировал код имени sanaи показал, где он выходит из цикла...

---

Anatoly Podgoretsky   (2010-01-14 16:34:00) [5]

> Darvin  (14.01.2010 16:03:01)  [1]

А сделать контрольный вывод значений, например в мемо в голову не приходит?

---

Darvin   (2010-01-14 16:03:00) [6]

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 s:=StrToFloat(Edit1.Text);
 for i:=1 to 10 do
 begin
   if s<StrToFloat(StringGrid1.Cells[1,i]) then begin
     r:=StrToFloat(StringGrid1.Cells[1,i]);
     label1.Caption:=FloatToStr(r);
   end;
   exit; <- Вывалился после первой же итерации
 end;
end;

---

Наверх