Listbox Items weiterverarbeiten

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
//Einfügen einer Zahl in die Listbox über StrToFloat - FloatToStr
var c:String; b:Integer;  a:real ;
begin
b:=StrToInt(Edit2.Text);
a:=StrToFloat(Edit1.Text);
c:=FloatToStr(a);
Listbox1.Items.Add(c);
b:=b+1;
Edit2.Text:= IntToStr(b);
end;

procedure TForm1.Button2Click(Sender: TObject);
//Löschen eines ausgewählten Items
begin
  Listbox1.DeleteSelected;
end;

procedure TForm1.Button3Click(Sender: TObject);
//Schleife zum Löschen der kompletten Liste (evt. gehts auch einfacher)
begin
  ListBox1.Items.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
//Stelle an der der Mittelwert aus den Items der Listbox berechnet werden soll
var i: integer;
    Summe, Mittel: double;
begin
  Summe := 0;
  Mittel := 0;
  for i := 0 to ListBox1.Items.Count - 1 do
    Summe := Summe + StrToFloat(ListBox1.Items[i]);
  if ListBox1.Items.Count > 0 then
    Mittel := Summe / ListBox1.Items.Count;
end;

Getippt und nicht getestet.