Как в цикле посчитать формулу и вывести ее результаты в две колонки ListView?

Zlatan · Регистрация: 17.05.2014

Author24 — интернет-сервис помощи студентам

Допустим есть формула: х:= 100 - 10
В ListView надо вывести в таких два столбца :

Шаг | Осталось от числа
1 __|___ 90
2 __|___ 80
3 __|___ 70
... и так далее, до завершения цикла, должно выглядеть вот таким образом(такие колонки)
Я не знаю как можно программно создать новую строчку и соответственно новые ее под строчки программно (ну или как их заполнить)
Если у кого есть пример заполнения такой таблицы циклом - скиньте пожалуйста

@Puporev · 28.05.2014, 18:27

Примерно так.

Delphi

{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var NewColumn: TListColumn;
    ListItem: TListItem;
begin
with ListView1 do
 begin
  ViewStyle := vsReport;
  NewColumn := Columns.Add;
  NewColumn.Caption := 'Шаг';
  NewColumn := Columns.Add;
  NewColumn.Caption := 'Осталось от числа';
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x,i:integer;
    Item: TListItem;
begin
x:=100;
i:=0;
while x>0 do
 begin
  inc(i);
  x:=x-10;
  Item := ListView1.Items.Add;
  Item.Caption :=inttostr(i);
  Item.SubItems.Add(inttostr(x));
 end;
end;

Zlatan 0 / 0 / 0 Регистрация: 17.05.2014 Сообщений: 21
		1
	Как в цикле посчитать формулу и вывести ее результаты в две колонки ListView? 28.05.2014, 17:06. Показов 1430. Ответов 1 Метки нет (Все метки) Допустим есть формула: х:= 100 - 10 В ListView надо вывести в таких два столбца : Шаг \| Осталось от числа 1 __\|___ 90 2 __\|___ 80 3 __\|___ 70 ... и так далее, до завершения цикла, должно выглядеть вот таким образом(такие колонки) Я не знаю как можно программно создать новую строчку и соответственно новые ее под строчки программно (ну или как их заполнить) Если у кого есть пример заполнения такой таблицы циклом - скиньте пожалуйста 0

	28.05.2014, 18:27

Опции темы

Как в цикле посчитать формулу и вывести ее результаты в две колонки ListView?

Решение