- Házimozi belépő szinten
- Utolérjük a processzorokat? Az ASUS új monitora ma a leggyorsabb a piacon
- Hobby elektronika
- Hardverkiállítás a hónap vége felé közeledve
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Vezetékes FÜLhallgatók
- Melyik tápegységet vegyem?
- Steam Deck
- Véget vethet a firmware-káosznak az openSFI
- Kormányok / autós szimulátorok topikja
Új hozzászólás Aktív témák
-
zenit
tag
Íme:
const
Digits: string = '0123...XYZ'; <- számjegyek
1. lépés: Str stringet számmá alakít Base számrendszerben.
function StrToNum(Str: string; Base: Integer): LongInt;
var
. Digit: Integer;
. Result: LongInt;
begin
. Result := 0;
. while Str <> '' do
. begin
. . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
. . Result := Result * Base + Digit;
. end;
. StrToNum := Result;
end;
2. lépés: számot stringgé Base számrendszerben.
function NumToStr(Num: LongInt; Base: Integer): string;
var
. Digit: Integer;
. Result: string;
begin
. Result := '';
. while Num > 0 do
. begin
. . Digit := Num mod Base; Num := Num div Base;
. . Result := Digits[Digit + 1] + Result;
. end;
. if Result = '' then NumToStr := '0' else NumToStr := Result;
end;
Ennyi. Remélem, érthető.
Új hozzászólás Aktív témák
- Arc Raiders
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Milyen autót vegyek?
- Hill Climb Racing 2 bemutató (Android, iOS)
- sziku69: Fűzzük össze a szavakat :)
- Háztartási gépek
- Linux kezdőknek
- Luck Dragon: Asszociációs játék. :)
- Path of Exile (ARPG)
- Xiaomi 15 - kicsi telefon nagy energiával
- További aktív témák...
- Macbook Pro 16 A2485 EMC 3651 27% 16" Retina XDR IPS M1 Pro 32GB 500GB magyar vbill gar
- G.SKILL Trident Z RGB 64GB (2x32GB) DDR4 3600MHz F4-3600C18D-64GTZR
- AMD GAMER PC! Ryzen 5900X / RX 6900 XT / B450 / 32GB 3000MHz / EVGA 750W Gold! BeszámítOK
- Latitude 7330 27% 13.3" FHD IPS i5-1245U 16GB 512GB NVMe ujjlolv IR kam gar
- Legion 5 15ARH7 15.6" FHD IPS Ryzen 5 6600H RTX 3050Ti 16GB 512GB NVMe magyar vbill gar
- Apple iPhone 13 Mini / 128GB / Gyárifüggetlen / 12Hó Garancia / 84% akku
- Bomba Ár! Lenovo ThinkPad E15 Gen2 AMD - Ryzen 5 I 8GB I 256SSD I 15,6" FHD I HDMI I W11 I Gari
- BESZÁMÍTÁS! ASUS ROG B450 R5 5600X 32GB DDR4 512GB SSD RTX 4060Ti 16GB Zalman S2 TG Enermax 650W
- GYÖNYÖRŰ iPhone 11 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3268, 100% Akkumulátor
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest




