potreboval bych vedet jak naprogramovat generator cisel (IP adres)
diky
Delphi - generace čísel - PASCAL Vyřešeno
-
- nováček
- Příspěvky: 3
- Registrován: únor 06
- Bydliště: portal.chytrak.cz
- Pohlaví:
- Stav:
Offline
- Kontakt:
Delphi - generace čísel - PASCAL Vyřešeno
-------------------------------------------------------
Ať žijí maniaci !!
--------------------------------------------------------
Ať žijí maniaci !!
--------------------------------------------------------
AK je to este aktualne tak nasledovne.
To co ti ostane v premennej s je IP adresa v stringovom tvare. Neosetroval som aby nemohla byt 255.255.255.255 ani 0.0.0.0, ale to zvladnes, keby nieco, daj vediet.
Kód: Vybrat vše
var i: integer;
s: string;
begin
Randozmize;
s := '';
for i := 1 to 4 do
begin
s := s + IntToStr(Random(256));
if i < 4 then s := s + '.';
end;
end;
To co ti ostane v premennej s je IP adresa v stringovom tvare. Neosetroval som aby nemohla byt 255.255.255.255 ani 0.0.0.0, ale to zvladnes, keby nieco, daj vediet.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 11
- 3711
-
od BL!zZard
Zobrazit poslední příspěvek
20 pro 2023 18:46
-
- 2
- 2188
-
od Kopusek
Zobrazit poslední příspěvek
02 pro 2023 10:13
Zpět na “Programování a tvorba webu”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 29 hostů