Hirdetés
- Brogyi: CTEK akkumulátor töltő és másolatai
- lezso6: Miért is jó, ha dohányzol?! Megéri rászokni!
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: Agglegénykonyha 7 – Még egy megosztó – de gyors – étel: resztelt máj
- sziku69: Fűzzük össze a szavakat :)
- urandom0: Aki használ/használt Giten kívűl más verziókezelőt, mesélne róla?
- <Lacy85>: Időmilliomosok előnyben - Játékfejlesztés #1
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- Meggyi001: Kuponok....
Új hozzászólás Aktív témák
-
^^|CC|^^
tag
Csáóóó!
Most az lenne a problémám, hogy delphiben kéne véletlen neveket létrehoznom...
A kritériumok azok lennének, hogy random hosszúságúak (1 szótagtól 5 szótagig és 1 szótag az egy msh és egy mgh kell, hogy legyen...)
Sajnos nem vagyok túl jártas a programozásban és kéne a segítség...
Nagyon szépen köszönöm a segítségeket...üdv.:
^^|CC|^^ -
^^|CC|^^
tag
válasz
Gyuri16 #1758 üzenetére
nah megcsináltam eddig nekem így néz ki:
var a,i: integer;
s,nullak: string;
m: byte;
begin
try
a:=strtoint(edit2.text);
if a<0 then raise exception.create('Ne legyen negatív!');
if a=0 then s:='0'
else begin
s:='';
while a>0 do begin
m:= a mod 2;
s:=inttostr(m)+s;
a:=a div 2
end;
nullak:='';
for i:=1 to 4-length(s) mod 4 do
nullak:=nullak+'0';
if length(nullak)=4 then
nullak:='';
s:=nullak+s;
end;
showmessage('Számocska:'+#13+#13+s);
except
showmessage('Hiba!!!');
end;
end;a félkövér amit javasoltál... most legalább már tölti őket 0-kal, de még mindig nem tagolja fel 4sével...
-
^^|CC|^^
tag
csáóóó
Nekem olyan típusú problémám lenne, hogy ugye meg van az, hogy beírok egy edit mezőbe egy számot és ki hozza showmessage-ben a bináris kódját...
Igen ez nem volt olyan nehéz...A problémám ott kezdődik mikor azt kéne megcsinálnom, hogy négyesével legyen tagolva és ha ez nem tudna teljesülni( mivel kisebb szám jött ki) akkor azt meg fel kellene töltenie 0-kal....
pl.: (általam kitalált számok általam kitalált eredményekkel...)
231= 11001011001110110
nah itt van kevesebb, mint 4... és ilyenkor kéne feltöltenie 0-kal: 1 1001 0110 0111 0110
0001 1001 0110 0111 0110 ----> ez a végleges formátuma
annyit biztosan tudok, hogy vagy elöltesztelős ciklussal vagy pedig hátul tesztelős ciklussal kell megcsinálni... de még annyira kezdő vagyok, hogy nem igen akar összejönni nekem...
nagyon szépen köszönöm a segítségeket...
Új hozzászólás Aktív témák
- Nem fogy az S25 Edge, mégis lesz S26+?
- Melyik tápegységet vegyem?
- BestBuy topik
- PlayStation 5
- Eredeti játékok OFF topik
- Gumi és felni topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Brogyi: CTEK akkumulátor töltő és másolatai
- CADA, Polymobil, és más építőkockák
- Milyen billentyűzetet vegyek?
- További aktív témák...
- SZERVÍZ akár KISZÁLLÁSSAL!!
- LOQ 15IRH8 15.6" FHD IPS i5-12450H RTX 4050 16GB 512GB NVMe magyar vibill gar
- Crucial P3 Plus 2TB M.2 NVME PCI-E 4.0 x4 - Új - Eladó! 37.000.-
- Corsair Vengeance RGB 2x16GB DDR5 6000MHz CL30 - Új, 1 év gari - Eladó!
- SAMSUNG 4TB 990 PRO M.2 NVME PCI-E 4.0 x4 - Új - 7450-6900 MBs - Eladó!
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3330
- HIBÁTLAN iPhone 15 Pro 256GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3507
- GYÖNYÖRŰ iPhone 13 mini 256GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3180
- Nagyakkus, mobilnetes - Dell Latitude 5330 i3-1215U 6mag! 16GB 512GB 13.3" FHD 1 év gar
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 docking station (5TW13AA) (DisplayLink)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest