[u.s.fire]

delit ,

[Страдалецъ]

Цикл у вас работает только для I := StrToInt(Memo1.Lines[n]); а все остальное вне цикла.

[u.s.fire]

Страдалецъ , задача проста



если 7501..7600 то Rez := 375;
если 7601..7700 то Rez := 380;
если 7701..7800 то Rez := 385;
если 7801..7900 то Rez := 390;
если 7901..8000 то Rez := 395;

чтоб , могло сразу , 700 значение обработать , столбиком , в одно действие if или case , оператор условия ,

[angvelem]

case не подойдёт, превышен предел 255, только if остаётся.

[u.s.fire]

angvelem , желательно примерный код , наклепать

[angvelem]

Чего его клепать?

Код:

  if (I >= 7501) and (I <= 7600) then
    Rez := 375
  else if (I >= 7601) and (I <= 7700) then
    Rez := 380
  else if (I >= 7701) and (I <= 7800) then
    Rez := 385
  else if (I >= 7801) and (I <= 7900) then
    Rez := 390
  else if (I >= 7901) and (I <= 8000) then
    Rez := 395;