Also hallo erstmal
ich hab dieses Schuljahr mit Delphi angefangen hatte aber schon n paar vorkenntnisse^^
so zu meinen Problem
Es geht um die Brechnung eines Mittelwertes mit Zahlen (Strings) die in einer listbox stehen
bisher bin ich so weit gekommen dass nur zahlen in die listbox eingetragen werden können (is allerdings nicht die feine art)
nun möchte ich wenn ich alle werte eingetragen habe und den button zur brechnung des MW drücke
dass er alle items aus der liste in real Werte umwandelt und ich damit den mittelwert berechnen kann
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)
var a,b:Integer;
begin
a:=0;
b:=StrToInt(Edit2.Text);
Repeat
begin
Listbox1.Items.Delete(0);
b:=b-1;
Edit2.Text:=IntToStr(b);
end;
Until b=0;
end;
procedure TForm1.Button4Click(Sender: TObject);
//Stelle an der der Mittelwert aus den Items der Listbox berechnet werden soll
begin
end;
Und dann würde mich interessieren wie man TryStrTo... einsetzt - klappt bei mir nicht wegen Überladener Version ^^
ich liebe diese super zu interpretierenden Fehler (soll heißen kann damit nix anfangen)
Danke schon ma im Vorraus
The_Doomed