Forum Delphi.cz

Delphi => Obecné => Téma založeno: Kony 17-07-2019, 15:22:38

Název: Table.Items.Vaule + hodnota
Přispěvatel: Kony 17-07-2019, 15:22:38
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
Název: Re:Table.Items.Vaule + hodnota
Přispěvatel: Kony 17-07-2019, 15:30:49
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;
Název: Re:Table.Items.Vaule + hodnota
Přispěvatel: Kony 17-07-2019, 15:52:03
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;
Název: Re:Table.Items.Vaule + hodnota
Přispěvatel: Stanislav Hruška 17-07-2019, 15:57:44
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;