dwa ListBox'y, przeliczanie jednostek SI

0

Witam wszystkich. Pisze program w delphi majacy za zadanie przeliczyc jednoski ukladu SI. Wglada nastepujaco: dwa Listboxy z mozliwoscia wyboru np. miligram, gram, kiogram. W kazdym z nich wybieramy jedna z pozycji ,wpisujemy wartosc w richedit i klikamy na buttom oblicz, wynik ukazuje sie w richedit2 lub Label1? Jak przypisac wartosci do poszczegolnych pozycji w Listbox'ie i jakim kodem wypelnic onclic button'u ?
Z gory dzieki. pozdrawiam

0

w $DELPHI$\Demos\ jest taki program, zobacz.

0

ja zrobilem cos takiego ale nie działa :/ tzn nie podstawia w label wartosci

label6.caption:=floattostr(a);
if (listbox1.itemindex=1) and (listbox2.ItemIndex=0) then
a:=1000*m  ;
label6.caption:=floattostr(a);

1 użytkowników online, w tym zalogowanych: 0, gości: 1