Legfrissebb anyagok
IT café témák
- WLAN, WiFi, vezeték nélküli hálózat
- Milyen program, ami...?
- A Coca-Cola következő nagy újítása az AI
- QNAP hálózati adattárolók (NAS)
- Facebook és Messenger
- TP-Link WR1043ND router
- Mobilinternet
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- AI generálja majd a képeket a Photoshopban
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu 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;Nem vagyok egoista, csak uborkagyalu!
Új hozzászólás Aktív témák
Aktív témák
Új prémium hirdetések
- Samsung Galaxy S22 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! GAMER PC - RTX 3060Ti - i5 10400F/11400F - 16GB DDR4 - 500GB Nvme SSD - 500W 80+
- GAMER PC - GTX 1060 6GB - i5 10400F/11400F - 16GB RAM - 120- 480GB SSD - 500GB HDD
- GAMER PC - GTX 1080 8GB - i5 10400F/11400F - 16GB RAM - 240GB SSD - 1TB HDD
- IPhone 12 128GB 100% hibátlan gyári független akku 97%