Autor Téma: Table.Items.Vaule + hodnota  (Přečteno 448 krát)

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 276
  • Karma: 1
    • Verze Delphi: Delphi 7
Table.Items.Vaule + hodnota
« kdy: 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

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 276
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Table.Items.Vaule + hodnota
« Odpověď #1 kdy: 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;

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 276
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Table.Items.Vaule + hodnota
« Odpověď #2 kdy: 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;

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4508
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:Table.Items.Vaule + hodnota
« Odpověď #3 kdy: 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;
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.