Hirdetés
- Jövő hónapban jönnek a Thermaltake ATX 3.1-es SFX tápjai
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Soundbar, soundplate, hangprojektor
- Intel Core i5-7640X / i7-7740X "Kaby Lake-X" és i9-7xxx "Skylake-X" (LGA2066)
- OLED TV topic
- Milyen cserélhető objektíves gépet?
- Sony MILC fényképezőgépcsalád
- Steam Deck
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
Új hozzászólás Aktív témák
-
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
-
Keem1
addikt
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] -
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 -
athew
csendes tag
Hi!
Nagy segítség!
Delphiben egy 10-es tömb random feltöltése és kiíratása! Sehogysem sikerül a deklaráció egy egyszerű kiíratás sem...
Tudom nagyon szerencsétlen vok, de ha vki segítene, akkor azt non megköszönném!
Kösz!
athew -
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??? -
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 -
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 -
btotyi
tag
válasz Terrorista #1266 üzenetére
Indy komponensek között nézz körül. (IdHttp)
-
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] -
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
- nemide -
[Szerkesztve] -
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!Samsung Galaxy A50 - Samsung UE46D6100 - BNet Tag: Andie#2999
-
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??
-
ViragL
tag
válasz Terrorista #1274 üzenetére
-
Bandee20
csendes tag
Hülye kérdés de nekem fontos lenne hol találom a BDE Adminisztarort.Egy hete sincs hogy ismerkedek a Delphivel és fogalmam sincs hogy lehet elindítani vagy hogy merre lelném.Help plz.
-
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] -
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?Fly away my precious knowledge fly far away
-
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
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álisanFly away my precious knowledge fly far away
-
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
Úristen, megvilágosodtam Elfelejtettem nullázni az L-t. Sry, nem értem h lehetek olyan hulye Mint már említették feljebb: ''Hiába nézi át az ember ha ha nem azt látja ami ott van, hanem azt aminek ott kéne lennie.'' Már csinálja a dolgát rendesen. Thx
Fly away my precious knowledge fly far away
-
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 rovidFly away my precious knowledge fly far away
-
Calogero
addikt
Van egy paradox táblám Tqueryt használom lekérdezéshez. (Select * From Filmek Order By Cim)
Hogy tudom azt beállítani hogy Ékezettel betűkkel kezdődő filmek nem a lista végéré kerüljenek. ( Á- val kezdődő filemek ne a V betűsök után jöjjön) -
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
Mivel/hogyan tudom megvizsgálni egy változó értékérol, h egész szám-e v nem? pl r: real esetében h r-ben éppen egész szám tárolódik-e, v nem?
Fly away my precious knowledge fly far away
-
szicsu
őstag
Hi!
Tudnátok ajánlani egy könyvet, ami lapktól indít és elég részletes......
Köszike''Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.''
Új hozzászólás Aktív témák
- XPEnology
- Jövő hónapban jönnek a Thermaltake ATX 3.1-es SFX tápjai
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- „Filléres” Z Fold6-tal készül a Samsung?
- Samsung Galaxy Fit 3 - keveset, de jól
- Politika
- Telekom mobilszolgáltatások
- Davey0211: Régi laptop felhasználása?
- Szeged és környéke adok-veszek-beszélgetek
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- További aktív témák...
- DDR2 DDR3 (1.35V és 1.5V) DDR4 (1.2V) és DDR5 rampárok 2x1GB, 2x2GB, 2x4GB és 2x8GB
- GAMER PC - RTX 2060 6GB - RYZEN 5 4500 - 16GB DDR4 RAM - 240GB SSD - 500GB HDD
- Új 90W Center Pin univerzális notebook töltő, Több db, 1 év Garancia + Számla!
- Lenovo T61 T400-T470s V110-15ISK Asus UX303U HP 6470b 840 G3 bontás:akksi dokkoló töltők stb
- HP ProBook 840 G5 i5-8350U, 8gb RAM, 128gb SSD, 14" matt FHD -áfás számla 1 év garancia