Delphi
← ElőzőOldal 6 / 6
Jelentkezz be a hozzászóláshoz.
#26
Rájöttem, b....a meg. pi:real sor hülyeség és egybõl mûködik.
#25
real-el már elfogadja, de furcsa szám jön ki
Így írtam be:
var r,t:real;
pi:real;
begin
r:=strtofloat(edit1.text);
t:=sqr(r)*pi;
label1.Caption:=floattostr(t);
Így írtam be:
var r,t:real;
pi:real;
begin
r:=strtofloat(edit1.text);
t:=sqr(r)*pi;
label1.Caption:=floattostr(t);
#24
#23
Petruz: Hogy fogadja el a Pí-t a delphi?
Egy körrel kapcsolatos számításhoz kell, de beírom hogy pi és valamiért nem tetszik neki.
Egy körrel kapcsolatos számításhoz kell, de beírom hogy pi és valamiért nem tetszik neki.
#22
Köszi szépen a segítséget!!
#21
Fene, elfelejtettem az ubb-ket. Szóval az utolsó elõtti sor helyesen:
if s[ i ] in [ 'a', 'A' ] then inc(abetu);
if s[ i ] in [ 'a', 'A' ] then inc(abetu);
#20
Többféle megoldás is lehetséges, a legegyszerûbb lényege:
abetu:=0;
s:=edit1.text;
for i:=1 to length(s) do
if s in [ 'a', 'A' ] then inc(abetu);
label1.caption:=inttostr(abetu);
abetu:=0;
s:=edit1.text;
for i:=1 to length(s) do
if s in [ 'a', 'A' ] then inc(abetu);
label1.caption:=inttostr(abetu);
#19
Van egy házim és kéne egy kis segítség.
Tegyünk fel egy editet,egy labelt és egy buttont.
Az editbe írt szövegben, gomb megnyomása után számolja meg hogy hány db 'a' betû van és írja ki a labelbe.
Tegyünk fel egy editet,egy labelt és egy buttont.
Az editbe írt szövegben, gomb megnyomása után számolja meg hogy hány db 'a' betû van és írja ki a labelbe.
#18
Nemtom, lehet, hogy hulyesegeket fogok beszelni, mert nem latom at, hogy mit akarsz elerni, meg Delphivel is reg foglalkoztam...szal ha valami hulyeseget mondanek, ne rohogj :^)
Eloszor is a WndProc felulirasa helyett ket message procedure-el is kezelhetted volna a harom klikkelest, te tudod, hogy kenyelmesebb neked...
DeleteTrayIcon() csak annyit tesz, hogy eltavolitja a talcaikont? Erre miert lenne szukseg epp kikapcsolaskor??
Eloszor is a WndProc felulirasa helyett ket message procedure-el is kezelhetted volna a harom klikkelest, te tudod, hogy kenyelmesebb neked...
DeleteTrayIcon() csak annyit tesz, hogy eltavolitja a talcaikont? Erre miert lenne szukseg epp kikapcsolaskor??
YouTube csatornám: www.youtube.com/user/atomheart147/videos
#17
nem, manuálissan !!
kicsit közelebb kerültem a megoldáshoz - ha a program indulásakor csak a tálca ikon látható(óra mellett) akkar a leállitás rendben végigmegy, ha a bal klikkel elöhozom a föablakot, akkor megint nem tudja bezárni a progit
a tálca ikon kattintás figyelést a következõ rész csinálja:
....
procedure WndProc(var Msg: TMessage); override;
.....
procedure TForm1.WndProc(var Msg: TMessage);
var p : TPoint;
begin
case Msg.LParam of
WM_RBUTTONDOWN : //kattintás az egér jobb gombjával
begin
GetCursorPos(p); //a kurzor pozíciója a kattintáskor
PopupMenu1.Popup(p.x,p.y); //a menü kinyitása
end;
WM_LBUTTONDBLCLK : //bal dupla-kattintás
begin
Form1.Show;
end;
WM_LBUTTONDOWN : //kattintás az egér bal gombjával;
Begin
Form1.Show;
end;
end;
inherited; //a le nem kezelt üzenetek elintéztetése
end;
ha a CloseQuery esemény meghívodik, mert ha hozzárendelem a tálca ikon törtélst akkor az végrehajtódik, ha beirom a "Application.Terminate;" sort is, akkor leállításkor be zárja a progit csak nem folytatódik a leállitás folyamata. (most a WM_QUERYENDSESSION nem serepel a programban
kicsit közelebb kerültem a megoldáshoz - ha a program indulásakor csak a tálca ikon látható(óra mellett) akkar a leállitás rendben végigmegy, ha a bal klikkel elöhozom a föablakot, akkor megint nem tudja bezárni a progit
a tálca ikon kattintás figyelést a következõ rész csinálja:
....
procedure WndProc(var Msg: TMessage); override;
.....
procedure TForm1.WndProc(var Msg: TMessage);
var p : TPoint;
begin
case Msg.LParam of
WM_RBUTTONDOWN : //kattintás az egér jobb gombjával
begin
GetCursorPos(p); //a kurzor pozíciója a kattintáskor
PopupMenu1.Popup(p.x,p.y); //a menü kinyitása
end;
WM_LBUTTONDBLCLK : //bal dupla-kattintás
begin
Form1.Show;
end;
WM_LBUTTONDOWN : //kattintás az egér bal gombjával;
Begin
Form1.Show;
end;
end;
inherited; //a le nem kezelt üzenetek elintéztetése
end;
ha a CloseQuery esemény meghívodik, mert ha hozzárendelem a tálca ikon törtélst akkor az végrehajtódik, ha beirom a "Application.Terminate;" sort is, akkor leállításkor be zárja a progit csak nem folytatódik a leállitás folyamata. (most a WM_QUERYENDSESSION nem serepel a programban
http://s2b-hu.ikariam.gameforge.com/reg.php?fh=400ce81271ab4218ebc88d115104c2f1
#16
Ja, azt hittem, hogy a programbol akarod lezarni a win-t. Hogy probalod lezarni a windowst? Manualison, vagy egy masik programbol?
YouTube csatornám: www.youtube.com/user/atomheart147/videos
#15
Es megis mivel zarod le a windowst?
Lasd ExitWindowsEx() a win32sdk helpben!
Lasd ExitWindowsEx() a win32sdk helpben!
YouTube csatornám: www.youtube.com/user/atomheart147/videos
#14
csináltam egy kis programot dephibe és ha fut a program és le akarom állitani a windowst , akkor a windows be tudja zárni a programot, de a leállitás folyamaa nem folytatódik tovább
Idemásolom a kérdéses részt:
.....
procedure WMQUERYEndSession(var Msg:Tmessage); message WM_QUERYENDSESSION;
.....
procedure TForm1.WMQUERYEndSession(var Msg:TMessage);
begin
// Msg.Result:=1;
Form1.Close;
DeleteTrayIcon;
inherited;
end;
Mi lehet a hiba? Ha adok visszatérésési értéket (Msg.Result:=1;) akkor ugyanugy a program bezáródik , de a kijelentkzés folyamata megszakad !
Idemásolom a kérdéses részt:
.....
procedure WMQUERYEndSession(var Msg:Tmessage); message WM_QUERYENDSESSION;
.....
procedure TForm1.WMQUERYEndSession(var Msg:TMessage);
begin
// Msg.Result:=1;
Form1.Close;
DeleteTrayIcon;
inherited;
end;
Mi lehet a hiba? Ha adok visszatérésési értéket (Msg.Result:=1;) akkor ugyanugy a program bezáródik , de a kijelentkzés folyamata megszakad !
http://s2b-hu.ikariam.gameforge.com/reg.php?fh=400ce81271ab4218ebc88d115104c2f1
#13
olyanra gondolsz, hogy 3x+9=6x ? => x=3 ???
egyszerûen rendezed az egyenletet és osztasz
nem értem a kérdést igazából
egyszerûen rendezed az egyenletet és osztasz
nem értem a kérdést igazából
#12
Valaki leírná nekem, hogy hogyan kell megoldani delphiben egy elsõfokú egyenletet?
Elõre is köszi.
Elõre is köszi.
#10
Nem, olyan formában, ahogy leírtad, nem fog mûködni. Mindenképpen kell egy kliensprogi, ami mondjuk UDP-n keresztül beszélget a szerverprogival és õ jeleníti meg az ablakot (ami a kliensprogram része, de a szerver vezérelheti).
#9
Hali szeretnék segítséget kérni, két kérdésben is, az elsõ az lenne hogy vajon delphiben megoldható e hogy egy hálózatban lévõ másik gép desktopján jelenik meg a lényegében server gépen futó program egy ablakja!Ha nem akkor vajon ezt hogy lehet megoldani.Ha igan akkor azt hogyan lehet megoldani. :) A másik nem is lényeges azt megoldom, csak ez lenne most nagyon fontos nekem. Aki tud segíteni kérem tegye azt mert nagyon fontos lenne. A választ kérem a [email protected] postaládába dobjátok be. Köszike!!
#8
üdv mindenkinek
Ezt írta DozR:
A következõ kérdésem, hogy lehet-e delphi-ben adatbázist készíteni?
A delphi programcsoportjában kell lennie egy Database Desktop programlinknek amivel meg lehet csinálni az üres táblákat. Majd ennek a táblának meg kell adni az elérését a BDE Administrátorban (hozzá kell rendelni egy adatbázishoz). Aztán mûködni fog delphi alatt is.
Ezt írta DozR:
A következõ kérdésem, hogy lehet-e delphi-ben adatbázist készíteni?
A delphi programcsoportjában kell lennie egy Database Desktop programlinknek amivel meg lehet csinálni az üres táblákat. Majd ennek a táblának meg kell adni az elérését a BDE Administrátorban (hozzá kell rendelni egy adatbázishoz). Aztán mûködni fog delphi alatt is.
EPoX 8RDA3+ | Barton 2500+@3000+ | GlobalWin Cak4-88T | 2x512MB Infineon DDR400| Seagate SATA 160GB | MSI Geforce 6600 256MB VIVO | PLEXTOR 48/24/48A + PIONEER DVDROM 16X | DTK 400W PS
#7
ÜDv mindenkinek! a Deplhi 6 prof edition-hoz nem tud valalki egy serial-t?
http://android-forum.hu/
#5
Amennyire én tudom a Delphi 7-ig bezárólag nem lehet,
de valószínûleg letölthetõ komponensként (VCL) találsz ilyet a neten.
de valószínûleg letölthetõ komponensként (VCL) találsz ilyet a neten.
#3
Keresgélhetsz esetleg itt is:
http://www.drbob42.com/
vagy itt:
http://delphi.about.com/
http://www.drbob42.com/
vagy itt:
http://delphi.about.com/
#2
Koszi, mukodik, de sajna csak a belso IP-t mutatja (192.168.1.1). A kulso IP kellene. Mar ez is nagy segitseg volt.
#1
Nem próbáltam ki, de ha minden igaz mûködik.
http://www.swissdelphicenter.ch/torry/showcode.php?id=67
http://www.swissdelphicenter.ch/torry/showcode.php?id=67
← ElőzőOldal 6 / 6