- Gurulunk, WAZE?!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sh4d0w: Árnyékos sarok
- Mr Dini: Mindent a StreamSharkról!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- DeFranco: Tanuljunk angolul játékosan! - Duolingo
- btz: Internet fejlesztés országosan!
- M0ng00se: Hardvert áruhitelre?
- eBay-es kütyük kis pénzért
Új hozzászólás Aktív témák
-
ViragL
tag
válasz
Calogero
#1291
üzenetére
Query sehogy nem fogja neked megoldani a dolgot, javaslom, hogy kliens oldalon egy beszúró rendezéssel korigáld a hibás sorrendet. Tehát pl. a Query eredményével feltöltesz egy StringGridet, majd az ékezetes filmcímeket beszúrod a megfelelő helyre. Kib*szott lassu lesz a betöltés, de más ötletem nincs most hirtelen.
MOD: Ja de van még egy, ha nem ragszkodsz a Paradox-hoz, akkor használj pl. FireBird-et, ott tudsz írni egy tárolt eljárást ami adatbázis oldalon megcsinálja neked a szükséges rendezést. Ez a megoldás gyors és szép.
[Szerkesztve] -
yksz
aktív tag
Lenne még 1 problémám: Van egy ilyen dolgom:
101
010
110
ennek a méretei változhatnak és a számok is változhatnak 1-0 kozott de mindig négyzetr alakú lesz. és h tom megkeresni azt a téglalapot, amelyik korul! a legtobb 1-es található? Aki tud segíteni az pls írjon privi-t v mailt, mert gondolom nem lesz rovid -
-
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. -
yksz
aktív tag
az egész így néz ki:
var
Form1: TForm1;
n, i, l, s, r, h: integer;
p: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=Edit1.Text;
h:=length(p);
l:=0;
Click;
end;
procedure click;
begin
while h>1 do
begin
for i:=1 to h do
begin
r:=strtoint(p);
l:=l+r;
end ;
p:=inttostr(l);
h:=length(p);
end ;
edit2.Text:=p;
end;
csak nem akartam beírni, mert hosszú. Ebbol már láthatod h elméletileg nem kéne végtelenitodenie, pedig mégis sikerul neki. Mit csináltam rosszul? Edit1-be írok 1 számot és ha a számjegyei osszege nagyobb mint 9 akkor csinálja, amíg kisebb mint 10 muxik normálisan -
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] -
yksz
aktív tag
Szervusztok! Lenne egy surgosen megoldásra váró problémám:
itt van ez a ciklus:
while h>1 do
begin
for i:=1 to h do
begin
r:=strtoint(p);
l:=l+r;
end ;
p:=inttostr(l);
h:=length(p);
end ;
és ha itt p-be olyan változót tárolok ami a ciklus lefuttatása után 2, vagy tobbjegyu értéket ad l-nek akkor a ciklusom valamiért végteleníti magát, vagyis sose ír ki semmit, de nem ír hiobát, ezért gondolom, h végtelen. Arra lenne elméletileg, h kiszámoljam egy szám mágikus számát, pl 198-nak 1+9+8=18 1+8=9 lenne. 1-18 ig szépen csinál midnent, amikor beadom a 19et nem ír ki semmit, csak terhlei a procit 100%-on mert 1+9=10 lenne. Miért van ez és h tudnám kikuszobolni ezt?
-
czappa
aktív tag
Sziasztok!
Függvénynek/eljárásnak ugye nem adható át (dinamikus)tömb, mert csak egyszerű típus adható át, de ez kivédhető, azzal, hogy:
type
TTomb = Array of integer;
És ekkor egy TTomb típusú változót adok át.
Na én most ugyen ezt szeretném, csak nem ''sima'' függvénynek, hanem, egy osztály konstruktorának átadni, de ez az üzenet fogad:
''Incompatible types''
Próbáltam azt is, hogy a tömb nélkül hívnám a konstruktort (magyarán csináltam egy másik konstruktort is - overload), és az objektum egy metódusát hívom, hogy adjam át a tömböt, de a hibaüzi maradt.
megj.: a
type
TTomb = Array of integer;
természetesen benne van a fő unitban is (ahonnan megy a függvényhvás), és az osztályban is, amit példányosítani szeretnék.
Mi a megoldás?
A segítséget előre is köszönöm.
[Szerkesztve] -
#1275
ViragL
tag
Terrorista
#1274
ViragL
tag
válasz
Terrorista
#1274
üzenetére
-
#1274
Terrorista
senior tag
Terrorista
senior tag
Aki írt már cgi-t delphi alatt az írjon már le egy rövidebb összefoglalót mit és hogyan kell csinálni??
-
Andie
őstag
Sziasztok!
Szükségem lenne egy webcam komponensre, vagy valami rutinra, amivel meg tudom jeleniteni egy kamera képét. De valami tutibiztos cucc kéne, olyan, amilyet az MSN vagy Skype is használ, hogy mindenkinél minden webcammal müködjön.
Ugyanis 3-at is letöltöttem a torry-ról, egyik twaines, másik kompis, harmadik valami windowsos directX-es cuccot használ, de 2 haverhoz is elküldtem, és náluk nemmegy. Nálam mind3 mutat képet, szépen ahogy kell,és náluk vagy csak kék háttér van, vagy még az sem jelenik meg.
Használt már valaki ilyet? Kéne valami tutifrankó.
Köszi! -
steveetm
őstag
válasz
steveetm
#1269
üzenetére
Közben addig eljutottam hogy itt már file->new-> package kell, ott import type library, átír class ami kell, madj compile és létre kéne jöjjön a bpl amit install packagenál majd beteszek. Gondom csak az hogy compile hiba nélkül lefut de bpl egy darab se jön létre.
Igen, próbáltam már úgy is hogy nemhekkelem szét az classneveket, úgyse jön létre.
Szal 5let?
Üdv.: steveetm -
steveetm
őstag
Hali!
Lenne egy kis problémám delphi 2006al.
Eddig 6 és 7el dolgoztam, és kellett pár komponens ami alapból nem volt bent paláttában, szal project/import type library ms adox meg jet kiválaszt classnevet megad és pár next után már ott is volt komponens palettában.
Viszont 2006 alatt hiába választom ki import type libraryből ami kell, miután hozzáadom megjelenik a projectemben a hozzá tartozó unit aztán csa. Nem teszi be a hozzá tartozó komponenseket(create component wrappers be is kikapcsolva is próbáltam).
Szal ha valaki vágja mit kell vele trükközni, hogy eljérem azt amit 6-7 ben lehetett, az elárulhatná plz.
ty
ja igen, nem .netesbe nyomom, sima win32es.
Üdv.: steveetm
[Szerkesztve] -
#1268
btotyi
tag
Terrorista
#1266
btotyi
tag
válasz
Terrorista
#1266
üzenetére
Indy komponensek között nézz körül. (IdHttp)
-
#1267
ViragL
tag
Terrorista
#1266
ViragL
tag
válasz
Terrorista
#1266
üzenetére
Milyen komponenseket célszerű használni illetve hogy fogjak hozzá.
guglit kérdezd meg, pl ''web services delphi''
sorry, csak ennyit tudok segíteni, nem foglalkozok webes alkalmazásokkal -
#1266
Terrorista
senior tag
Terrorista
senior tag
Sziasztok!
Volna egy problémám és a segítségeteket kérem. Arról lenne szó, h volna egy html oldal (űrlap) amin keresztül bekéek pár adatot. Ezen adatok alapján egy delphi program segítségével egy mysql adatbázisból kellene kiolvasni adatokat majd a kapott listát visszaküldeni a weblapra egy táblázatba elhelyezve.
Ilyesmi típusú problémával nem találkozam még és jó lenne ha vki adna pár tippet.
Milyen komponenseket célszerű használni illetve hogy fogjak hozzá.
Előre is köszönöm -
Magic
tag
Hali!
PostgreSQL (8.1) alapú adatbázist szeretnék delphi (7 ent) ''alól'' használni. Ingyenes megoldásokon gondolkodom, ezért kapcsolódás képpen Zeos (6.5.1) mellett dötöttem, bár PostgresDAC jobban tetszik. Ha van más mellett nyomós érv szívesen várom!
A Zeos telepítésével nem boldogulok, már telepítettem komponenst delphivel, de zeossal nem tudom mit kell tennem. A libpq8x.dll-t már bemásoltam a system könyvtárba, de hogyan tovább??? -
ViragL
tag
Hi!
Automatizálni szeretném a tesztelést Delphi alatt, elsősorban a DUnitra gondoltam, mint esztközre. Problémám, hogy nem látom át teljesen a működését (a dokumentációja kicsit vérszegényre sikerült). Ha valaki tudna segíteni néhány kérdés/válasz erejéig, kérem szóljon! thx -
Keem1
veterán
Hali!
Egy gyors, de fontos kérdésem lenne.
van egy ilyen kódrészletem:
var Buf, Buftext : PChar;
Size: Integer;
...
Edit1.Text:='Szevasz';
S:='Helló';
Edit1.GetTextBuf(Buf, Size+1);
BufText:= // itt folytatódna a kód, ha a kérdésre választ kapnék...
Tehát (asszem) az textbox szövegét alakíthatjuk át PChar formára.
Van egy String változóm (legyen var S: String;).
Hogyan tudom ezt az S változót a kódbeli példához hasonlóan a BufText változóba préselni?
(A string ugyebár nem vezérlőelem, nincs neki GetTextBuf függvénye)
Várom a válaszokat
[Szerkesztve] -
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; -
)
char; ismeretes, és ebből kellene a string)
Új hozzászólás Aktív témák
- Dell notebook topic
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- Gurulunk, WAZE?!
- Futás, futópályák
- Bittorrent topik
- Honor Magic5 Pro - kamerák bűvöletében
- Poco X3 Pro - hardverfrissítés
- Napelem
- Házimozi haladó szinten
- További aktív témák...
- Eladó MSI B650 GAMING PLUS WIFI Alaplap
- Eladó PNY GeForce RTX 4070 Ti SUPER 16GB videokártya
- Bomba ár! Asus Slate EP121 Tablet - Intel Core i5 I 4GB I 64GB SSD I 12" Touch I Cam I W10 I Gari!
- Bomba ár! HP EliteBook 2570P - i5-3GEN I 4GB I 320GB I DVD I 12,5" HD I W10 I Garancia!
- Bomba ár! HP EliteBook 2560P - i5-2GEN I 4GB I 320GB I 12,5" HD I W10 I Garancia!
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- TAVASZI BOMBA AKCIÓK! STEAM, UBISOFT CONNECT, EA APP, XBOX EREDETI KULCSOK 100% GARANCIA
- MSI CYBORG 15 A13V
- Xiaomi Redmi A3 64GB Kártyafüggetlen, 1Év Garanciával
- Thinkpad X230 legenda: i7 CPU, IPS kijelző, 12 GB, dupla SSD, magyar villbill, webcam, fingerprint
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest