Delphi - generace čísel - PASCAL Vyřešeno
Napsal: 10 úno 2006 11:05
potreboval bych vedet jak naprogramovat generator cisel (IP adres)
diky
diky
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.