Ú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
- Kuponkunyeráló
- Arc Raiders
- Anglia - élmények, tapasztalatok
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- Luck Dragon: Asszociációs játék. :)
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Autós topik
- Samsung Galaxy S25 - végre van kicsi!
- Torrent meghívó kunyeráló
- BestBuy ruhás topik
- További aktív témák...
- Xbox One / Series X Játékok
- Új 2TB 2000GB m.2 Külső SSD, tesztelt, garancia
- ZBook Studio 15 G8 15.6" FHD IPS i7-11850H RTX A2000 32GB 512GB NVMe ujjlolv IR kam gar
- -ÚJ,2 ÉV GAR- DDR5 GAMER PC: RYZEN 5 8400F/9600X +RX 6600/6700XT +16-64GB DDR5! SZÁMLA! 70 féle ház!
- Garanciás - LG C2 55 OLED TV 4K, 120Hz, 2.1 - OLED55C21LA
- Bomba ár! Lenovo X1 Carbon G7: i5-8365U I 16GB I 512GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- HIBÁTLAN iPhone 15 Pro Max 256GB White Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3661, 100% Akkum
- CTO Bontott 0perces TÜZES EZÜST MacBook Air 15" M4 10C/1G 16GB 512GB Gar.: 1 év APPLE világgar
- Lenovo ThinkPad T14S Gen1 Intel i5-10310U
- AMD AM4-es HP OMEN 25L GT12 alaplapok - B550 chipset
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest







