Poslední příspěvky
Jaj, DataSetCount nie je počet záznamov
Nicmene kdyz uz jsme u RecordCount, dej si na nej pozor. Je rizen rezimem RecordCountMode ktery Ti s vychozim nastavenim nemusi vyhovovat.
?Hm, mám problém. Uložím si do GTT údaje. Ale DB manažér ukáže prázdnu tabuľku. Neviem či to tak má byť.
@JaroB - To vypadá dobře .... děkuji
předělal jsem to do StringGridu,, ale to seřazení v něm nějak nedávámKód: [Vybrat]procedure TForm5.Button1Click(Sender: TObject);
var
t: TStringList;
i, j, c: Integer;
begin
t := TStringList.Create;
try
t.Duplicates := dupIgnore;
t.Sorted := True;
//deduplikace
for i := 1 to StringGrid7.RowCount -1 do
t.Add(StringGrid7.Cells[4,i]);
t.Duplicates := dupAccept;
t.Sorted := False;
//nascitani
for i := 0 to StringGrid7.RowCount -1 do
begin
j := t.IndexOf(StringGrid7.Cells[4,i]);
if j <> -1 then
begin
c := Integer(t.Objects[j]);
inc(c);
t.Objects[j] := Pointer(c)
end;
end;
//setrideni
.... ???
načtu hodnoty z StringGrid7 a zapíšu je seřazené do StringGrid9
Ale jak je ve StringGrid9 seřadit ?
Ten však zoraďuje texty, nie čísla. Preto je treba čísla naformátovať s vodiacimi nulami:Kód: Delphi [Vybrat]
SQLite databáza a SQL príkazy, presne takéto úlohy riešia omnoho elegantnejšie a dokonalejšie. StringGrid sa nahradí dbGridom. Úloha je hotová za zlomok času. Pritom sa otvárajú nekonečné možnosti úprav a vylepšení.
Navic tohle vypada jako domaci ukol Poslal jsem kompletni reseni s ukladanim poctu vyskytu do pole objektu kolekce s vyuzitim custom sort bez zbytecnosti navic Asi jen ztrata casu 
