Poslední příspěvky

Stran: [1] 2 3 ... 10
1
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Stanislav Hruška kdy Dnes v 14:07:47 »
Píšeš dobre. Ja údaje získavam z certifikátu. martinnr napísal, že v TDictionary nemám istotu správneho poradia položiek.
Preto som tak reagoval. Nebol problém to urobiť nepriamo
Kód: Delphi [Vybrat]
  1. procedure TCertificate.FillcbbYear(AComboBox: TAdvComboBox);
  2. var
  3.   I, Key: Integer;
  4.   Strl: TStringList;
  5. begin
  6.   oGlobVar.ClearAndFreeComboBoxObj(AComboBox);
  7.   Strl := TStringList.Create;
  8. .
  9.   try
  10.     for Key in FYearsFlats.Keys do
  11.       Strl.Add(IntToStr(Key));
  12. .
  13.     Strl.Sort;
  14. .
  15.     for I := Strl.Count - 1 downto 0 do
  16.       AComboBox.Items.Add(Strl[I]);
  17.   finally
  18.     AComboBox.Items.EndUpdate;
  19.     FreeAndNil(Strl);
  20.   end;
  21. end;
Obom ďakujem za reakcie.
2
Obecné / Re:Vypsani zaznamu dle datumu
« Poslední příspěvek od Stanislav Hruška kdy Dnes v 14:02:50 »
Je dobre si uvedomiť, že "TDBTAble" sú takisto TQuery. Len majú iné vlastnosti a metódy. Ale, na čo chcem poukázať, získanie údajov z DB je vždy rovnaké.
3
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Radek Červinka kdy Dnes v 14:01:49 »
Odpovidal jsem ti na "Problém je v tom, potrebujem načítať hodnoty od konca k začiatu DESC. Neviem to urobiť priamo."

Pokud mas serazeny dataset z nejakeho duvodu a chces tam vkladat polozky naopak, tak ho prochazis normalne od zacatku a misto Add pouzijes Insert(0, ..), takze se ti kazda polozka vlozi na 0 pozici a tim se poradi prevrati. Asi jsem to pochopil jinak nez to co chces.
4
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Stanislav Hruška kdy Dnes v 13:55:09 »
AComboBox.Items.Insert(0, .... ) ?
Ako mi to zaručí správne poradie (rokov) od najväčšieho po najmenší?
Asi to urobím okľukou/nepriamo. Naplním TStringList, zoradím ho. Budem ho prechádzať od konca a napĺňať ComboBox. Tu sa o výkon báť nemusím.
5
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Radek Červinka kdy Dnes v 13:45:31 »
AComboBox.Items.Insert(0, .... ) ?
6
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Stanislav Hruška kdy Dnes v 13:42:45 »
Ďakujem za odpoveď. Ako to zoradím DESC, ak si to dám napr. do TStringList? Pri všetkých takýchto príležitostiach vidím iba možnosť ASC. Tých položiek tam nebude nikdy veľa. Sú to roky platnej licencie.
7
Obecné / Re:Vypsani zaznamu dle datumu
« Poslední příspěvek od martinnr kdy Dnes v 13:41:52 »
chlapci ti radia to robit dotazom na databazu. nie spocitavanim cez filtre na prvotnej tabulke, ktoru mas otovrenu a mas v nej vsetky zaznamy.
asi je ta tabulka zobrazena na formualri v nejakom gride (a v nej nieco ) a chces potom na kliknutie dostat tie sucty a niekdy ich vypisat.
zaloz si tam druhy objekt typu ZQuery (alebo adekvatny), do ktoreho mozes zadat sql prikaz zostaveny podla svojich potrieb (napr. pomocou toho group by), z nej potom prejdes jednotlive zaznamy a vypises si ich ako potrebujes. takyto objekt samozrejme nemusis mat napojeny na grid a mozes prejist jeho zaznamy...

Kód: [Vybrat]
zquery1.sql.text := 'select sum(a), count(*), atd from tableX group by c';
zquery1.open;
while not zquery1.eof do
begin
  memo1.lines.add('Sucet: ' + Zquery1.fields[0].asstring);  //sum(a)
  memo1.lines.add('Pocet: ' + Zquery1.fields[1].asstring);  //count(*)
  ...
  Zquery1.next;
end;
8
Obecné / Re:TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od martinnr kdy Dnes v 13:27:49 »
nie som si ani isty, ze obycajne (dopredu, ako mas vo vzorke kodu) nacitavanie ti vrati v korektnom poradi. ako to ma nahadzane interne v pamati, asi nie je zarucene, ze tak ako si to tam vkladal. nespoliehal by som sa na to, bez nejakeho indexu. hlavne pri vacsom pocte prvkov.
9
Obecné / TDictionary načítanie hodnôt Keys od konca
« Poslední příspěvek od Stanislav Hruška kdy Dnes v 13:17:22 »

Používam nasledovnú funkciu. Problém je v tom, potrebujem načítať hodnoty od konca k začiatu DESC. Neviem to urobiť priamo.
Kód: [Vybrat]
    FYearsFlats: TDictionary<Integer, Integer>;
.
procedure TCertificate.FillcbbYear(AComboBox: TAdvComboBox);
var
  I, Key: Integer;
begin
  oGlobVar.ClearAndFreeComboBoxObj(AComboBox);
.
  try
    for Key in FYearsFlats.Keys do
      AComboBox.Items.Add(IntToStr(Key));
  finally
    AComboBox.Items.EndUpdate;
  end;
end;
10
Obecné / Re:Môj program - nedá sa spustiť
« Poslední příspěvek od František kdy Dnes v 10:40:11 »
mne sa stava, ze ked si necham aktivne nejake conection an DB, ftedy mavam taketo problemy
Stran: [1] 2 3 ... 10