11
Firebird a Interbase / Re:Dočasná tabuľka - ako ju riešiť?
« Poslední příspěvek od Delfin kdy 18-04-2018, 21:41:43 »Jaj, DataSetCount nie je počet záznamov
Neni

Jaj, DataSetCount nie je počet záznamov
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]
Format( '%0.3d', [ mojeCislo] )
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í.