Генерирование вещественных чисел

[koljsch]

А как же всеми любимый StringGrid? Кажется при нем лучше будет смотреться, да и заполнять не так сложно будет)

[Stilet]

Не имеет значения. Главное Мемо заменить.

[Оль4ик]

Честно говоря, раньше я никогда не использовала этот компонент, поэтому придется мне быстренько изучить "с чем едят" этот ListView. Пока что не пойму даже как правильно заменить строку Memo1.Lines.Add('Сгенерированный массив:') на ListView
А какие, кстати у него преимущества перед Мемо ?

[Stilet]

какие, кстати у него преимущества перед Мемо ?

Да они для разных вещей делаются.
Мемо - блок голого текста. ЛистВью - представление иконное или табличное.
Тебе ИМХО как раз табличное не помешает. Можешь СтрингГрид взять конечно.

Пока что не пойму даже как правильно заменить строку Memo1.Lines.Add('Сгенерированный массив:') на ListView

В целом так:

var i:integer;litem:TListItem;
begin
 with ListView1 do begin
  // Стиль таблицы
   ViewStyle:=vsReport;
   GridLines:=true;
   // Создаем колонки
   for i:=1 to 12 do begin
    with Columns.Add do begin     Caption:='Колонка '+IntToStr(i); AutoSize:=true;  end;
   end;
   // Наполняем данными
   for i:=0 to 100 do begin
    // Каждый десяток создавая новую запись
     if (i mod 10)=0 then begin litem:=Items.Add; Caption:=IntToStr(i); end
     else litem.SubItems.Append(IntToStr(i));
   end;
 end;
end;

Твоя задача - кинуть на форму Листвью, и задвинуть пример туда, где Листвью должен наполнятся.

[Оль4ик]

Спасибо вам и всем огромное за помощь!!!
Я надеюсь что дальше уже справлюсь самостоятельно с задачей!

[Stilet]

Не сомневаюсь )

[Оль4ик]

Добрый вечер! Должна продолжить эту тему, т.к работа сделана не до конца.
Очень хочется узнать, как правильно подсчитать количество получившихся вещественных чисел в следующих диапазонах:
От 0 до 0,1 от 0,1 до 0,2 от 0,2 до 0,3 от 0,3 до 0,4 от 0,4 до 0,5 от 0,5 до 0,6
от 0,6 до 0,7 от 0,7 до 0,8 от 0,8 до 0,9 от 0,9 до 1
Я попыталась было сделать так, но программа отказалась правильно подсчитывать, показывая в Эдитах либо просто нули, либо единицы.

n1:=0; n2:=0; n3:=0; n4:=0; n5:=0; n6:=0; n7:=0; n8:=0; n9:=0; n10:=0;
      if x1 < 0.1  then inc(n1) ;
      if (x1 > 0.1) and (x1 < 0.2) then inc(n2);
      if (x1 > 0.2) and (x1 < 0.3) then inc(n3);
      if (x1 > 0.3) and (x1 < 0.4) then inc(n4);
      if (x1 > 0.4) and (x1 < 0.5) then inc(n5);
      if (x1 > 0.5) and (x1 < 0.6) then inc(n6);
      if (x1 > 0.6) and (x1 < 0.7) then inc(n7);
      if (x1 > 0.7) and (x1 < 0.8) then inc(n8);
      if (x1 > 0.8) and (x1 < 0.9) then inc(n9);
      if (x1 > 0.9) and (x1 < 1) then inc(n10);
      Edit9.Text:=   inttostr(n1);
      Edit10.Text:=  inttostr(n2);
      Edit11.Text:=  inttostr(n3);
      Edit12.Text:=  inttostr(n4);
      Edit13.Text:=  inttostr(n5);
      Edit14.Text:=  inttostr(n6);
      Edit15.Text:=  inttostr(n7);
      Edit16.Text:=  inttostr(n8);
      Edit17.Text:=  inttostr(n9);
      Edit18.Text:=  inttostr(n10);

[Stilet]

var a:array[1..10] of integer; x:integer;
... Теперь подсчитаем в каком-нить цикле кол-во входов в диапазоны
 x:=trunc(x1*10);
 if (x>0)and(x<11) then inc(a[x]);
...
И выведем количества в Эдиты
x:=1;
      Edit9.Text:=   inttostr(a[x]);inc(x);
      Edit10.Text:=  inttostr(a[x]);inc(x);
      Edit11.Text:=  inttostr(a[x]);inc(x);
      Edit12.Text:=  inttostr(a[x]);inc(x);
      Edit13.Text:=  inttostr(a[x]);inc(x);
      Edit14.Text:=  inttostr(a[x]);inc(x);
      Edit15.Text:=  inttostr(a[x]);inc(x);
      Edit16.Text:=  inttostr(a[x]);inc(x);
      Edit17.Text:=  inttostr(a[x]);inc(x);
      Edit18.Text:=  inttostr(a[x]);
...

Идея ясна?

[Оль4ик]

Завтра попытаюсь применить этот подход в своей работе. Если получится, значит поняла, в любом случае отпишусь. Спасибо.

[Оль4ик]

Простите ради бога, ничего не могу с собой поделать, бьюсь как рыба об лед.
Никак не получается применить к своей проге этот пример. Объясните, пожалуйста, почему у вас здесь

if (x>0)and(x<11) then inc(a[x])

увеличивается на единицу элемент массива? А ведь у меня должны увеличиваться счетчики накоплений?