- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- gban: Ingyen kellene, de tegnapra
- Azonos árketegóriájú (105-110.000 Ft-os) relatív olcsó telefonok kamerái
- Pajac: tpm.msc
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Szevam: „Rendszerleállás” – egy AI képzeletbeli halál utáni élménye
- Parci: Milyen mosógépet vegyek?
Új hozzászólás Aktív témák
-
g4dg3t
senior tag
A gond ott van hogy elobb hivatkozol a parameterekre es csak kesobb hozod oket letre. Mikor meghivod a ParamByName metodust az SQL stringnek mar tartalmaznia kell a lekerdezest a parameterhivatkozasokkal egyutt!
Tehat helyesen:
...
with Query1, SQL do begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
if LekerdFelhComboBox.ItemIndex > 0 then
Add('AND (Felhasznalo= :Felhaszn)');
if LekerdPartnerComboBox.ItemIndex > 0 then
Add('AND (Partner= :Partn)');
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Prepare;
Open;
end;
...
Lathatod azt is hogy mikor kell hivni a Prepare metodust (Open elott). Ez annyit csinal, hogy elore lefoglalja a Query futtatasahoz szukseges eroforrasokat igy a lekerdezes vmivel gyorsabban lefut!
[Szerkesztve] -
g4dg3t
senior tag
XP alatt nekem a kovetkezo keppen sikerult megoldani a meghajto talcajanak kinyitasat/becsukasat:
...
const
FILE_DEVICE_MASS_STORAGE = $2D;
METHOD_BUFFERED = 0;
FILE_READ_ACCESS = 1;
IOCTL_STORAGE_EJECT_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
(FILE_READ_ACCESS shl 14) OR
($202 shl 2) OR
(METHOD_BUFFERED);
IOCTL_STORAGE_LOAD_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
(FILE_READ_ACCESS shl 14) OR
($203 shl 2) OR
(METHOD_BUFFERED);
...
procedure TForm1.Button1Click(Sender: TObject);
var
CD_DVD_Handle: THandle;
ret: DWORD;
begin
//Ertelem szeruen F: helyere a sajat meghajtod betujele...szebb ha irsz egy fuggvenyt ami lekerdezi
CD_DVD_Handle:=CreateFile(PChar('\\.\F:'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
if CD_DVD_Handle <> INVALID_HANDLE_VALUE then begin
//Talca kinyit
DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_EJECT_MEDIA,nil,0,nil,0,ret,nil);
//Talca becsuk
DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_LOAD_MEDIA,nil,0,nil,0,ret,nil);
CloseHandle(CD_DVD_Handle);
end;
end;
... -
g4dg3t
senior tag
Csak Win98-as kernel32.dll-ben talalhato meg a RegisterServiceProcess fuggveny!
Van egy tippem mire kellene ez neked
El akarod tuntetni a futo alkalmazasok kozul a progid? Eleg egyszeru a modja a project .dpr fajljaban allitsd az alkalmazas 'cimet' ures stringre...fura de a WIN feladatkezeloje ez alapjan sorolja be, hogy alkalmazasrol avagy folyamatrol van szo.
...
Application.Initialize;
Application.Title:='';
... -
yksz
aktív tag
Egy rovid és gyors kérdés: Mi a hiba ezzel:
function RegisterServiceProcess (ProcessID,RType
Word)Word; stdcall;external 'KERNEL32.DLL';
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,0);
end;
? Help pls! -
gammar
csendes tag
az isten sem erti hogy van a delphiben ez a ''send message'' a windowsnak,
egyszeruen annyit szeretnek tudni hogy a cdrom ejectelesenek hogy vannak a
wparam,lparam-ei + message number,mert nem tom vki ismerie az irrassistantnek van egy ilyen send message es taviranyitorol akarom ejectelni ehhez kene nekem a parameterek vagy mi.Ha vki tud segiteni elore is kosz!
-
Notes
senior tag
No elkezdtem SQL-ezni. A SELECT utasítás egyszerűségéből fakadó sikerélmények után ( :) ) Kicsit elakadtam. Az alábbi kód a form-on lévő ComboBox-ok adatai alapján szűri a táblát. Pontosabban nem szűri... 'Parameter 'Felhaszn' not found-al leáll futás közben. Mit rontottam el?
With Query1, SQL Do
Begin
Close;
Clear;
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= :Felhaszn)');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= :Partn)');
Open;
end;
end;
Illetve átolvastam 3 könyvet, de a Prepare helyes használatát nem sikerült megértenem (leginkább akkor működik minden jól, ha nem használom...) Erről is jó lenne egy kis útbaigazítás.
Köszi!
[Szerkesztve] -
#789
killerjohn
addikt
The TYPhoon
#779
killerjohn
addikt
válasz
The TYPhoon
#779
üzenetére
Var lvData : TListView;
Begin
lvData.Items.Clear;
For i := 1 To N Do
Begin
With lvData.Items.Add Do
Begin
Caption := '1. oszlop';
SubItems.Add('2. oszlop');
SubItems.Add('3. osztlop');
End;
End;
End;
ennyi. -
Diskcopy
tag
válasz
Calogero
#785
üzenetére
procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
try
open := TOpenPictureDialog.Create(self);
open.InitialDir := ExtractFilePath(Application.ExeName);
IF open.Execute THEN
image1.picture.loadfromfile(open.filename);
finally
open.Free;
end;
end;
Usesnál ugye hozzáadod az ExtDlgs -t és jó lesz. Üdv. -
Calogero
addikt
Procedure TFelviteForm.BitBtnBoritoClick(Sender: TObject);
Begin
ImageBorito.Picture.Bitmap.FreeImage;
OpenPictureDialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Boritok';
If OpenPictureDialog.Execute Then
Begin
ImageBorito.Picture.LoadFromFile(OpenPictureDialog.FileName);
VanKep:=True;
End;
End;
OpenPictureDialog-al szeretnek betolteni egy kepet, ami sikerul is azzal nincs gond.
A gond InitialDir-el van. Az elso klikknel meg tokeletesen mukodik, de ha a kepet egy masik konytvtarbol toltom be. akkor a kovetkezo klikknel mar nem veszi figyelembe az InitialDir-ben megadott erteket, hanem megjegyzi hogy honnan lett kijelove az elozo kep. Ha a programbol kilepek es ujra inditom akkor ismet jol mukodik az elso klikkig. -
hjk
csendes tag
Sziasztok!
Van egy elég hosszú C program, amit szeretnék átkonvertálni Pascalba.
Van valami, ami ezt megcsinálja, vagy csak kézzel lehet?
És 1 plusz kérdés: itt nincs olyan lehetőség, hogy a felhasználónév E-mail címére újra elküldi a jelszót? Mert nem emlékszem mi volt az...
Köszi előre is!
umbroman@freemail.hu -
Divi
aktív tag
Az átméretezre jó lehet, hogy
a Form.Width helyett Form.ClientWidt használsz.
a Form.Heigth helytt meg Form.ClientHeigth-ot
A Clientxxx a program által felhasználható terültet jelöli, míg a sima Width/Heigth a Windows által ráadott kerettel eggyüt mért szélesség/magasságot adja meg.
[Szerkesztve] -
opr
nagyúr
Hi.
Van két problémám:
1 Delhi 7-ben megírok egy progit, ez eddig ok, de ha átviszem egy másik gépre (pl.haverhoz tesztre, stb.), akkor ha xp van, átméretezi megát kb. 10-20 pixellel kisebbre
, és ezzel nem igazán tudok zöldágra vergődni.
2 Ugyancsak a 7-esben ha csinálok egy progit, és abban van pl. szűrés (vagy keresés itt-ott,ebben-abban), akkor ugyancsak másik gépen 1*üen nem műxik, el se indul, nem ír ki semmit, stb.
(ha hülye kérdés, akkor sry, de még naon kezdő vok, meg már épp ezek miatt nem is nagyon programoztam már vagy fél éve)
plz help
thx -
#779
The TYPhoon
csendes tag
The TYPhoon
csendes tag
Szisztok!
Az lenne a kérdésem, hogy hogy lehet e ListView komponenst futásidőben feltölteni.
Hogy lehet albejegyzést egyszerűen hozzáadni?
Lenne 3 oszlop.
Az első a keresett szó, a második a találat helye, és a harmadik a megjegyzés.
Úgy gondoltam, hogy a második és a harmadik oszlop elemei az első oszlop SubItemüjei legyenek.
Valahogy így:
Találat1 | pozíció1 | Megjegyzés1
Találat2 | pozíció2 | Megjegyzés2
Találat3 | pozíció3 | Megjegyzés3
Találat4 | pozíció4 | Megjegyzés4
Találat5 | pozíció5 | Megjegyzés5
Előre is köszi. TYPhoon -
#776
Divi
aktív tag
Zsolteeeee
#775
Divi
aktív tag
válasz
Zsolteeeee
#775
üzenetére
''jó'' aláírásod van
-
#775
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Ez az utóbbi b**t jó. Kössz.
-
#774
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Megnéztem a súgót ígéretesnek mutatkozik.
-
#773
steveetm
őstag
Zsolteeeee
#771
steveetm
őstag
válasz
Zsolteeeee
#771
üzenetére
Bővebben: link
Üdv.: steveetm -
#772
b14
senior tag
Zsolteeeee
#771
b14
senior tag
válasz
Zsolteeeee
#771
üzenetére
Talán létezik vmi rename() eljárás.
-
#771
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Delphiben van olyan metodus amivel lehet mappát másolni, vagy ha másolni akarok, akkor le kell kezelnem azt, hogy a mappában lévő összes file-on végigfusson és úgy másoljon. Please, help me!
-
gLes
őstag
Szóval azt mondod, hogy nem fut le az OnClick esemény?
Raksz bele egy ShowMessage-et vagy egy Break-et az nem reagál, ugye?
Őszintén szólva ilyennel még nem találkoztam, pedig elhiheted, hogy sok hasonló bosszúsággal meggyűlt már a bajom
Próbáltad már, hogy letörlöd a gombot és újat raksz fel?
Hopsz most vihar van gép kikapcs
-
Divi
aktív tag
Üdvözlöm a nagyérdeműt!
Szeretném kérni a segítségeteket, mert kezd hullani a hajam!
Van egy SpeedButton elhelyezve. (Azért SpeedButtom, mert az tud lapos és átlátszó lenni)
Az OnClick eseményéhez hozzá van rendelve egy eljárás. Frankón be van állítva és meg is jelenik a SpeeddButton esemenyei közt a GombClick esemény.
És mintha ott se lenne. A lefordított programban a gombon való egérkattintásra rá se hederít!![[kép]](http://eloszto.hu/cms/content/images/1_131_ArbwmZPlQ7-15x15.gif "[kép]")
Néztem lépésenkénti futtatással, és NEM megy bele az eljárásba.
És a legszebb az egészben, hogy az OnMouseDown-t érzékeli a kis t**ű .
Ez ismert Delphi fordítóhiba, vagy komponeshiba, vagy én vagyok a hiba, vagy hogy lehet ezt orvosolni?
Szerk: Az egészben a csodálatos, hogy az egész remekül működött.
Azaz érzékelte az egérkattintást, azátn gondolom valami újrafordítás után b*sz*tt működni.
[Szerkesztve] -
Gabesz24
csendes tag
Sziasztok!
Nekem Delphiben lenne egy kisebb gondom, mégpedig az, hogy avn egy számlázó program, és abban ha felveszek új tételt, de mégse töltöm ki benne a mezőket, akkor ne adjon az azonosítóhoz semmit, hanem maradjon úgy, meg lehet ezt oldani?
Meg olyanokat, hogy ha felveszem az új tagokat, akkor a többi felvitelt zárja le, ne lehessen máshova írni semmmit, meg hogy ablakokat kivinni a képernyőből, és az ablakon letiltani a bazárógombokat, menüböl lehessen bezárni.
Szóval röviden ennyi kéne, légyszike!
Ha valaki meg tudná hétfőig írni, roppant hálás lennék!
Köszönet előre is!
Emailem: v.reggel@freemail.hu, ha tud valaki küldjön már nekem oda programot! Köszi! -
Tele von Zsinór
őstag
válasz
Tele von Zsinór
#753
üzenetére
Senki?
-
KovacsUr
addikt
Pro: Bővebben: link
Enterprise: Bővebben: link
[Szerk.]
Az Enterprise linkje nem működött, cseréltem a lengyel szerverre. -
BaliTHC
tag
Sziasztok!
A munkám miatt nagyon (és gyorsan) szükségem lenne a Borland Delphi 6 Update Pack 2-re. A cégünknél megvettünk még pár éve 6 licenszet, de az ember aki ezt intézte most nem elérhető. Így nem tudom a regisztrációs account-unkat, viszont egy Delphi bug miatt (ADO/Oracle alól a negatív number mezőket pozitívnak olvassa) ennek a javítása sürgősen kellene. (Remélem benne van a up2-ben ennek a megoldása.)
Tud valaki adni/küldeni/linkelni egy Update Pack 2-t így hirtelen?
E-mailben is jöhet, ''csak'' 36 mega, kb ugyanennyi darabban szívesen látom, egy vitruális vállveregetést kap a bátor jelentkező. A mail címemet megadom, ha valaki vállalja...
Köszi!
Bali -
#753
Tele von Zsinór
őstag
Tele von Zsinór
őstag
Lenne nekem egy nagy kérdésem: egy progimban StringGrid-et használok, és egy ciklussal állítom be egy oszlop szélességét. Valahogy így néz ki:
for i := 1 to StringGrid1.RowCount do
begin
if StringGrid1.ColWidths[1] < StringGrid1.Canvas.TextWidth(StringGrid1.Cells[1,i])+10 then
StringGrid1.ColWidths[1] := StringGrid1.Canvas.TextWidth(StrinGrid1.Cells[1,i])+10;
end;
Ez eddig működött is, de most valamilyen oknál fogva nem megy, ha hozzáadok egy watch-t akkor a textwidth-re azt mondja, hogy Inaccessible value.
Nem csináltam semmit, ami ide bekavarhat, szóval most nem értem, hogy mi van. Találkozott már valaki hasonló problémával? Esetleg tud vki segíteni?
[Szerkesztve] -
Divi
aktív tag
Én nem tudok róla, hogy lehetne, de szerintem nincs is rá túzott szükség.
Én általában a showmessage-et csak kódírás ídeje alatt használom bizonyos változók értékeinek a kiírására. Hiszen nem olyan szép jószág az
Ha a júzerrel szeretnél közölni valamit akkor szerintem jobban jársz a MessageDlg() -vel.
Sokkal széleskörűbben paraméterezhető, sokkal gusztusosabb, és fügvény lévén annak a gomnak a kódjával tér vissza amit a júzer megnyomott. (Ha csak 1 gombot teszel ki akkor meg tök8).
Remélem segítettem. -
#748
killerjohn
addikt
Imike_80
#747
killerjohn
addikt
válasz
Imike_80
#747
üzenetére
kiszámolja a lenyomáskor eltárolt koordináták és a felengedéskor átadott koordináták távolságát (pitagorasz tétel a2+b2=c2 [2=négyzet])
utólag belegondolva működnie kell, de tényleg nem garantálom. TRY IT !
ez sor :
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
javítva :
Ellipse(Circle_X-Radius,Circle_Y-Radius,Circle_X+Radius,Circle_Y+Radius);
(kihagytam az aláhúzásokat a változónevekből...)
[Szerkesztve] -
#747
Imike_80
aktív tag
killerjohn
#737
Imike_80
aktív tag
válasz
killerjohn
#737
üzenetére
Na ez lesz a jó megoldás..
Tehát: 2 koordináta-változó ugye, egérlenyomásra rajzol, stb.
Ez a sor mi is? : Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
Köszi mindenesetre! -
#745
Imike_80
aktív tag
Drótszamár
#734
Imike_80
aktív tag
válasz
Drótszamár
#734
üzenetére
Köszi szépen. Nos, ilyen alakzatok még sosem rajzoltam. Csak ennyi. Meg: bármit írok, vmi nem müxik rajta... ez a gáz.
-
Diskcopy
tag
Hello, Problémám lenne a TlabeledEdit-el. Tegyük fel, hogy van 10 darabom belőle, és mindegyiknek nézem az OnClick metódusát, meg a editbox előtti szövegnek(EditLabel) is az OnClickjét. Namármost. Ehhez a 10 darabhoz, csak egy ilyet akarok megírni (legfeljebb 2-t, egyet a edit clicknek és egyet a szöveg clicknek)), és a többinek metódusként az object inspektorban az onclick eseményhez beállítani ezt az 1 darabot. Hogy mit csináljon: Amelyikre rákattintottak, legyen Disabled. Így leegyszerűsítve. Tehát ami kéne nekem, hogy milyen (Sender as micsoda).parent as akármi vagy hasonló módon lehetne ezt megoldani. Próbálkoztam, de mindíg invalid class typecastal kiszáll
Előre is köszönöm!
[Szerkesztve] -
Divi
aktív tag
Üdvözlök mindenkit!
Villámkérdés!
Le lehet valamivel ellenőrizni, hogy az adott változóba, már lett CREATE-elve egy ojjektum? (Valamilyen BOOLEANnel visszatérő függvénnyel vagy hasonlóval)
Vagy try except kell neki?
function obj_cr(obj:Tcomponent): Boolean;
Var l: Boolean
Begin
l:=False;
try
obj.tag:=obj.tag;
except l:=True;
End;
obj_cr:=NOT(l);
End;
Valami ilyen dolog működne?
[Szerkesztve] -
#738
killerjohn
addikt
killerjohn
#737
killerjohn
addikt
válasz
killerjohn
#737
üzenetére
de hasonló a megoldás. most nincs időm írni, de ebből már nem nehéz kitatlálni az alapjait............
-
#737
killerjohn
addikt
Imike_80
#732
killerjohn
addikt
válasz
Imike_80
#732
üzenetére
Var Circle_X,Circle_Y : Integer;
Procedure TForm1.Image1MouseDown(Sender: TObject.......);
Begin
Circle_X := X;
Circle_Y := Y;
End;
Procedure TForm1.Image1MouseUp(Sender: TObject....);
Var Radius : Integer;
Begin
Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
With Image1.Cavas do
Begin
Pen.Style := psSolid;
Brush.Style := psSolid;
Pen.Color := clBlack;
Brush.Color := clYellow;
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
End;
End;
szerintem...
de valószínűleg (tuti) van benne 1-2 hiba, mert fejből írtam, ide az új hozzászólás ablakba... -
#731
Ameda
tag
Drótszamár
#730
Ameda
tag
válasz
Drótszamár
#730
üzenetére
Linkek, de szerintem te is találkoztál már velük:
Delphi Superpage: Bővebben: link
Torry: Bővebben: link
[Szerkesztve] -
#730
Drótszamár
őstag
Drótszamár
őstag
Miért így post-ol a Delphi 6.0 NMHTTP komponense?
username%3D_felhasználó_%26password%3D_jelszó_
És miért nem így?
username=_felhasználó_&password=_jelszó_
Így soha a büdös életbe nem fogok bejelentkezni sehova
Bezzeg a put rendesen küldi
Tud valaki olyan komponenst ami rendesen post-ol? -
#729
Metalwarrior
tag
Metalwarrior
tag
Nem azon van a hangsúly, hogy tud-e jpg-t csinálni. Az csak egy példa volt. A lényeg: egy nél így írom oda a kiterjesztést
SaveToFile(savedialog1.FileName+'.bmp');
De ha több közül választok (pl.: jpg, gif stb.), akkor ez már nem használ. Ja és mégegyszer, nem az kérdeztem, hogy lehet-e jpg-t, hanem, hogy több kiterjesztés közül hogy tudom a megfelelőt kiválasztani. -
#728
yksz
aktív tag
killerjohn
#727
yksz
aktív tag
válasz
killerjohn
#727
üzenetére
a Delphi MINDENT tud
Ez igaz, csak tudni kell, hogy kell osszehozni az egészet. Ez a nehezebbik része, mert vannak olyan dolgok, amit tuti tud a delphi és minden más programozó program kezdve a pascaltól a JAVA-n keresztul a C++-ig, de mi emberek még nem tudjuk megcsinálniPl.: A tokéletes mesterséges intelligencia, a teljesen élethu kép (valósághoz hasonlítva nincs kulonbség) megjelenítése és még lehetne sorolni egy két dolgot -
#727
killerjohn
addikt
ollie
#726
-
#726
ollie
MODERÁTOR
killerjohn
#725
válasz
killerjohn
#725
üzenetére
Heh, tud jpeg-et is? Még pár év és a végén még a fenekemet is kitörli...
-
#725
killerjohn
addikt
Metalwarrior
#723
killerjohn
addikt
válasz
Metalwarrior
#723
üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
#724
ollie
MODERÁTOR
Metalwarrior
#723
válasz
Metalwarrior
#723
üzenetére
Nincs a Delphiben jpg meg gif converter, szóval azt külön kell beszerezned, és implementálnod a programodba. Furcsa is lenne, 1000 számra jelennének meg a képkonvertáló programok.
-
#723
Metalwarrior
tag
Metalwarrior
tag
Köszi!
Közben sikerült rájönni. De ha több a választék pl. bmp, jpg, gif akkor valahogy másképp kell megoldani. Azt hogy kell? -
#722
Ameda
tag
Metalwarrior
#720
Ameda
tag
válasz
Metalwarrior
#720
üzenetére
Image1.SaveToFile(Savedialog1.Filename+'.bmp');
-
#720
Metalwarrior
tag
Metalwarrior
tag
Helló!
El akarok menteni egy képet Savedialoggal de a .bmp kiterjesztést nem írja utána. Hogy lehet ezt megcsinálni? -
Aaalbi
tag
Sziasztok
Egy kis segítség kellene nekem.
Szűrnöm kellene egy táblában, és az alapján törölni az összetartozókat, de nem
akar sikerülni. Megáll a progi.
datamodule1.ItemsOut.Filter:='MUNKASZAM='+QuotedStr(FieldByName('MUNKASZAM').asstring)+'ESZKOZ_KOD='+QuotedStr(FieldByName('ESZKOZ_KOD').asstring);
datamodule1.ItemsOut.Filtered:=True;
while not datamodule1.ItemsOut.Eof do
begin
datamodule1.ItemsOut.Delete;
datamodule1.ItemsOut.Next;
end;
datamodule1.ItemsOut.Filtered:=False;
a legfelső sorral van valami baja.
Ha ötlet, akkor várom.
És köszönöm. -
yksz
aktív tag
Az 1.1 verzió(olyan jól esik ezt mondani
)->Bővebben: link
a forrás->Bővebben: link
[Szerkesztve]
[Szerkesztve] -
#716
yksz
aktív tag
killerjohn
#711
yksz
aktív tag
válasz
killerjohn
#711
üzenetére
Ok felteszem, de még csak osszeadni tud Kicsit extrém megoldással
-
beeboy
addikt
én is benevezek a buliba a legkisebb számológéppel...
![;]](//cdn.rios.hu/dl/s/v1.gif)
(amúgy már volt ilyen totyik is)
szóval, csak a tálcán foglal helyet, súgó: F1, minden ott van
Bővebben: link -
#712
Drótszamár
őstag
Drótszamár
#706
Drótszamár
őstag
válasz
Drótszamár
#706
üzenetére
Senkinek semmi ötlet?
-
#711
killerjohn
addikt
yksz
#708
killerjohn
addikt
feldobhatnád valahová a forrást. kíváncsi vagyok. régen próbálkoztam -egy prímszámkeresőhöz- azzal, hogy egy string-ben tetszőleges nagy számot tárolok, és azzal műveletet elvégezni (pl: két string összeadása, kivonása, szorzása, osztása, egy string négyzetgyökének a megállapítása, stb.), de csak hobbi volt, és nem volt rá időm. Viszont aa van valami kész megoldásod, akkor megnézném....... Mester........
-
#710
killerjohn
addikt
Drótszamár
#706
killerjohn
addikt
válasz
Drótszamár
#706
üzenetére
ebben nem t'ok segíteni. sorry
-
#708
yksz
aktív tag
killerjohn
#705
yksz
aktív tag
válasz
killerjohn
#705
üzenetére
Ja az, csak nincs korlátozás (Integer, real stb...) akármilyen nagy számot beírhatsz.
-
#706
Drótszamár
őstag
Drótszamár
őstag
Sziasztok! Lenne egy lérdésem:
Hogyan lehet egy delphi programmal bejelentkezni egy szerverre?
Le akarok tölteni onnan néhány oldalt, de csak akkor engedi, ha beléptem.
Ha elpostolom neki a kérést akkor visszaírja a html-be, hogy jelentkezzek be.
Ha böngészővel bejelnetkezek akkor minden ok.
Gondolom elősször a programból kéne bejelentkezni, akkor kapok egy cookie-t, amit minden kérésnél újra el kell küldeni?
Hogyan működik ez a cookie dolog elméletben? -
#704
killerjohn
addikt
Divi
#696
killerjohn
addikt
Elég egyszerű, csak csinálni kell hozzá egy új komponenst, melyet így kell megcsinálni (pl TButton esetében, de másnál is müxik...)
Bocsi, de sietve dobtam össze... nem biztos, hogy fullosan OK.
---------------------------
Uses SysUtils, Classes, Controls, Messages, Graphics, ExtCtrls, Windows, Forms;
Type
TMyButton = class(TButton)
private
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
protected
Procedure msgMouseEnter(Var Msg: TMessage); message CM_MouseEnter;
Procedure msgMouseLeave(Var Msg: TMessage); message CM_MouseLeave;
public
Constructor Create(AOwner: TComponent); override;
published
Property OnMouseEnter : TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
Property OnMouseLeave : TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
End;
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited;
FOnMouseEnter := nil;
FOnMouseLeave := nil;
end;
procedure TMyButton.msgMouseEnter(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseEnter) Then FOnMouseEnter(Self);
End;
procedure TMyButton.msgMouseLeave(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseLeave) Then FOnMouseLeave(Self);
end;
El akarod tuntetni a futo alkalmazasok kozul a progid? Eleg egyszeru a modja a project .dpr fajljaban allitsd az alkalmazas 'cimet' ures stringre...fura de a WIN feladatkezeloje ez alapjan sorolja be, hogy alkalmazasrol avagy folyamatrol van szo.
elhaszn)'); helyett
Word)
, és ezzel nem igazán tudok zöldágra vergődni.
Előre is köszönöm! 
Majd hétvégén még nekiulok, mert már teljesen belegabajottam
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest