[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;

[NumLock]

Код:

var
  i: Integer;
  v: Integer;
  r: Integer;
begin
  Randomize;
  Memo1.Clear;
  Memo2.Clear;
  for i:=1 to 20 do
    Memo1.Lines.Add(IntToStr(Random(9999)));
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    v:=StrToInt(Memo1.Lines[i]);
    case v of
      0..999: r:=0;
      1000..1999: r:=1;
      2000..2999: r:=2;
      3000..3999: r:=3;
      4000..4999: r:=4;
      5000..5999: r:=5;
      6000..6999: r:=6;
      7000..7999: r:=7;
      8000..8999: r:=8;
      9000..9999: r:=9;
    end;
    Memo2.Lines.Add(IntToStr(r));
  end;
end;