hallo
kennt jemand die lösung für mein problem???
ich will aus einer combobox das wort in eine listbox übertragen und den hinterlegten wert mal einen faktor in eine zweite listbox hinzufügen. ausserdem sollen sich die zwei listboxen miteinander bewegen.
vielen dank für die hilfe !!!!!!!!!!!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
case combobox1.itemindex of
0 : stbetrag := 5 ;
1 : stbetrag := 6 ;
2 : stbetrag := 8 ;
3 : stbetrag := 10 ;
4 : stbetrag := 12 ;
5 : stbetrag := 14 ;
6 : stbetrag := 2 ;
7 : stbetrag := 4 ;
8 : stbetrag := 5 ;
9 : stbetrag := 5 ;
10 : stbetrag := 9 ;
11 : stbetrag := 2 ;
12 : stbetrag := 4 ;
13 : stbetrag := 2 ;
14 : stbetrag := 4 ;
15 : stbetrag := 3 ;
16 : stbetrag := 6 ;
end;
begin
listbox1.items.add(combobox1.text);
anzmat := strtoint (edit1.Text);
stbetrag := strtoint (combobox1.ItemIndex);
listbox2.items.add(inttostr(stbetrag*anzmat));
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
listbox2.itemindex:=listbox1.itemindex;
end;
[edit=Luckie]Delphi-Tags eingefügt. Beim nächsten Mal bitte selber machen. Mfg, Luckie[/edit]