U cemu je problem?

[ osmica @ 19.03.2005. 10:27 ] @

Pokusavam da iz listbox1 na clik saberem sav njegov sadrzaj a to je 1,2,3,4, i da rezultat prikazem preko label1.Source otprilike glasi ovako,ali ne znam u cemu je greska,pokusavao sam svasta ali bez uspeha?Greska je u konverziji iz stringa u integer ali nemogu da je uklonim!Source otprilike glasi ovako:

procedure TForm.Button1Click(Sender: TObject);
var
Lista,Labela:integer;
begin
Lista:=StrToInt(Listbox1.Items.Text);
Labela:=StrToInt(Label1.Caption);
Labela:=Labela+lista;
Label1.Caption:=IntToStr(Labela);
end;
slican problem imam i sa memom ali nekontam u cenu gresim!
Hvala,poz 4 all!

[ reiser @ 19.03.2005. 10:39 ] @

Ne mozes da radis StrToInt na celom tekstu koji se nalazi u ListBox-u zato sto su linije odvojene #13#10 charovima.

Kod treba da glasi otprilike ovako, iz glave :

Code:

Lista := 0;
For C1 := 0 to ListBox1.Items.Count - 1 Do
Inc(Lista, StrToInt(ListBox1.Items[C1]));
Labela := StrToInt(Labela) + Lista;
Label1.Caption := IntToStr(Labela);