Legfrissebb anyagok
Mobilarena témák
- Samsung Galaxy S23 Ultra - non plus ultra
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Műholdas AI chippel fedné le a bolygót a Samsung
- Yettel topik
- Google Pixel topik
- 10 VI 16
- Sony Xperia 1 V - kizárólag igényeseknek
- iPhone topik
- Android alkalmazások - szoftver kibeszélő topik
- A ZTE sem maradt adós csúcstelefonnal
PROHARDVER! témák
IT café témák
GAMEPOD témák
Új hozzászólás Aktív témák
-
Gyuri16
senior tag
válasz
^^|CC|^^
#1753
üzenetére
var
str, nullak: String;
mennyi: integer;
begin
str:='10010001000';
nullak:='0000';
mennyi:=(4-(length(str) mod 4)) mod 4;
str:=copy(nullak,1,mennyi)+str;
end;egyanaz egyszerubben:
var
str, nullak: String;
i: integer;
begin
str:='10010001000';
nullak:='';
for i:=1 to 4-length(str) mod 4 do
nullak:=nullak+'0';
if length(nullak)=4 then
nullak:='';
str:=nullak+str;
memo1.Lines.Add(str);
end;
Új hozzászólás Aktív témák
Aktív témák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál...
- Mesterséges intelligencia topik
- Vezetékes FEJhallgatók
- Meggyi001: Eldugott helyek Párizsban, amiket jó eséllyel még nem láttál... 2. rész.
- nVidia tulajok OFF topikja
- Samsung Galaxy S23 Ultra - non plus ultra
- Kerékpárosok, bringások ide!
- Xbox Series X|S
- RETRO beárazás (mobil, PC, konzol)
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Bomba ár! Microsoft Surface Pro 7 Black - i5-1035G4 I 8GB I 256SSD I W11 I Cam I Garancia!
- HIBÁTLAN iPhone 15 Pro 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3503
- Creative Sound BlasterX G6 7.1 USB külső hangkártya
- HP ProBook 440 G5 i3-7100 laptop
- BESZÁMÍTÁS! Asrock B450M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB THERMALTAKE VERSA H17 600W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



