Форум: "Начинающим";
Текущий архив: 2010.03.21;
Скачать: [xml.tar.bz2];
ВнизРабота с массивом Найти похожие ветки
← →
sana (2010-01-14 15:55) [0]Удалено модератором
Примечание: Спам
← →
Darvin (2010-01-14 16:03) [1]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;
← →
Anatoly Podgoretsky © (2010-01-14 16:34) [2]> Darvin (14.01.2010 16:03:01) [1]
А сделать контрольный вывод значений, например в мемо в голову не приходит?
← →
Darvin (2010-01-14 16:38) [3]
> Anatoly Podgoretsky ©
Вообще-то, не я вопрос задаю...
Я отформатировал код имени sana и показал, где он выходит из цикла...
← →
Игорь Шевченко © (2010-01-14 17:10) [4]
> Я отформатировал код
ты неверно отформатировал, надо так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 17:13) [5]
> Игорь Шевченко ©
Точно. Все наглядно )))))
← →
sana (2010-01-14 19:22) [6]В этом коде я разобрался, но почему тогда не работает аналогичный код
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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.03.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c