Új hozzászólás Aktív témák
-
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........
-
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:='';
... -
Tele von Zsinór
őstag
Valahogy így:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end; -
Tele von Zsinór
őstag
Azért ez így nem igaz. Lassabb lesz, de a mai gépeken ez nem érezhető. Több memóriát fog enni, mert oda tömöríti ki és onnan fut. Meg ha durván használsz .res fileokat akkor nézd meg a help-et, van olyan opció, amivel az erőforrásokat nem nyomja be, nekem azzal gondjaim voltak.
Amúgy többféle tömörítő: ha egy exe upx-el van benyomva, akkor van benne egy upx0 és egy upx1 szekció. Ha ilyet konkrétan nem találsz, de van benne 2db 4 karakteres, akkor egy hexeditorral próbáld meg átírni őket, nekem nemegyszer bejött.
Visszafele ugyanez: ha nem akarod, hogy egyszerűen ki lehessen tömöríteni a progijaidat, egy hexeditorral írd át ezeket
[Szerkesztve] -
lao ce
aktív tag
-
lao ce
aktív tag
gondolom a file bent van a helyen valamilyen objektumban, akkor van valamifele stream amit olvasol (mar lassan ket eve nem delphiztem egy karaktert sem, szoval nem tudom miert kezdtem neki itt okoskodni), aztan kikerestem neked egy ilyet:
function IntToBin ( value: LongInt; digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do begin
if ( value and 1 ) = 1 then
result [ digits ] := '1';
dec ( digits ) ;
value := value shr 1;
end;
end;
meg egy ilyet:
function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt('$' + HexNum) ;
end;nicht kompot
-
ViragL
tag
Nem ma kezdtem a programozást, a Delphit is tolom kb 4 éve, de halvány lila gőzöm nincs róla, hogy a forráskód és a hozzá fűzött szöveg között mi a kapcsolat..
A ciklusod végtelen lesz, bár nem tudom mit is akar csinálni, ha L-hez mindig csak hozzáadsz akkor az egyre nagyobb lesz, több helyiérték = nagyobb hossz, tehát H monoton nő.
Újra kéne gondolnod az algoritmust.
[Szerkesztve] -
ViragL
tag
1, írtam, hogy nem ma kezdtem a Delphit, tehát a változók tipusát kitaláltam magamtol. Tehát az újbol beírt kód nem mond semmi újat.
2. abbol, hogy :
''A ciklusod végtelen lesz, bár nem tudom mit is akar csinálni, ha L-hez mindig csak hozzáadsz akkor az egyre nagyobb lesz, több helyiérték = nagyobb hossz, tehát H monoton nő.'' mit nem értessz?
A ciklusod azért lesz végtelen, mert L -hez mindig hozzáadsz valamit, így egyre nagyobb szám lesz, így egyre hosszabb string lesz belőle, tehát a hossz, amitöl a while ciklusod futása függ mindig nagyobb lesz mint egy, sőt szigorúan monoton nő az értéke.
3. az egész algoritmusnak semmi köze ahoz amit csinálni akarsz, az a baj, hogy gőzöd nincs róla, hogy mit csinál az amit írtál. HA mégis, akkor írd le nekem néhány mondatban, hogy elnézést tudjak kérni. -
ViragL
tag
Szerintem nagy fába vágta a fejszét, amit meg szeretnél valósítani (hozzászólásaid alapján) az nem csak egy kis ''heggesztés'' lesz, hanem komolyabb tudást igényő feladat. Tehát, nem tudom az elméleti háttérrel hogy állsz, ha hiányosnak érzed, akkor javaslok egy cikket, szerintem olvasd át, ártani nem árthat (anno az egyetemen ez volt a szakirodalmunk hálózat gyakorlathoz..nc)[link] Nem Delphis cikk, csak a hálózati kommunikáció működését mutatja be.
Sajna ennyit tudok segíteni. Jut eszembe, ha jól emlékszem a Delphi demó projektek között van valahol egy p2p messenger program. Asszem.
Sok sikert.
Új hozzászólás Aktív témák
- TicWatch Pro 2020 okosóra
- Eladó Palit RTX 4070 Dual 12GB GDDR6X videokártya
- Fujitsu Lifebook E546 , 14" Kijelző, I3-6100U, 8GB DDR4, 128GB SSD, WIN 10, Számla, garancia
- Fujitsu Lifebook E544 , 14" Kijelző, I7-4712QM, 16GB DDR3, 128GB SSD, WIN 10, Számla, garancia
- Dell Latitude E6430, 14" HD+ Kijelző, I7-3720QM, 8GB DDR3, 320GB HDD, Nvidia 1GB, WIN 10, Számla,
- Iphone 12 pro max 256gb,akku 100%, hibátlan működés,szép állapot,független
- Újszerü HP 850 G2 Világitó Magyar Bill /Intel i5-5300 /8gb ram / 256gb SSD
- Apple watch series 7 45mm Product Red megkímélt,tartozékaival,fix 67000ft.
- Eladó szép állapotban lévő ASUS TUF Gaming laptop!
- Apple watch SE2 LTE 40mm,mint az új,gari 10+ hónap,akku 100%
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen