Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

U cemu je problem?

[es] :: Pascal / Delphi / Kylix :: U cemu je problem?

[ Pregleda: 1835 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

osmica
Beograd

Član broj: 38009
Poruke: 74
62.108.111.*

Sajt: www.imagenedthe.com


Profil

icon U cemu je problem?19.03.2005. u 10:27 - pre 232 meseci
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!
Ivan :)
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: U cemu je problem?19.03.2005. u 10:39 - pre 232 meseci
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);
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: U cemu je problem?

[ Pregleda: 1835 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.