Hirdetés
- Brutálisan elszállhat az új PC-s Snapdragon fogyasztása
- Szünetmentes tápegységek (UPS)
- Soundbar, soundplate, hangprojektor
- Házimozi belépő szinten
- Bejött az ASUS-nak az OLED
- Androidos tablet topic
- OLED TV topic
- Olcsó vs. drága egér: melyiknél érzed meg igazán a különbséget?
- Kormányok / autós szimulátorok topikja
- Milyen monitort vegyek?
Új hozzászólás Aktív témák
-
-
Notes
senior tag
Köszi! Végre életet leheltél a fórumba!
Végül így oldottam meg (Thx to prog.hu community!):
Begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Open;
end;
end;
Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem? -
#655
killerjohn
addikt
g4dg3t
#652
killerjohn
addikt
VCL :
TForm
property Components[Index: Integer]: TComponent read GetComponent;
function TComponent.GetComponent(AIndex: Integer): TComponent;
begin
if FComponents = nil then TList.Error(@SListIndexError, AIndex);
Result := FComponents[AIndex];
end;
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
for I := 0 to FComponents.Count - 1 do
begin
Result := FComponents;
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;
a függvényhíváson belül már a saját, közvetlen elérésű adattagjával dolgozik az osztály, és nem a GetComponent függvényen keresztül ad vissza értéket, amikor a Components[] tömb elemeit olvasod....
Tehát még gyorsabb is.
Új hozzászólás Aktív témák
- Brutálisan elszállhat az új PC-s Snapdragon fogyasztása
- DJI topic
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- Fotók, videók mobillal
- Robotporszívók
- Óra topik
- AliExpress tapasztalatok
- One otthoni szolgáltatások (TV, internet, telefon)
- Samsung Galaxy A56 - megbízható középszerűség
- Yettel topik
- További aktív témák...
- ÚJ Pulsar Gaming Gears X2V2 Mini Bolti ár:33k INGYEN FOXPOST
- ÚJ HP Victus 15 - 15.6" FHD IPS 144Hz - Ryzen 5 8645HS - 16GB - 512GB - RTX 4050 - Win11 - 3 év gari
- Rezgéscsillapítók, távtartók (vízhűtéshez kiemelten), szűrők ventillátorhoz és táphoz
- Dell Precision 7770 17,3 FHD Laptop,i7-12850HX,32GB DDR5,RTX 3000 12GB,1TB,100% akku,NBD gari 2026ig
- 1db pixelhiba vagy hasonló - Dell U2415 vékony kávás full HD 1920x1200 IPS monitor HDMI Pivot mód
- Samsung Galaxy S10 128GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 15 Pro 128GB Blue Tianium -1 ÉV GARANCIA - Kártyafüggetlen, MS3909, 100% Akkumulátor
- 153 - Lenovo LOQ (15IRX9) - Intel Core i5-13450HX, RTX 4060
- iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3430, 91% Akkumulátor
- Clevo 1060 6GB Mxm 3.1 laptop videó kártya ingyen házhoz szálitással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest