combobox in listbox übertragen

[cresporov]

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]

[leddl]

Zuerst mal herzlich willkommen in der DP!

Erklär mal genauer, wo dein Problem liegt, und was an deinem Code nicht funktioniert.

[cresporov]

ich will einen kleiene offertenrechner programmieren.

jetzt habe ich in einer combobox eine materialliste erstellt und zu jedem stück einen preis hinterlegt.

nun will ich das angewählte material in zwei listboxen ausgeben. eine mit dem material und die andere mit dem preis mal anzahl.

[leddl]

Zitat von leddl:

Erklär mal genauer, wo dein Problem liegt, und was an deinem Code nicht funktioniert.

Du hast doch bereits Code da stehen, was funktioniert dabei nicht?

[cresporov]

stbetrag := strtoint (combobox1.ItemIndex);

hier stimmt was nicht.

ich kann den zahlen wert nicht in die 2 listbox hinzufügen.

[marabu]

Abgesehen davon, dass die fragliche Zeile syntaktisch falsch ist - es ist keine Konvertierung von String zu Integer nötig, da ItemIndex bereits eine Integer ist - kannst du die Zeile getrost weglassen. Immerhin hast du vorher mit einigem Aufwand die Variable stbetrag initialisiert.

Grüße vom marabu

[cresporov]

vielen dank.

ich komme meinem ziel langsam näher.

wie kann ich ienzelne teile des programms ausklammern um den rest zu kontrollieren????

[fLaSh11]

Haltepunkt setzen (links neben der Zeilennummerierung klicken)!