- Padavan firmware
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Otthoni hálózat és internet megosztás
- Windows 11
- Kínai cégek segítik ezentúl a Teslát, a Renault-t, a Hyundait és a Toyotát
- Letartóztatták a bitcoin-Jézust
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Milyen switch-et vegyek?
- Milyen NAS-t vegyek?
- Hálózati / IP kamera
Új hozzászólás Aktív témák
-
yksz
aktív tag
Valaki csinált már osztásra szolgáló programot? Ha nem psszedobhatnánk egyet A félreértések elkerulése végett én olyan ákármilyen nagy egész szám kijohet, ha akŕmilyen nagy számot osztok alármilyen nagy számmal.
Fly away my precious knowledge fly far away
-
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] -
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!
BaliIn the ghetto - washing non colour fast synthetics at 60 degrees - could cost you your life! (Ali G)
-
KovacsUr
addikt
Pro: Bővebben: link
Enterprise: Bővebben: link
[Szerk.]
Az Enterprise linkje nem működött, cseréltem a lengyel szerverre.So it goes… We stand alone by standing stones and turn them into circles.
-
Tele von Zsinór
őstag
válasz Tele von Zsinór #753 üzenetére
Senki?
-
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!Gabesz
-
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!
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]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
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 -
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!
A világ szép, csak még nem mindenki tudja
-
b14
senior tag
válasz Zsolteeeee #771 üzenetére
Talán létezik vmi rename() eljárás.
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
steveetm
őstag
válasz Zsolteeeee #771 üzenetére
Bővebben: link
Üdv.: steveetm -
Zsolteeeee
csendes tag
Megnéztem a súgót ígéretesnek mutatkozik.
A világ szép, csak még nem mindenki tudja
-
Zsolteeeee
csendes tag
Ez az utóbbi b**t jó. Kössz.
A világ szép, csak még nem mindenki tudja
-
Divi
aktív tag
válasz Zsolteeeee #775 üzenetére
''jó'' aláírásod van
lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
levi1983
csendes tag
Sziasztok!
Tudna valaki segíteni Delphi Object Pascalban?
Ha igen, e-mailben megbeszéljük!
Köszönöm!
ide: hsmith@freemail.hu -
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[TYPhoon]
-
opr
veterán
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"Programozó vagyok. Ez azt jelenti, hogy amit leírok, megtörténik." :D “The only valid measurement of code quality is What-The-F**ks/Minute.” - Robert Martin
-
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]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
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 -
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. -
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. -
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. -
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]Romanes eunt domus!
-
Neo...
tag
2 kérdésem lenne : Hogyan lehet a tallozás gombot megirni !?
és az Adatbázist hogyan ?
Nos ha valaki tud segiteni köszönöm !'' a kisgyerekek fikázzák azokat e rappeseket akiken felnőnek, - ez így nem oké!'' by: Hősök
-
-
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! -
Neo...
tag
Nah segitettek tehát egészszépen haladok
'' a kisgyerekek fikázzák azokat e rappeseket akiken felnőnek, - ez így nem oké!'' by: Hősök
-
yksz
aktív tag
Egy rovid és gyors kérdés: Mi a hiba ezzel:
function RegisterServiceProcess (ProcessID,RTypeWord)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!Fly away my precious knowledge fly far away
-
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:='';
... -
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
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]
Új hozzászólás Aktív témák
- Ryzen 5 3600x, GTX 1070 ti 8gb, 32gb ddr4 ram
- Hugo Boss The Scent Elixir Him Eau de Parfum
- Garis félkonfig! Ryzen 7 5800x,AsusTuf B550 gaming plus, Fury 2x16 3600 cl 16 - GARIS -
- HP Elitebook 850 G8 15.6" FHD IPS Core i5 1135G7 16/512GB HP GAR
- Dell 15,6" notebookok E6540, E5540, i5 - számla, garancia
- Hancúr párbaj - Erotikus társasjáték
- Samsung Galaxy S10 gyári type c gyorstöltő + kábel
- APC Smart UPS 1000 VA, karcmentes, akksik döglöttek.
- Lenovo Thinkpad X230 12.5" LED, i5-3210M, 8GB ram, 120GB SSD, HDMI, Webkamera, BT, világítós HU bill
- Ticwatch Pro 3 Ultra LTE fekete, újszerű, ajándék szíjakkal
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest