ListBox

[illuha123]

Народ нужна помощь. Написал программу.
К примеру пришло несколько партия (например 4), их может приходить неограниченно.- это ListBox1.
Далее партия проверяется на кол-во брака и вводится кол-во качественного товара. - ListBox2.
И в ListBox3 выводится:
1. Если нажата 1-ая кнопка тогда среднее кол-во качественного товара с каждой партии, тоисть на против каждой партии выводится ср. кол-во, а в конце просто ср. кол-во.
2. если 2-ая кнопка тогда выводится в тот же листбокс3 на против каждой партии заработок, ну например если введено 20 значит (-40), а если 20 и 100 значит (-10)
Шкала оценивания:
ОЦ Глав, парт. Не глав, партия.
20 -60 -40
30 -50 -30
40 -40 -20
50 -30 -10
60 -20 0
70 35 0
80 40 10
90 67,5 20
100 75 30
110 82,5 40
120 100 50

Вот мои наработки Деньги.zip и код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);


  private
    { Private declarations }
  public
  published
    property Text;
    { Public declarations }
  end;


var
  Form1: TForm1;





implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList;
S: String;
begin
ListBox1.Items.Add('Новая_строка');
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  i,p,k,a:integer;
  x,s:string;
begin
  ListBox1.Items.Delete(i); //удаление строки
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i,p,k,a:integer;
  x,s:string;
begin
k:=ListBox2.Items.Add(Edit2.Text); //Добавление строк в конец списка
Edit2.Text:='';

a:=2;
a:=+1;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  i,p,k,a:integer;
  x,s:string;
begin
i:=0;
  ListBox2.Items.Delete(i); //удаление строки
end;

procedure TForm1.Button5Click(Sender: TObject);


var
  i,k:integer;
  s:string;
x,y,p,a,b:integer;

begin
i:=1;
k:=0;


x:=StrToInt(ListBox2.Items [i-1]);
y:=StrToInt(ListBox2.Items [i]);
p:=StrToInt(ListBox2.Items [i+k]);



Label1.Caption:=FloatToStr(x);
Label2.Caption:=floattostr(y);
Label3.Caption:=floattostr(p);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  chisla  : Array[1..20] of integer;
var
a,b,c,i:integer;
x:string;

begin
a:=ListBox1.Items.Count;
b:=ListBox2.Items.Count;
if a<>b then
MessageBox(0,'Введены не все оценки, или партии','Ошибка ввода', MB_OK);



for i:=1 to ListBox2.Items.Count do
ListBox3.Items.Add (IntToStr(StrToInt(ListBox2.Items[1])+StrToInt(ListBox2.Items[2])));
end;

end.

в чём нужна помощь...
не могу сделать ср. число в листбоксе, и еще не могу сделать что б присвоить числа и сделать сумму в каждой строке и подвести общий итог .

[Sibedir]

бр-р-р. Ничё не понял.

если введено 20 значит (-40), а если 20 и 100 значит (-10)

Я так понимаю, если введено 11 значит (-53), а если 12, то (-76)? Не?
1. Э-э-э, может для начала лучше использовать TStringGrid?
2. Разберите задачу по кусочкам и по каждому из кусочков задаём конкретный вопрос
3. Лично мне не понятно даже это

К примеру пришло несколько партия (например 4), их может приходить неограниченно.- это ListBox1.

Что вводится в ListBox1? Кол-во партий? Кол-во товара в каждой партии?