Table.Items.Vaule + hodnota

[Kony]

Ahoj, resim takovou primitivni vec a nemuzu se porad pres to dostat....

Potrebuji v Table.Items nacist aktualni hodnotu a k tomu pricist hodnotu kterou mam v Edit

Snazim se

Kód: Delphi [Vybrat]

1. var
2.   pricti : Integer;
3.   kam : Integer;
4. begin
5.   kam := ZTable1.FieldByName(ComboBox1.Items).Value;
6.   pricti := kam + ComboBox1.Items;
7.   ZTable1.FieldByName(ComboBox1.Items).Value := pricti;
8.   Ztable1.Post;
9. end;

Ale urcite to mam blbe....

jedna se mi o to..

mam nekolik polozek v Table.. priklad.... sklad1,sklad2,sklad3,sklad4
a potrebuji naskladnit zbozi na urcity sklad, takze do Edit si zapisi hodnotu a v ComboBox si vyberu jaky sklad (mam zapsano v Items) a potom po zmacknuti tlacitka aby se mi to pricetlo

[Kony]

Tak uz mi to i vybírá správně sklady,
ale pořád nemůžu dokopat abych uložil hodnotu z Edit

Kód: Delphi [Vybrat]

1.   Ztable1.Edit;
2.   kam := ZTable1.FieldByName(ComboBox1.Text).Value;
3.   pricti := kam + StrtoInt(Edit2.SelText);
4.   ZTable1.FieldByName(ComboBox1.Text).Value := pricti;
5.   Ztable1.Post;

[Kony]

jsem debil, takova chybka

Kód: Delphi [Vybrat]

1. var
2.   pricti : Integer;
3. begin
4.   Ztable1.Edit;
5.   pricti := ZTable1.FieldByName(ComboBox1.Text).Value;
6.   pricti := pricti + StrtoInt(Edit2.Text);
7.   ZTable1.FieldByName(ComboBox1.Text).Value := pricti;
8.   Ztable1.Post;

[Stanislav Hruška]

Som rád, že si na to prišiel. Ale ja by som to napísal takto

Kód: Delphi [Vybrat]

1.   Ztable1.Edit;
2.   ZTable1.FieldByName(ComboBox1.Text).Value := ZTable1.FieldByName(ComboBox1.Text).Value + StrtoInt(Edit2.Text);
3.   Ztable1.Post;